Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/377/361 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-Mar-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/377/361 Fe II transition probabilities and loggf (Pickering+, 2001) *================================================================================ *The FERRUM Project: Branching ratios and atomic transition probabilities of *Fe II transitions from the 3d^6^(a^3^F)4p subconfiguration in the visible *to VUV spectral region * Pickering J.C., Johansson S., Smith P.L. * <Astron. Astrophys. 377, 361 (2001)> * =2001A&A...377..361P C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Absolute transition probabilities and oscillator strengths of Fe II transitions. integer*4 nr__ parameter (nr__=95) ! Number of records character*80 ar__ ! Full-size record character*1 Level ! Level (1) real*8 lambdaVac ! (0.1nm) Vacuum wavelength real*8 lambdaAir ! (0.1nm) ? Wavelength in air for {lambda}>2000{AA} real*8 sigma ! (cm-1) Vacuum wavenumber (G1) character*1 Note ! [x b] Note (2) real*4 BF ! ? branching fraction; integer*4 e_BF ! (%) ? Percentage relative uncertainty in BF real*4 A ! (s-1) ? Absolute transition probability, found by * combining BF and the measured lifetime integer*4 e_A ! (%) ? Percentage uncertainty in A real*4 loggf ! ? Oscillator strength measured in this work real*4 e_loggf ! ? uncertainty (dex) in log gf real*4 loggfR ! Raassen oscillator strength (1999, * ftp://ftp.wins.uva.nl/pub/orth/iron/FeII.E1) real*4 loggfK ! Kurucz oscillator strength (2000, priv. com.) real*4 loggfN ! ? Nahar oscillator strength * (1995, Cat. <J/A+A/293/967>) *Note (1): Levels: * A: Level 62065 cm^-1^ 3d^6^(a^3^F)4p y^4^F_3.5_ 3.50ns +/- 0.3ns * 99.87% complete, 0.02% outside, 0.11% blended * B: Level 63948 cm^-1^ 3d^6^(a^3^F)4p y^4^G_4.5_ 2.7 ns +/- 0.3ns * 99.97% complete, 0.03% outside * C: Level 62945 cm^-1^ 3d^6^(a^3^F)4p x^4^D_3.5_ 2.8 ns +/- 0.3ns * 99.98% complete, 0.02% outside, 3.44% blended * D: Level 64040 cm^-1^ 3d^6^(a^3^F)4p y^4^G_3.5_ 2.8 ns +/- 0.3ns * 99.96% complete, 0.04% outside *Note (2): Annotations to transitions indicate: * x: transition not observed in this work or in that of Johansson * (private communication); * b: blended line. * For lines annotated with x, the maximum possible branching fraction * has been estimated and from this the maximum value of A and maximum * possible log gf for that transition has also been estimated. Since the * values of A and log gf for lines annotated with x are maximum values * it may be preferable to use the theoretical values for these lines. No * uncertainty in log gf is given for these transitions annotated x since * it is an approximate estimate. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Finding list of Fe II transitions and log gf values integer*4 nr__1 parameter (nr__1=95) ! Number of records character*88 ar__1 ! Full-size record real*8 lambdaVac_1 ! (0.1nm) Vacuum wavelength real*8 lambdaAir_1 ! (0.1nm) ? Wavelength in air for {lambda}>2000{AA} real*8 sigma_1 ! (cm-1) Vacuum wavenumber (G1) character*1 Note_1 ! Note (1) real*4 loggf_1 ! ? Oscillator strength (this work) real*4 e_loggf_1 ! ? uncertainty (dex) in log gf, real*4 loggfR_1 ! Raassen oscillator strength (1999, * ftp://ftp.wins.uva.nl/pub/orth/iron/FeII.E1) character*10 UTerm ! Upper lever term (2) real*8 UE ! (cm-1) Upper level energy (2) character*11 LTerm ! Lower level term (2) real*8 LE ! (cm-1) Lower level energy (2) *Note (1): Annotations indicate: * x: transition not observed in this work or in that of Johansson; * b: a blended line. * For lines annotated with x, the maximum possible branching fraction * has been estimated giving a maximum possible log gf for that * transition; for these lines it may be advisable to use the calculated * values of Raassen (1999) for log gf. No uncertainty in log gf is given * for transitions annotated x. *Note (2): Term and energy of the upper and lower energy levels involved in * each transition. The level energies are taken from Sugar and Corliss * (1985, Cat. <VI/74>). C============================================================================= C Loading file 'table2.dat' ! Absolute transition probabilities and oscillator * strengths of Fe II transitions. C Format for file interpretation 1 format( + A1,1X,F8.3,1X,F8.3,1X,F8.2,1X,A1,1X,F5.2,1X,I2,1X,E8.3,1X,I2, + 1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,95 read(1,'(A80)')ar__ read(ar__,1) + Level,lambdaVac,lambdaAir,sigma,Note,BF,e_BF,A,e_A,loggf, + e_loggf,loggfR,loggfK,loggfN if(ar__(12:19) .EQ. '') lambdaAir = rNULL__ if(ar__(32:36) .EQ. '') BF = rNULL__ if(ar__(38:39) .EQ. '') e_BF = iNULL__ if(ar__(41:48) .EQ. '') A = rNULL__ if(ar__(50:51) .EQ. '') e_A = iNULL__ if(ar__(53:57) .EQ. '') loggf = rNULL__ if(ar__(59:62) .EQ. '') e_loggf = rNULL__ if(ar__(76:80) .EQ. '') loggfN = rNULL__ c ..............Just test output........... write(6,1) + Level,lambdaVac,lambdaAir,sigma,Note,BF,e_BF,A,e_A,loggf, + e_loggf,loggfR,loggfK,loggfN c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Finding list of Fe II transitions and * log gf values C Format for file interpretation 2 format( + F8.3,1X,F8.3,1X,F8.2,1X,A1,1X,F5.2,1X,F4.2,1X,F5.2,1X,A10,1X, + F9.3,1X,A11,1X,F9.3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,95 read(1,'(A88)')ar__1 read(ar__1,2) + lambdaVac_1,lambdaAir_1,sigma_1,Note_1,loggf_1,e_loggf_1, + loggfR_1,UTerm,UE,LTerm,LE if(ar__1(10:17) .EQ. '') lambdaAir_1 = rNULL__ if(ar__1(30:34) .EQ. '') loggf_1 = rNULL__ if(ar__1(36:39) .EQ. '') e_loggf_1 = rNULL__ c ..............Just test output........... write(6,2) + lambdaVac_1,lambdaAir_1,sigma_1,Note_1,loggf_1,e_loggf_1, + loggfR_1,UTerm,UE,LTerm,LE c .......End.of.Just test output........... end do close(1) C============================================================================= stop end