Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/367/597 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-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/367/597 ups Her, phi Her & HR 7018 abundances (Adelman+, 2001)
*================================================================================
*Elemental abundance analyses with DAO spectrograms.
*XXIV. The Mercury Manganese stars {upsilon} Her, {phi} Her, and HR 7018
* Adelman S.J., Gulliver A.F., Rayle K.E.
* <Astron. Astrophys. 367, 597 (2001)>
* =2001A&A...367..597A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6a.dat' ! Elemental abundances
integer*4 nr__
parameter (nr__=627) ! Number of records
character*69 ar__ ! Full-size record
character*6 Ion (nr__) ! Ion designation
character*3 Mult (nr__) ! Multiplet number from Moore (1945) if first
* line of multiplet, if not from Moore an
* initial indicating the paper (1)
real*8 lambda (nr__) ! (0.1nm) Laboratory wavelength (air)
real*4 loggf (nr__) ! Oscillator strength
character*2 r_loggf (nr__) ! Reference to oscillator strength (2)
integer*4 EW1 (nr__) ! (0.1pm) ? Equivalent width for {upsilon} Her
real*4 log_N_Ntot_1(nr__) ! ? Relative abundance value for {upsilon} Her
integer*4 EW2 (nr__) ! (0.1pm) ? Equivalent width for {phi} Her
real*4 log_N_Ntot_2(nr__) ! ? Relative abundance value for {phi} Her
integer*4 EW3 (nr__) ! (0.1pm) ? Equivalent width for HR 7018
real*4 log_N_Ntot_3(nr__) ! ? Relative abundance value for HR 7018
*Note (1): The acronyms are:
* D: Dworestsky, 1971, Ph.D. Thesis, University of California, Los Angeles
* G: Guthrie, 1985MNRAS.216....1G
* H: Huldt et al., 1982, Phys. Scripta 25, 401
* I: Iglesias & Velasco, 1964, Publ. Inst. Opt. Madrid, No. 23
* J: Johansson, 1978, Phys. Scr., 18, 217
* K: Kurucz & Bell 1995, Kurucz CD-Rom No. 23
* S: Svendenius et al., 1983, Phys. Scr. 27, 339
*Note (2): gf value references follow:
* 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)
* GB = Grevesse et al. (1981, Upper Main Sequence CP Stars, 23rd.
* Liege Astrophys. Coll., 211)
* FW = Fuhr & Wiese (1990, in Lide D.R. ed., CRC Handbook of Chemistry
* and Physics, CRC Press, Cleveland, OH)
* HL = Hannaford et al. (1982ApJ...261..736H)
* JK = Joensson et al. (1984, Phys. Rev. A, 30, 2429)
* JS = Jugaku et al. (1961ApJ...134..783J)
* KX = Kurucz & Bell (1995, Kurucz CD-Rom No. 23)
* LA = Lanz & Artru (1985PhyS...32..115L)
* LD = Lawler & Dakin (1989, JOSA B, 6, 1457)
* MF = Fuhr, Martin & Wiese (1988, Cat. <VI/72>) &
* Martin, Fuhr & Wiese (1988, Cat. <VI/72>)
* MC = Magazzu & Cowley (1986ApJ...308..254M)
* VA = from Vienna Atomic Line Database
* WF = Wiese, Fuhr & Deters (1996, Atomic transition probabilities of
* carbon, nitrogen, and oxygen : a critical data compilation.
* Edited by W.L. Wiese, J.R. Fuhr, and T.M. Deters.
* Washington, DC)
* WM = Wiese & Martin (1980, NSRDS-NBS 68, Part.2, US Governement
* Printing Office, Washington)
* WS = Wiese, Smith & Glennon (1966, NSRDS-NBS 4, US Governement
* Printing Office, Washington) &
* Wiese, Smith & Miles (1969, NSRDS-NBS, D.C.: US Department of
* Commerce, National Bureau of Standards)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6b.dat' ! Relative abundances
integer*4 nr__1
parameter (nr__1=33) ! Number of records
character*43 ar__1 ! Full-size record
character*6 Ion_1 (nr__1) ! Ion
character*3 El (nr__1) ! Element
real*4 log_El_Ntot_1(nr__1) ! ? Elemental abundance for {upsilon} Her (1)
real*4 e_log_El_Ntot_1(nr__1) ! ? rms uncertainty on log(El/Ntot)1
real*4 log_El_Ntot_2(nr__1) ! ? Elemental abundance for {phi} Her (1)
real*4 e_log_El_Ntot_2(nr__1) ! ? rms uncertainty on log(El/Ntot)2
real*4 log_El_Ntot_3(nr__1) ! ? Elemental abundance for HR 7018 (1)
real*4 e_log_El_Ntot_3(nr__1) ! ? rms uncertainty on log(El/Ntot)3
*Note (1): El = Element
* Ntot = number of atoms/volume of all elements
C=============================================================================
C Loading file 'table6a.dat' ! Elemental abundances
C Format for file interpretation
1 format(
+ A6,1X,A3,1X,F8.2,1X,F5.2,2X,A2,1X,I3,1X,F5.2,1X,I3,1X,F5.2,1X,
+ I3,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6a.dat')
write(6,*) '....Loading file: table6a.dat'
do i__=1,627
read(1,'(A69)')ar__
read(ar__,1)
+ Ion(i__),Mult(i__),lambda(i__),loggf(i__),r_loggf(i__),
+ EW1(i__),log_N_Ntot_1(i__),EW2(i__),log_N_Ntot_2(i__),
+ EW3(i__),log_N_Ntot_3(i__)
if(ar__(31:33) .EQ. '') EW1(i__) = iNULL__
if(ar__(35:39) .EQ. '') log_N_Ntot_1(i__) = rNULL__
if(ar__(41:43) .EQ. '') EW2(i__) = iNULL__
if(ar__(45:49) .EQ. '') log_N_Ntot_2(i__) = rNULL__
if(ar__(51:53) .EQ. '') EW3(i__) = iNULL__
if(ar__(55:58) .EQ. '') log_N_Ntot_3(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Ion(i__),Mult(i__),lambda(i__),loggf(i__),r_loggf(i__),
+ EW1(i__),log_N_Ntot_1(i__),EW2(i__),log_N_Ntot_2(i__),
+ EW3(i__),log_N_Ntot_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6b.dat' ! Relative abundances
C Format for file interpretation
2 format(A6,1X,A3,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6b.dat')
write(6,*) '....Loading file: table6b.dat'
do i__=1,33
read(1,'(A43)')ar__1
read(ar__1,2)
+ Ion_1(i__),El(i__),log_El_Ntot_1(i__),e_log_El_Ntot_1(i__),
+ log_El_Ntot_2(i__),e_log_El_Ntot_2(i__),log_El_Ntot_3(i__),
+ e_log_El_Ntot_3(i__)
if(ar__1(12:16) .EQ. '') log_El_Ntot_1(i__) = rNULL__
if(ar__1(18:21) .EQ. '') e_log_El_Ntot_1(i__) = rNULL__
if(ar__1(23:27) .EQ. '') log_El_Ntot_2(i__) = rNULL__
if(ar__1(29:32) .EQ. '') e_log_El_Ntot_2(i__) = rNULL__
if(ar__1(34:38) .EQ. '') log_El_Ntot_3(i__) = rNULL__
if(ar__1(40:43) .EQ. '') e_log_El_Ntot_3(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Ion_1(i__),El(i__),log_El_Ntot_1(i__),e_log_El_Ntot_1(i__),
+ log_El_Ntot_2(i__),e_log_El_Ntot_2(i__),log_El_Ntot_3(i__),
+ e_log_El_Ntot_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end