Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/787/2 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-28 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/ApJ/787/2 Effective collision strengths of Si VII (Sossah+, 2014) *================================================================================ *Effective collision strengths for fine-structure transitions in Si VII. * Sossah A.M., Tayal S.S. * <Astrophys. J., 787, 2 (2014)> * =2014ApJ...787....2S (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Comparison of Energy Levels and Lifetimes in Si VII integer*4 nr__ parameter (nr__=92) ! Number of records character*103 ar__ ! Full-size record integer*4 Index ! [1/92] Index character*30 Coupling ! CFG-LSJ coupling real*8 Ea ! (Ry) Present excitation energy MCHF calculations * with 2665 configurations real*8 Eb ! (Ry) Present excitation energy MCHF calculations * with 488 configurations real*8 EObs ! (Ry) ? Observed excitation energy (1) character*1 n_EObs ! [*+] Note on Eobs (2) real*8 ECCF ! (Ry) ? CCF excitation energy (3) real*8 EBHA ! (Ry) ? BHA excitation energy (4) real*8 EBZ ! (Ry) ? BZ excitation energy (5) real*4 LifeP ! (ns) ? Present lifetime real*4 LifeCFF ! (ns) ? CFF lifetime *Note (1): Observed energy levels from NIST (http://physics.nist.gov/PhysRefData) *Note (2): Notes as follows: * * = Observed energy levels from NIST and Kink & Engstroem (1997, PhyS, 56, 31) * + = Observed energy levels from NIS and Kink et al. (1997ApJ...487..956K) *Note (3): MCHF calculations of Froese Fischer & Tachiev (2004, ADNDT, 87, 1); * data from website http://nlte.nist.gov/MCHF/view.html *Note (4): Superstructure calculation of Bhatia & Landi (2003ApJ...585..587B) *Note (5): Superstructure calculations of Butler & Zeippen (1994, J/A+AS/108/1) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Wavelengths, Oscillator Strengths, and Transition Probabilities for Electric Dipole (E1) Transitions among LSJ Levels in Si VII integer*4 nr__1 parameter (nr__1=1156) ! Number of records character*98 ar__1 ! Full-size record character*26 i ! Initial Level character*26 f ! Final Level integer*4 gi ! [1/9] Initial level statistical weight integer*4 gf ! [1/11] Final level statistical weight real*8 Wave ! (0.1nm) Wavelength in Angstroms real*4 fL ! Length oscillator strength real*4 fV ! Velocity oscillator strength real*4 AL ! (s-1) Transition probability c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Effective Collision Strengths for Fine-Structure Transitions among the 92 LSJ Levels of Si VII integer*4 nr__2 parameter (nr__2=4186) ! Number of records character*101 ar__2 ! Full-size record integer*4 i_1 ! [1/91] Initial level integer*4 f_1 ! [2/92] Final level real*4 CS0_5 ! Effective collision strength at 5000 K real*4 CS1 ! Effective collision strength at 10000 K real*4 CS2_5 ! Effective collision strength at 25000 K real*4 CS5 ! Effective collision strength at 50000 K real*4 CS7_5 ! Effective collision strength at 75000 K real*4 CS10 ! Effective collision strength at 100000 K real*4 CS20 ! Effective collision strength at 200000 K real*4 CS40 ! Effective collision strength at 400000 K real*4 CS60 ! Effective collision strength at 600000 K real*4 CS80 ! Effective collision strength at 800000 K real*4 CS100 ! Effective collision strength at 1000000 K real*4 CS200 ! Effective collision strength at 2000000 K C============================================================================= C Loading file 'table1.dat' ! Comparison of Energy Levels and Lifetimes in * Si VII C Format for file interpretation 1 format( + I2,1X,A30,1X,F8.5,1X,F8.5,1X,F8.5,A1,1X,F8.5,1X,F8.5,1X,F7.5, + 1X,E7.3,1X,E7.3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,92 read(1,'(A103)')ar__ read(ar__,1) + Index,Coupling,Ea,Eb,EObs,n_EObs,ECCF,EBHA,EBZ,LifeP,LifeCFF if(ar__(53:60) .EQ. '') EObs = rNULL__ if(ar__(63:70) .EQ. '') ECCF = rNULL__ if(ar__(72:79) .EQ. '') EBHA = rNULL__ if(ar__(81:87) .EQ. '') EBZ = rNULL__ if(ar__(89:95) .EQ. '') LifeP = rNULL__ if(ar__(97:103) .EQ. '') LifeCFF = rNULL__ c ..............Just test output........... write(6,1) + Index,Coupling,Ea,Eb,EObs,n_EObs,ECCF,EBHA,EBZ,LifeP,LifeCFF c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Wavelengths, Oscillator Strengths, and * Transition Probabilities for Electric Dipole * (E1) Transitions among LSJ Levels in Si VII C Format for file interpretation 2 format(A26,1X,A26,1X,I1,1X,I2,1X,F9.3,1X,E9.3,1X,E9.3,1X,E9.3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,1156 read(1,'(A98)')ar__1 read(ar__1,2)i,f,gi,gf,Wave,fL,fV,AL c ..............Just test output........... write(6,2)i,f,gi,gf,Wave,fL,fV,AL c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Effective Collision Strengths for * Fine-Structure Transitions among the 92 LSJ * Levels of Si VII C Format for file interpretation 3 format( + I2,1X,I2,1X,E7.2,1X,E7.2,1X,E7.2,1X,E7.2,1X,E7.2,1X,E7.2,1X, + E7.2,1X,E7.2,1X,E7.2,1X,E7.2,1X,E7.2,1X,E7.2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,4186 read(1,'(A101)')ar__2 read(ar__2,3) + i_1,f_1,CS0_5,CS1,CS2_5,CS5,CS7_5,CS10,CS20,CS40,CS60,CS80, + CS100,CS200 c ..............Just test output........... write(6,3) + i_1,f_1,CS0_5,CS1,CS2_5,CS5,CS7_5,CS10,CS20,CS40,CS60,CS80, + CS100,CS200 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end