Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/185/477 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.5, on 2013-May-25
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/ApJS/185/477 N K-shell photoabsorption (Garcia+, 2009)
*================================================================================
*Nitrogen K-shell photoabsorption.
* Garcia J., Kallman T.R., Witthoeft M., Behar E., Mendoza C., Palmeri P.,
* Quinet P., Bautista M.A., Klapisch M.
* <Astrophys. J. Suppl. Ser., 185, 477-485 (2009)>
* =2009ApJS..185..477G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Valence and Auger levels for nitrogen ions
integer*4 nr__
parameter (nr__=201) ! Number of records
character*89 ar__ ! Full-size record
integer*4 N ! [1/7] Ion electron occupancy
integer*4 i ! [1/50] Level index
integer*4 v2S_1 ! [1/6] Spin multiplicity
integer*4 L ! [0/2] Total orbital angular momentum quantum
* number
integer*4 v2J ! [0/7] The 2*(Total angular momentum quantum
* number)
character*25 Config ! Electron configuration assignment
real*8 Energy ! (eV) Level energy
real*4 Ar ! (s-1) Level radiative width
real*4 Aa ! (s-1) Level Auger width
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table11.dat' ! Radiative K-transition data nitrogen ions
integer*4 nr__1
parameter (nr__1=668) ! Number of records
character*49 ar__1 ! Full-size record
integer*4 N_1 ! [1/7] Ion electron occupancy
integer*4 j ! [3/50] Upper level index
integer*4 i_1 ! [1/20] Lower level index
real*8 lambda ! (0.1nm) Transition wavelength
real*4 Aji ! (s-1) Transition probability
real*4 gf ! Weighted oscillator strength
C=============================================================================
C Loading file 'table10.dat' ! Valence and Auger levels for nitrogen ions
C Format for file interpretation
1 format(I5,I5,I5,I5,I5,5X,A25,F10.4,E12.2,E12.2)
C Effective file loading
open(unit=1,file='table10.dat', status='old')
write(6,*) '....Loading file: table10.dat'
do i__=1,201
read(1,'(A89)')ar__
read(ar__,1)N,i,v2S_1,L,v2J,Config,Energy,Ar,Aa
c ..............Just test output...........
write(6,1)N,i,v2S_1,L,v2J,Config,Energy,Ar,Aa
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table11.dat' ! Radiative K-transition data nitrogen ions
C Format for file interpretation
2 format(I5,I5,I5,F10.4,E12.2,E12.2)
C Effective file loading
open(unit=1,file='table11.dat', status='old')
write(6,*) '....Loading file: table11.dat'
do i__=1,668
read(1,'(A49)')ar__1
read(ar__1,2)N_1,j,i_1,lambda,Aji,gf
c ..............Just test output...........
write(6,2)N_1,j,i_1,lambda,Aji,gf
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end