Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/74/291 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.5, on 2013-Jun-20
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/74/291 Relativistic Free-Free Gaunt Factor. II. (Itoh+ 1990)
*================================================================================
*Relativistic Free-Free Gaunt Factor of the Dense High-Temperature Stellar
*Plasma. II. Carbon and Oxygen Plasmas
* Itoh N., Kojo K., Nakagawa M.
* <Astrophys. J. Suppl. Ser. 74, 291 (1990)>
* =1990ApJS...74..291I
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! *<<g_ff>>, degeneracy parameter {eta}=-6.0
integer*4 nr__
parameter (nr__=120) ! Number of records
character*117 ar__ ! Full-size record
real*4 Logu (nr__) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem (nr__) ! *Element for Gaunt factor calculation
real*4 G_4_0 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5 (nr__) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0 (nr__) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_1 (nr__) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! <<g_ff>>, degeneracy parameter {eta}=-2.0
integer*4 nr__1
parameter (nr__1=120) ! Number of records
character*117 ar__1 ! Full-size record
real*4 Logu_1 (nr__1) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_1 (nr__1) ! *Element for Gaunt factor calculation
real*4 G_4_0_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_2 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_1 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_3 (nr__1) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! <<g_ff>>, degeneracy parameter {eta}= 0.0
integer*4 nr__2
parameter (nr__2=120) ! Number of records
character*117 ar__2 ! Full-size record
real*4 Logu_2 (nr__2) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_2 (nr__2) ! *Element for Gaunt factor calculation
real*4 G_4_0_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_4 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_2 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_5 (nr__2) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! <<g_ff>>, degeneracy parameter {eta}= 1.0
integer*4 nr__3
parameter (nr__3=120) ! Number of records
character*117 ar__3 ! Full-size record
real*4 Logu_3 (nr__3) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_3 (nr__3) ! *Element for Gaunt factor calculation
real*4 G_4_0_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_6 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_3 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_7 (nr__3) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! <<g_ff>>, degeneracy parameter {eta}= 2.0
integer*4 nr__4
parameter (nr__4=120) ! Number of records
character*117 ar__4 ! Full-size record
real*4 Logu_4 (nr__4) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_4 (nr__4) ! *Element for Gaunt factor calculation
real*4 G_4_0_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_8 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_4 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_9 (nr__4) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! <<g_ff>>, degeneracy parameter {eta}= 3.0
integer*4 nr__5
parameter (nr__5=120) ! Number of records
character*117 ar__5 ! Full-size record
real*4 Logu_5 (nr__5) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_5 (nr__5) ! *Element for Gaunt factor calculation
real*4 G_4_0_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_10 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_5 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_11 (nr__5) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! <<g_ff>>, degeneracy parameter {eta}= 5.0
integer*4 nr__6
parameter (nr__6=120) ! Number of records
character*117 ar__6 ! Full-size record
real*4 Logu_6 (nr__6) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_6 (nr__6) ! *Element for Gaunt factor calculation
real*4 G_4_0_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_12 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_6 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_13 (nr__6) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! <<g_ff>>, degeneracy parameter {eta}=10.0
integer*4 nr__7
parameter (nr__7=120) ! Number of records
character*117 ar__7 ! Full-size record
real*4 Logu_7 (nr__7) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_7 (nr__7) ! *Element for Gaunt factor calculation
real*4 G_4_0_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_14 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_7 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_15 (nr__7) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! <<g_ff>>, degeneracy parameter {eta}=20.0
integer*4 nr__8
parameter (nr__8=120) ! Number of records
character*117 ar__8 ! Full-size record
real*4 Logu_8 (nr__8) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_8 (nr__8) ! *Element for Gaunt factor calculation
real*4 G_4_0_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_16 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_8 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_17 (nr__8) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! <<g_ff>>, degeneracy parameter {eta}=40.0
integer*4 nr__9
parameter (nr__9=120) ! Number of records
character*117 ar__9 ! Full-size record
real*4 Logu_9 (nr__9) ! *Log u, u=(h_bar_*{omega})/kT
character*2 Elem_9 (nr__9) ! *Element for Gaunt factor calculation
real*4 G_4_0_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -4.0
real*4 G_3_5_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -3.5
real*4 G_3_0_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -3.0
real*4 G_2_5_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -2.5
real*4 G_2_0_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -2.0
real*4 G_1_5_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -1.5
real*4 G_1_0_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -1.0
real*4 G_0_5_18 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= -0.5
real*4 G_0_0_9 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= 0.0
real*4 G_0_5_19 (nr__9) ! ? Gaunt factor, log({gamma}^2^)= 0.5
*Note on Logu:
* Log u, where u=(h_bar_*{omega})/kT, and {omega} is the angular
* frequency of the absorbed photon.
*Note on Elem:
* The free-free Gaunt factor was calculated for the following:
* H - thermally averaged relativistic carbon
* He - thermally averaged relativistic oxygen
* G - thermally averaged nonrelativistic free-free Gaunt factor
C=============================================================================
C Loading file 'table1.dat' ! *<<g_ff>>, degeneracy parameter {eta}=-6.0
C Format for file interpretation
1 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,120
read(1,'(A117)')ar__
read(ar__,1)
+ Logu(i__),Elem(i__),G_4_0(i__),G_3_5(i__),G_3_0(i__),
+ G_2_5(i__),G_2_0(i__),G_1_5(i__),G_1_0(i__),G_0_5(i__),
+ G_0_0(i__),G_0_5_1(i__)
if(ar__(10:18) .EQ. '') G_4_0(i__) = rNULL__
if(ar__(21:29) .EQ. '') G_3_5(i__) = rNULL__
if(ar__(32:40) .EQ. '') G_3_0(i__) = rNULL__
if(ar__(43:51) .EQ. '') G_2_5(i__) = rNULL__
if(ar__(54:62) .EQ. '') G_2_0(i__) = rNULL__
if(ar__(65:73) .EQ. '') G_1_5(i__) = rNULL__
if(ar__(76:84) .EQ. '') G_1_0(i__) = rNULL__
if(ar__(87:95) .EQ. '') G_0_5(i__) = rNULL__
if(ar__(98:106) .EQ. '') G_0_0(i__) = rNULL__
if(ar__(109:117) .EQ. '') G_0_5_1(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Logu(i__),Elem(i__),G_4_0(i__),G_3_5(i__),G_3_0(i__),
+ G_2_5(i__),G_2_0(i__),G_1_5(i__),G_1_0(i__),G_0_5(i__),
+ G_0_0(i__),G_0_5_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! <<g_ff>>, degeneracy parameter {eta}=-2.0
C Format for file interpretation
2 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,120
read(1,'(A117)')ar__1
read(ar__1,2)
+ Logu_1(i__),Elem_1(i__),G_4_0_1(i__),G_3_5_1(i__),
+ G_3_0_1(i__),G_2_5_1(i__),G_2_0_1(i__),G_1_5_1(i__),
+ G_1_0_1(i__),G_0_5_2(i__),G_0_0_1(i__),G_0_5_3(i__)
if(ar__1(10:18) .EQ. '') G_4_0_1(i__) = rNULL__
if(ar__1(21:29) .EQ. '') G_3_5_1(i__) = rNULL__
if(ar__1(32:40) .EQ. '') G_3_0_1(i__) = rNULL__
if(ar__1(43:51) .EQ. '') G_2_5_1(i__) = rNULL__
if(ar__1(54:62) .EQ. '') G_2_0_1(i__) = rNULL__
if(ar__1(65:73) .EQ. '') G_1_5_1(i__) = rNULL__
if(ar__1(76:84) .EQ. '') G_1_0_1(i__) = rNULL__
if(ar__1(87:95) .EQ. '') G_0_5_2(i__) = rNULL__
if(ar__1(98:106) .EQ. '') G_0_0_1(i__) = rNULL__
if(ar__1(109:117) .EQ. '') G_0_5_3(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Logu_1(i__),Elem_1(i__),G_4_0_1(i__),G_3_5_1(i__),
+ G_3_0_1(i__),G_2_5_1(i__),G_2_0_1(i__),G_1_5_1(i__),
+ G_1_0_1(i__),G_0_5_2(i__),G_0_0_1(i__),G_0_5_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! <<g_ff>>, degeneracy parameter {eta}= 0.0
C Format for file interpretation
3 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,120
read(1,'(A117)')ar__2
read(ar__2,3)
+ Logu_2(i__),Elem_2(i__),G_4_0_2(i__),G_3_5_2(i__),
+ G_3_0_2(i__),G_2_5_2(i__),G_2_0_2(i__),G_1_5_2(i__),
+ G_1_0_2(i__),G_0_5_4(i__),G_0_0_2(i__),G_0_5_5(i__)
if(ar__2(10:18) .EQ. '') G_4_0_2(i__) = rNULL__
if(ar__2(21:29) .EQ. '') G_3_5_2(i__) = rNULL__
if(ar__2(32:40) .EQ. '') G_3_0_2(i__) = rNULL__
if(ar__2(43:51) .EQ. '') G_2_5_2(i__) = rNULL__
if(ar__2(54:62) .EQ. '') G_2_0_2(i__) = rNULL__
if(ar__2(65:73) .EQ. '') G_1_5_2(i__) = rNULL__
if(ar__2(76:84) .EQ. '') G_1_0_2(i__) = rNULL__
if(ar__2(87:95) .EQ. '') G_0_5_4(i__) = rNULL__
if(ar__2(98:106) .EQ. '') G_0_0_2(i__) = rNULL__
if(ar__2(109:117) .EQ. '') G_0_5_5(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ Logu_2(i__),Elem_2(i__),G_4_0_2(i__),G_3_5_2(i__),
+ G_3_0_2(i__),G_2_5_2(i__),G_2_0_2(i__),G_1_5_2(i__),
+ G_1_0_2(i__),G_0_5_4(i__),G_0_0_2(i__),G_0_5_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! <<g_ff>>, degeneracy parameter {eta}= 1.0
C Format for file interpretation
4 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,120
read(1,'(A117)')ar__3
read(ar__3,4)
+ Logu_3(i__),Elem_3(i__),G_4_0_3(i__),G_3_5_3(i__),
+ G_3_0_3(i__),G_2_5_3(i__),G_2_0_3(i__),G_1_5_3(i__),
+ G_1_0_3(i__),G_0_5_6(i__),G_0_0_3(i__),G_0_5_7(i__)
if(ar__3(10:18) .EQ. '') G_4_0_3(i__) = rNULL__
if(ar__3(21:29) .EQ. '') G_3_5_3(i__) = rNULL__
if(ar__3(32:40) .EQ. '') G_3_0_3(i__) = rNULL__
if(ar__3(43:51) .EQ. '') G_2_5_3(i__) = rNULL__
if(ar__3(54:62) .EQ. '') G_2_0_3(i__) = rNULL__
if(ar__3(65:73) .EQ. '') G_1_5_3(i__) = rNULL__
if(ar__3(76:84) .EQ. '') G_1_0_3(i__) = rNULL__
if(ar__3(87:95) .EQ. '') G_0_5_6(i__) = rNULL__
if(ar__3(98:106) .EQ. '') G_0_0_3(i__) = rNULL__
if(ar__3(109:117) .EQ. '') G_0_5_7(i__) = rNULL__
c ..............Just test output...........
write(6,4)
+ Logu_3(i__),Elem_3(i__),G_4_0_3(i__),G_3_5_3(i__),
+ G_3_0_3(i__),G_2_5_3(i__),G_2_0_3(i__),G_1_5_3(i__),
+ G_1_0_3(i__),G_0_5_6(i__),G_0_0_3(i__),G_0_5_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! <<g_ff>>, degeneracy parameter {eta}= 2.0
C Format for file interpretation
5 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table5.dat', status='old')
write(6,*) '....Loading file: table5.dat'
do i__=1,120
read(1,'(A117)')ar__4
read(ar__4,5)
+ Logu_4(i__),Elem_4(i__),G_4_0_4(i__),G_3_5_4(i__),
+ G_3_0_4(i__),G_2_5_4(i__),G_2_0_4(i__),G_1_5_4(i__),
+ G_1_0_4(i__),G_0_5_8(i__),G_0_0_4(i__),G_0_5_9(i__)
if(ar__4(10:18) .EQ. '') G_4_0_4(i__) = rNULL__
if(ar__4(21:29) .EQ. '') G_3_5_4(i__) = rNULL__
if(ar__4(32:40) .EQ. '') G_3_0_4(i__) = rNULL__
if(ar__4(43:51) .EQ. '') G_2_5_4(i__) = rNULL__
if(ar__4(54:62) .EQ. '') G_2_0_4(i__) = rNULL__
if(ar__4(65:73) .EQ. '') G_1_5_4(i__) = rNULL__
if(ar__4(76:84) .EQ. '') G_1_0_4(i__) = rNULL__
if(ar__4(87:95) .EQ. '') G_0_5_8(i__) = rNULL__
if(ar__4(98:106) .EQ. '') G_0_0_4(i__) = rNULL__
if(ar__4(109:117) .EQ. '') G_0_5_9(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ Logu_4(i__),Elem_4(i__),G_4_0_4(i__),G_3_5_4(i__),
+ G_3_0_4(i__),G_2_5_4(i__),G_2_0_4(i__),G_1_5_4(i__),
+ G_1_0_4(i__),G_0_5_8(i__),G_0_0_4(i__),G_0_5_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! <<g_ff>>, degeneracy parameter {eta}= 3.0
C Format for file interpretation
6 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table6.dat', status='old')
write(6,*) '....Loading file: table6.dat'
do i__=1,120
read(1,'(A117)')ar__5
read(ar__5,6)
+ Logu_5(i__),Elem_5(i__),G_4_0_5(i__),G_3_5_5(i__),
+ G_3_0_5(i__),G_2_5_5(i__),G_2_0_5(i__),G_1_5_5(i__),
+ G_1_0_5(i__),G_0_5_10(i__),G_0_0_5(i__),G_0_5_11(i__)
if(ar__5(10:18) .EQ. '') G_4_0_5(i__) = rNULL__
if(ar__5(21:29) .EQ. '') G_3_5_5(i__) = rNULL__
if(ar__5(32:40) .EQ. '') G_3_0_5(i__) = rNULL__
if(ar__5(43:51) .EQ. '') G_2_5_5(i__) = rNULL__
if(ar__5(54:62) .EQ. '') G_2_0_5(i__) = rNULL__
if(ar__5(65:73) .EQ. '') G_1_5_5(i__) = rNULL__
if(ar__5(76:84) .EQ. '') G_1_0_5(i__) = rNULL__
if(ar__5(87:95) .EQ. '') G_0_5_10(i__) = rNULL__
if(ar__5(98:106) .EQ. '') G_0_0_5(i__) = rNULL__
if(ar__5(109:117) .EQ. '') G_0_5_11(i__) = rNULL__
c ..............Just test output...........
write(6,6)
+ Logu_5(i__),Elem_5(i__),G_4_0_5(i__),G_3_5_5(i__),
+ G_3_0_5(i__),G_2_5_5(i__),G_2_0_5(i__),G_1_5_5(i__),
+ G_1_0_5(i__),G_0_5_10(i__),G_0_0_5(i__),G_0_5_11(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! <<g_ff>>, degeneracy parameter {eta}= 5.0
C Format for file interpretation
7 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table7.dat', status='old')
write(6,*) '....Loading file: table7.dat'
do i__=1,120
read(1,'(A117)')ar__6
read(ar__6,7)
+ Logu_6(i__),Elem_6(i__),G_4_0_6(i__),G_3_5_6(i__),
+ G_3_0_6(i__),G_2_5_6(i__),G_2_0_6(i__),G_1_5_6(i__),
+ G_1_0_6(i__),G_0_5_12(i__),G_0_0_6(i__),G_0_5_13(i__)
if(ar__6(10:18) .EQ. '') G_4_0_6(i__) = rNULL__
if(ar__6(21:29) .EQ. '') G_3_5_6(i__) = rNULL__
if(ar__6(32:40) .EQ. '') G_3_0_6(i__) = rNULL__
if(ar__6(43:51) .EQ. '') G_2_5_6(i__) = rNULL__
if(ar__6(54:62) .EQ. '') G_2_0_6(i__) = rNULL__
if(ar__6(65:73) .EQ. '') G_1_5_6(i__) = rNULL__
if(ar__6(76:84) .EQ. '') G_1_0_6(i__) = rNULL__
if(ar__6(87:95) .EQ. '') G_0_5_12(i__) = rNULL__
if(ar__6(98:106) .EQ. '') G_0_0_6(i__) = rNULL__
if(ar__6(109:117) .EQ. '') G_0_5_13(i__) = rNULL__
c ..............Just test output...........
write(6,7)
+ Logu_6(i__),Elem_6(i__),G_4_0_6(i__),G_3_5_6(i__),
+ G_3_0_6(i__),G_2_5_6(i__),G_2_0_6(i__),G_1_5_6(i__),
+ G_1_0_6(i__),G_0_5_12(i__),G_0_0_6(i__),G_0_5_13(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! <<g_ff>>, degeneracy parameter {eta}=10.0
C Format for file interpretation
8 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table8.dat', status='old')
write(6,*) '....Loading file: table8.dat'
do i__=1,120
read(1,'(A117)')ar__7
read(ar__7,8)
+ Logu_7(i__),Elem_7(i__),G_4_0_7(i__),G_3_5_7(i__),
+ G_3_0_7(i__),G_2_5_7(i__),G_2_0_7(i__),G_1_5_7(i__),
+ G_1_0_7(i__),G_0_5_14(i__),G_0_0_7(i__),G_0_5_15(i__)
if(ar__7(10:18) .EQ. '') G_4_0_7(i__) = rNULL__
if(ar__7(21:29) .EQ. '') G_3_5_7(i__) = rNULL__
if(ar__7(32:40) .EQ. '') G_3_0_7(i__) = rNULL__
if(ar__7(43:51) .EQ. '') G_2_5_7(i__) = rNULL__
if(ar__7(54:62) .EQ. '') G_2_0_7(i__) = rNULL__
if(ar__7(65:73) .EQ. '') G_1_5_7(i__) = rNULL__
if(ar__7(76:84) .EQ. '') G_1_0_7(i__) = rNULL__
if(ar__7(87:95) .EQ. '') G_0_5_14(i__) = rNULL__
if(ar__7(98:106) .EQ. '') G_0_0_7(i__) = rNULL__
if(ar__7(109:117) .EQ. '') G_0_5_15(i__) = rNULL__
c ..............Just test output...........
write(6,8)
+ Logu_7(i__),Elem_7(i__),G_4_0_7(i__),G_3_5_7(i__),
+ G_3_0_7(i__),G_2_5_7(i__),G_2_0_7(i__),G_1_5_7(i__),
+ G_1_0_7(i__),G_0_5_14(i__),G_0_0_7(i__),G_0_5_15(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! <<g_ff>>, degeneracy parameter {eta}=20.0
C Format for file interpretation
9 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table9.dat', status='old')
write(6,*) '....Loading file: table9.dat'
do i__=1,120
read(1,'(A117)')ar__8
read(ar__8,9)
+ Logu_8(i__),Elem_8(i__),G_4_0_8(i__),G_3_5_8(i__),
+ G_3_0_8(i__),G_2_5_8(i__),G_2_0_8(i__),G_1_5_8(i__),
+ G_1_0_8(i__),G_0_5_16(i__),G_0_0_8(i__),G_0_5_17(i__)
if(ar__8(10:18) .EQ. '') G_4_0_8(i__) = rNULL__
if(ar__8(21:29) .EQ. '') G_3_5_8(i__) = rNULL__
if(ar__8(32:40) .EQ. '') G_3_0_8(i__) = rNULL__
if(ar__8(43:51) .EQ. '') G_2_5_8(i__) = rNULL__
if(ar__8(54:62) .EQ. '') G_2_0_8(i__) = rNULL__
if(ar__8(65:73) .EQ. '') G_1_5_8(i__) = rNULL__
if(ar__8(76:84) .EQ. '') G_1_0_8(i__) = rNULL__
if(ar__8(87:95) .EQ. '') G_0_5_16(i__) = rNULL__
if(ar__8(98:106) .EQ. '') G_0_0_8(i__) = rNULL__
if(ar__8(109:117) .EQ. '') G_0_5_17(i__) = rNULL__
c ..............Just test output...........
write(6,9)
+ Logu_8(i__),Elem_8(i__),G_4_0_8(i__),G_3_5_8(i__),
+ G_3_0_8(i__),G_2_5_8(i__),G_2_0_8(i__),G_1_5_8(i__),
+ G_1_0_8(i__),G_0_5_16(i__),G_0_0_8(i__),G_0_5_17(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! <<g_ff>>, degeneracy parameter {eta}=40.0
C Format for file interpretation
10 format(
+ F4.1,1X,A2,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,E9.3,2X,
+ E9.3,2X,E9.3,2X,E9.3,2X,E9.3)
C Effective file loading
open(unit=1,file='table10.dat', status='old')
write(6,*) '....Loading file: table10.dat'
do i__=1,120
read(1,'(A117)')ar__9
read(ar__9,10)
+ Logu_9(i__),Elem_9(i__),G_4_0_9(i__),G_3_5_9(i__),
+ G_3_0_9(i__),G_2_5_9(i__),G_2_0_9(i__),G_1_5_9(i__),
+ G_1_0_9(i__),G_0_5_18(i__),G_0_0_9(i__),G_0_5_19(i__)
if(ar__9(10:18) .EQ. '') G_4_0_9(i__) = rNULL__
if(ar__9(21:29) .EQ. '') G_3_5_9(i__) = rNULL__
if(ar__9(32:40) .EQ. '') G_3_0_9(i__) = rNULL__
if(ar__9(43:51) .EQ. '') G_2_5_9(i__) = rNULL__
if(ar__9(54:62) .EQ. '') G_2_0_9(i__) = rNULL__
if(ar__9(65:73) .EQ. '') G_1_5_9(i__) = rNULL__
if(ar__9(76:84) .EQ. '') G_1_0_9(i__) = rNULL__
if(ar__9(87:95) .EQ. '') G_0_5_18(i__) = rNULL__
if(ar__9(98:106) .EQ. '') G_0_0_9(i__) = rNULL__
if(ar__9(109:117) .EQ. '') G_0_5_19(i__) = rNULL__
c ..............Just test output...........
write(6,10)
+ Logu_9(i__),Elem_9(i__),G_4_0_9(i__),G_3_5_9(i__),
+ G_3_0_9(i__),G_2_5_9(i__),G_2_0_9(i__),G_1_5_9(i__),
+ G_1_0_9(i__),G_0_5_18(i__),G_0_0_9(i__),G_0_5_19(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end