Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/229/37 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-29 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/ApJS/229/37 Energy levels & transition rates of O-like ions (Wang+, 2017) *================================================================================ *Extended calculations of spectroscopic data: energy levels, lifetimes, and *transition rates for O-like ions from Cr XVII to Zn XXIII. * Wang K., Jonsson P., Ekman J., Gaigalas G., Godefroid M.R., Si R., * Chen Z.B., Li S., Chen C.Y., Yan J. * <Astrophys. J. Suppl. Ser., 229, 37-37 (2017)> * =2017ApJS..229...37W (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Excitation energies and lifetimes for the lowest 200 levels of O-like ions with Z=24-30 integer*4 nr__ parameter (nr__=1400) ! Number of records character*157 ar__ ! Full-size record integer*4 Z ! [24/30] Atomic number integer*4 Key ! [1/200] Key number character*18 Config ! Configuration character*7 Term ! LSJ Term real*4 E_NIST ! (cm-1) ? Energy levels, NIST (1) real*4 E_MCDHF_RCI ! (cm-1) ?=0 Energy levels, MCDHF/RCI calculation real*4 E_MBPT ! (cm-1) ?=0 Energy levels, MBPT calculation real*4 tauMCDHF_RCI ! (s) ? Lifetimes, MCDHF/RCI calculation real*4 tauMBPT ! (s) ? Lifetimes, MBPT calculation character*51 LSJ ! LSJ coupling expansion coefficients *Note (1): From the NIST ASD -- Kramida, A., Ralchenko, Yu., Reader, J. and * NIST ASD Team (20l6). NIST Atomic Spectra Database (version 5.3); * Available: http://physics.nist.gov/asd [May 10 2016]. * National Institute of Standards and Technology, Gaithersburg, MD. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Energy levels relative to the ground state for the lowest 200 states of Fe XIX integer*4 nr__1 parameter (nr__1=200) ! Number of records character*78 ar__1 ! Full-size record integer*4 Key_1 ! [1/200] Key number character*18 Config_1 ! Configuration character*7 Term_1 ! LSJ Term integer*4 E1 ! (cm-1) ?=0 Energy levels, MCDHF/RCI calculation integer*4 E2 ! (cm-1) [-2496/414]?=0 Energy levels, MBPT calculation integer*4 E_NIST_1 ! (cm-1) [-20689/37628]? Energy levels, NIST (1) integer*4 E_CHIANTI ! (cm-1) [-15786/10404]? Energy levels, CHIANTI (1) integer*4 E_Landi ! (cm-1) [-13233/25898]?=0 Energy levels, Landi (1) integer*4 E_Butler ! (cm-1) [-946/30764]?=0 Energy levels, Butler (1) integer*4 E_Nahar ! (cm-1) [-51734/97145]?=0 Energy levels, Nahar (1) *Note (1): * E_NIST_ = Kramida et al. (http://physics.nist.gov/asd); * E_CHIANTI_ = Dere+ (1997, J/A+AS/125/149); Del Zanna+ (2015A&A...582A..56D); * E_Landi = Landi & Gu (2006ApJ...640.1171L); * E_Butler = Butler & Badnell (2008, J/A+A/489/1369); * E_Nahar = Nahar (2011ADNDT..97..403N). * For brevity, energies other than the present MCDHF/RCI * values are listed as differences from the latter ones in cm-1. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Transition data for O-like ions from Cr XVII to Zn XXIII integer*4 nr__2 parameter (nr__2=10406) ! Number of records character*110 ar__2 ! Full-size record integer*4 Z_1 ! [24/30] Atomic number integer*4 j ! [2/200] Upper level integer*4 i ! [1/179] Lower level character*2 Type ! Transition type real*4 lam1 ! (0.1nm) [8.5/7001.1] Wavelengths, * MCDHF/RCI calculation, Angstroms real*4 lam2 ! (0.1nm) [8.5/7086.3] Wavelengths, * MBPT calculation, Angstroms real*4 S1 ! [1e-6/2.4] Line strengths (in au), * MCDHF/RCI calculation real*4 gf1 ! [8.2e-11/4.9] Oscillator strengths, * MCDHF/RCI calculation real*4 A1 ! (s-1) Transition rates, MCDHF/RCI calculation real*4 S2 ! [9.1e-7/2.4] Line strengths (in au), * MBPT calculation real*4 gf2 ! [8.1e-11/4.8] Oscillator strengths, * MBPT calculation real*4 A2 ! (s-1) Transition rates, MBPT calculation character*2 Acc ! The estimated accuracies of the A-values * using the terminologies of the NIST ASD (1) *Note (1): From the NIST ASD -- Kramida, A., Ralchenko, Yu., Reader, J. and * NIST ASD Team (20l6). NIST Atomic Spectra Database (version 5.3), [Online]. * Available: http://physics.nist.gov/asd [May 10 2016]. * National Institute of Standards and Technology, Gaithersburg, MD. C============================================================================= C Loading file 'table1.dat' ! Excitation energies and lifetimes for the * lowest 200 levels of O-like ions with Z=24-30 C Format for file interpretation 1 format( + I2,2X,I3,3X,A18,4X,A7,5X,E12.6,1X,E12.6,1X,E12.6,2X,E9.3,2X, + E9.3,2X,A51) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,1400 read(1,'(A157)')ar__ read(ar__,1) + Z,Key,Config,Term,E_NIST,E_MCDHF_RCI,E_MBPT,tauMCDHF_RCI, + tauMBPT,LSJ if(ar__(45:56) .EQ. '') E_NIST = rNULL__ if(ar__(85:93) .EQ. '') tauMCDHF_RCI = rNULL__ if(ar__(96:104) .EQ. '') tauMBPT = rNULL__ c ..............Just test output........... write(6,1) + Z,Key,Config,Term,E_NIST,E_MCDHF_RCI,E_MBPT,tauMCDHF_RCI, + tauMBPT,LSJ c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Energy levels relative to the ground state for * the lowest 200 states of Fe XIX C Format for file interpretation 2 format( + I3,1X,A18,1X,A7,1X,I7,1X,I5,1X,I6,1X,I6,1X,I6,1X,I5,1X,I6) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,200 read(1,'(A78)')ar__1 read(ar__1,2) + Key_1,Config_1,Term_1,E1,E2,E_NIST_1,E_CHIANTI,E_Landi, + E_Butler,E_Nahar if(ar__1(46:51) .EQ. '') E_NIST_1 = iNULL__ if(ar__1(53:58) .EQ. '') E_CHIANTI = iNULL__ c ..............Just test output........... write(6,2) + Key_1,Config_1,Term_1,E1,E2,E_NIST_1,E_CHIANTI,E_Landi, + E_Butler,E_Nahar c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Transition data for O-like ions from Cr XVII * to Zn XXIII C Format for file interpretation 3 format( + I2,3X,I3,2X,I3,2X,A2,1X,E10.4,2X,E10.4,2X,E9.3,2X,E9.3,2X, + E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,A2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,10406 read(1,'(A110)')ar__2 read(ar__2,3)Z_1,j,i,Type,lam1,lam2,S1,gf1,A1,S2,gf2,A2,Acc c ..............Just test output........... write(6,3)Z_1,j,i,Type,lam1,lam2,S1,gf1,A1,S2,gf2,A2,Acc c .......End.of.Just test output........... end do close(1) C============================================================================= stop end