Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/196/24 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/ApJS/196/24 Electron-impact excitation of CrII (Wasson+, 2011)
*================================================================================
*Electron-impact excitation of Cr II: a theoretical calculation of effective
*collision strengths for optically allowed transitions.
* Wasson I.R., Ramsbottom C.A., Scott M.P.
* <Astrophys. J. Suppl. Ser., 196, 24 (2011)>
* =2011ApJS..196...24W
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Energy levels for all fine-structure target
states of CrII considered in the present work
integer*4 nr__
parameter (nr__=280) ! Number of records
character*40 ar__ ! Full-size record
integer*4 Index (nr__) ! [1,280] Index value
character*13 Config (nr__) ! Configuration
character*7 LS (nr__) ! LS state
character*4 J (nr__) ! Level
real*8 E (nr__) ! (Ry) Energy (in Rydbergs relative to the
* 3d^5^ ^6^S^e^_5/2_ ground state)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Theoretical oscillator strengths and transition
probabilities between all allowed fine structure
transitions of Cr II
integer*4 nr__1
parameter (nr__1=8341) ! Number of records
character*69 ar__1 ! Full-size record
integer*4 i (nr__1) ! [1,272] Lower level
integer*4 j_1 (nr__1) ! [75,274] Upper level
character*4 J_i (nr__1) ! Lower level angular momentum
character*4 J_j (nr__1) ! Upper level angular momentum
real*8 dE (nr__1) ! (eV) Energy difference between upper and lower levels
real*4 Flen (nr__1) ! Length oscillator strength
real*4 Fvel (nr__1) ! Velocity oscillator strength
real*4 Alen (nr__1) ! Length transition probability
real*4 Avel (nr__1) ! Velocity transition probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Maxwellian averaged effective collision strengths
against temperature for allowed fine structure
transitions of Cr II. Configurations are indexed
by Table 1.
integer*4 nr__2
parameter (nr__2=8669) ! Number of records
character*169 ar__2 ! Full-size record
integer*4 i_1 (nr__2) ! [1,272] Lower level
integer*4 j_2 (nr__2) ! [75,280] Upper level
real*4 ECS2k (nr__2) ! Effective collision strength at 2000K
real*4 ECS2_3k (nr__2) ! Effective collision strength at 2300K
real*4 ECS2_5k (nr__2) ! Effective collision strength at 2500K
real*4 ECS5k (nr__2) ! Effective collision strength at 5000K
real*4 ECS7_5k (nr__2) ! Effective collision strength at 7500K
real*4 ECS10k (nr__2) ! Effective collision strength at 10000K
real*4 ECS13k (nr__2) ! Effective collision strength at 13000K
real*4 ECS15k (nr__2) ! Effective collision strength at 15000K
real*4 ECS18k (nr__2) ! Effective collision strength at 18000K
real*4 ECS20k (nr__2) ! Effective collision strength at 20000K
real*4 ECS30k (nr__2) ! Effective collision strength at 30000K
real*4 ECS40k (nr__2) ! Effective collision strength at 40000K
real*4 ECS50k (nr__2) ! Effective collision strength at 50000K
real*4 ECS60k (nr__2) ! Effective collision strength at 60000K
real*4 ECS70k (nr__2) ! Effective collision strength at 70000K
real*4 ECS80k (nr__2) ! Effective collision strength at 80000K
real*4 ECS90k (nr__2) ! Effective collision strength at 90000K
real*4 ECS100k (nr__2) ! Effective collision strength at 100000K
C=============================================================================
C Loading file 'table1.dat' ! Energy levels for all fine-structure target
* states of CrII considered in the present work
C Format for file interpretation
1 format(I3,1X,A13,1X,A7,1X,A4,1X,F9.7)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,280
read(1,'(A40)')ar__
read(ar__,1)Index(i__),Config(i__),LS(i__),J(i__),E(i__)
c ..............Just test output...........
write(6,1)Index(i__),Config(i__),LS(i__),J(i__),E(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Theoretical oscillator strengths and transition
* probabilities between all allowed fine structure
* transitions of Cr II
C Format for file interpretation
2 format(
+ I3,1X,I3,1X,A4,1X,A4,1X,F7.5,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,8341
read(1,'(A69)')ar__1
read(ar__1,2)
+ i(i__),j_1(i__),J_i(i__),J_j(i__),dE(i__),Flen(i__),Fvel(i__),
+ Alen(i__),Avel(i__)
c ..............Just test output...........
write(6,2)
+ i(i__),j_1(i__),J_i(i__),J_j(i__),dE(i__),Flen(i__),Fvel(i__),
+ Alen(i__),Avel(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Maxwellian averaged effective collision strengths
* against temperature for allowed fine structure
* transitions of Cr II. Configurations are indexed
* by Table 1.
C Format for file interpretation
3 format(
+ I3,1X,I3,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,
+ E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2,
+ 1X,E8.2,1X,E8.2,1X,E8.2,1X,E8.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,8669
read(1,'(A169)')ar__2
read(ar__2,3)
+ i_1(i__),j_2(i__),ECS2k(i__),ECS2_3k(i__),ECS2_5k(i__),
+ ECS5k(i__),ECS7_5k(i__),ECS10k(i__),ECS13k(i__),ECS15k(i__),
+ ECS18k(i__),ECS20k(i__),ECS30k(i__),ECS40k(i__),ECS50k(i__),
+ ECS60k(i__),ECS70k(i__),ECS80k(i__),ECS90k(i__),ECS100k(i__)
c ..............Just test output...........
write(6,3)
+ i_1(i__),j_2(i__),ECS2k(i__),ECS2_3k(i__),ECS2_5k(i__),
+ ECS5k(i__),ECS7_5k(i__),ECS10k(i__),ECS13k(i__),ECS15k(i__),
+ ECS18k(i__),ECS20k(i__),ECS30k(i__),ECS40k(i__),ECS50k(i__),
+ ECS60k(i__),ECS70k(i__),ECS80k(i__),ECS90k(i__),ECS100k(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end