Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/686/448 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-Apr-16
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/686/448 Neutrino cross sections for SNe (Yoshida+, 2008)
*================================================================================
*Neutrino-nucleus reaction cross sections for light element synthesis in
*supernova explosions.
* Yoshida T., Suzuki T., Chiba S., Kajino T., Yokomakura H., Kimura K.,
* Takamura A., Hartmann D.H.
* <Astrophys. J., 686, 448-466 (2008)>
* =2008ApJ...686..448Y
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Neutrino-induced reaction cross sections of
^4^He with the use of the WBP Hamiltonian
(Warbutron & Brown 1992PhRvC..46..923W)
integer*4 nr__
parameter (nr__=180) ! Number of records
character*85 ar__ ! Full-size record
real*4 Enu ! (MeV) Energy of neutrino
real*4 C1 ! (10-42cm2) ?=0 The ({nu},{nu}'p)^3^H cross section
real*4 C2 ! (10-42cm2) ?=0 The ({nu},{nu}'n)^3^He cross section
real*4 C3 ! (10-42cm2) ?=0 The ({nu},{nu}'d)^2^H cross section
real*4 C4 ! (10-42cm2) ?=0 The ({nu},{nu}'nnp)^1^H cross section
real*4 C5 ! (10-42cm2) ?=0 The ({nu}_e_,e^-^p)^3^He cross section
real*4 C6 ! (10-42cm2) ?=0 The (anti{nu}_e_,e^+^n)^3^H cross section
real*4 C7 ! (10-42cm2) ?=0 The ({nu}_e_,e^-^pp)^2^H cross section
real*4 C8 ! (10-42cm2) ?=0 The (anti{nu}_e_,e^+^nn)^2^H cross section
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Neutrino-induced reaction cross sections of
^4^He with the use of the SPSDMK Hamiltonian
(Millener & Kurath 1975NuPhA.255..315M; Brown
et al. 1986, MSU Cyclotron Laboratory Rept. 524)
integer*4 nr__1
parameter (nr__1=180) ! Number of records
character*85 ar__1 ! Full-size record
real*4 Enu_1 ! (MeV) Energy of neutrino
real*4 C1_1 ! (10-42cm2) ?=0 The ({nu},{nu}'p)^3^H cross section
real*4 C2_1 ! (10-42cm2) ?=0 The ({nu},{nu}'n)^3^He cross section
real*4 C3_1 ! (10-42cm2) ?=0 The ({nu},{nu}'d)^2^H cross section
real*4 C4_1 ! (10-42cm2) ?=0 The ({nu},{nu}'nnp)^1^H cross section
real*4 C5_1 ! (10-42cm2) ?=0 The ({nu}_e_,e^-^p)^3^He cross section
real*4 C6_1 ! (10-42cm2) ?=0 The (anti{nu}_e_,e^+^n)^3^H cross section
real*4 C7_1 ! (10-42cm2) ?=0 The ({nu}_e_,e^-^pp)^2^H cross section
real*4 C8_1 ! (10-42cm2) ?=0 The (anti{nu}_e_,e^+^nn)^2^H cross section
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Neutrino-induced neutral-current reaction cross
sections of ^12^C based on the SFO Hamiltonian
(Suzuki et al. 2006PhRvC..74c4307S)
integer*4 nr__2
parameter (nr__2=180) ! Number of records
character*203 ar__2 ! Full-size record
integer*4 Enu_2 ! (MeV) Energy of neutrino
real*4 v12C ! (10-42cm2) ?=0 Decomposition rate of ^12^C
real*4 n ! (10-42cm2) ?=0 Neutron reaction cross section
real*4 p ! (10-42cm2) ?=0 Proton reaction cross section
real*4 d ! (10-42cm2) ?=0 Deuteron reaction cross section
real*4 t ! (10-42cm2) ?=0 The ^3^H reaction cross section
real*4 v3He ! (10-42cm2) ?=0 The ^3^He reaction cross section
real*4 v4He ! (10-42cm2) ?=0 The ^4^He reaction cross section
real*4 v6He ! (10-42cm2) ?=0 The ^6^He reaction cross section
real*4 v6Li ! (10-42cm2) ?=0 The ^6^Li reaction cross section
real*4 v7Li ! (10-42cm2) ?=0 The ^7^Li reaction cross section
real*4 v8Li ! (10-42cm2) ?=0 The ^8^Li reaction cross section
real*4 v9Li ! (10-42cm2) ?=0 The ^9^Li reaction cross section
real*4 v7Be ! (10-42cm2) ?=0 The ^7^Be reaction cross section
real*4 v9Be ! (10-42cm2) ?=0 The ^9^Be reaction cross section
real*4 v10Be ! (10-42cm2) ?=0 The ^10^Be reaction cross section
real*4 v8B ! (10-42cm2) ?=0 The ^8^B reaction cross section
real*4 v10B ! (10-42cm2) ?=0 The ^10^B reaction cross section
real*4 v11B ! (10-42cm2) ?=0 The ^11^B reaction cross section
real*4 v10C ! (10-42cm2) ?=0 The ^10^C reaction cross section
real*4 v11C ! (10-42cm2) ?=0 The ^11^C reaction cross section
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Neutrino-induced charged-current reaction cross
sections for {nu}_e_ of ^12^C based on the SFO
Hamiltonian
integer*4 nr__3
parameter (nr__3=179) ! Number of records
character*183 ar__3 ! Full-size record
integer*4 Enu_3 ! (MeV) Energy of neutrino
real*4 v12C_1 ! (10-42cm2) ?=0 Decomposition rate of ^12^C
real*4 n_1 ! (10-42cm2) ?=0 Neutron reaction cross section
real*4 p_1 ! (10-42cm2) ?=0 Proton reaction cross section
real*4 d_1 ! (10-42cm2) ?=0 Deuteron reaction cross section
real*4 t_1 ! (10-42cm2) ?=0 The ^3^H reaction cross section
real*4 v3He_1 ! (10-42cm2) ?=0 The ^3^He reaction cross section
real*4 v4He_1 ! (10-42cm2) ?=0 The ^4^He reaction cross section
real*4 v6Li_1 ! (10-42cm2) ?=0 The ^6^Li reaction cross section
real*4 v7Li_1 ! (10-42cm2) ?=0 The ^7^Li reaction cross section
real*4 v8Li_1 ! (10-42cm2) ?=0 The ^8^Li reaction cross section
real*4 v7Be_1 ! (10-42cm2) ?=0 The ^7^Be reaction cross section
real*4 v9Be_1 ! (10-42cm2) ?=0 The ^9^Be reaction cross section
real*4 v8B_1 ! (10-42cm2) ?=0 The ^8^B reaction cross section
real*4 v10B_1 ! (10-42cm2) ?=0 The ^10^B reaction cross section
real*4 v9C ! (10-42cm2) ?=0 The ^9^C reaction cross section
real*4 v10C_1 ! (10-42cm2) ?=0 The ^10^C reaction cross section
real*4 v11C_1 ! (10-42cm2) ?=0 The ^11^C reaction cross section
real*4 v12N ! (10-42cm2) ?=0 The ^12^N reaction cross section
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Neutrino-induced charged-current reaction cross
sections for anti-{nu}_e_ of ^12^C based the
SFO Hamiltonian
integer*4 nr__4
parameter (nr__4=179) ! Number of records
character*193 ar__4 ! Full-size record
integer*4 Enu_4 ! (MeV) Energy of neutrino
real*4 v12C_2 ! (10-42cm2) ?=0 Decomposition rate of ^12^C
real*4 n_2 ! (10-42cm2) ?=0 Neutron reaction cross section
real*4 p_2 ! (10-42cm2) ?=0 Proton reaction cross section
real*4 d_2 ! (10-42cm2) ?=0 Deuteron reaction cross section
real*4 t_2 ! (10-42cm2) ?=0 The ^3^H reaction cross section
real*4 v3He_2 ! (10-42cm2) ?=0 The ^3^He reaction cross section
real*4 v4He_2 ! (10-42cm2) ?=0 The ^4^He reaction cross section
real*4 v6He_1 ! (10-42cm2) ?=0 The ^6^He reaction cross section
real*4 v6Li_2 ! (10-42cm2) ?=0 The ^6^Li reaction cross section
real*4 v7Li_2 ! (10-42cm2) ?=0 The ^7^Li reaction cross section
real*4 v8Li_2 ! (10-42cm2) ?=0 The ^8^Li reaction cross section
real*4 v9Li_1 ! (10-42cm2) ?=0 The ^9^Li reaction cross section
real*4 v7Be_2 ! (10-42cm2) ?=0 The ^7^Be reaction cross section
real*4 v9Be_2 ! (10-42cm2) ?=0 The ^9^Be reaction cross section
real*4 v10Be_1 ! (10-42cm2) ?=0 The ^10^Be reaction cross section
real*4 v11Be ! (10-42cm2) ?=0 The ^11^Be reaction cross section
real*4 v10B_2 ! (10-42cm2) ?=0 The ^10^B reaction cross section
real*4 v11B_1 ! (10-42cm2) ?=0 The ^11^B reaction cross section
real*4 v12B ! (10-42cm2) ?=0 The ^12^B reaction cross section
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Neutrino-induced neutral-current reaction cross
sections of ^12^C based on the PSDMK2 Hamiltonian
integer*4 nr__5
parameter (nr__5=180) ! Number of records
character*203 ar__5 ! Full-size record
integer*4 Enu_5 ! (MeV) Energy of neutrino
real*4 v12C_3 ! (10-42cm2) ?=0 Decomposition rate of ^12^C
real*4 n_3 ! (10-42cm2) ?=0 Neutron reaction cross section
real*4 p_3 ! (10-42cm2) ?=0 Proton reaction cross section
real*4 d_3 ! (10-42cm2) ?=0 Deuteron reaction cross section
real*4 t_3 ! (10-42cm2) ?=0 The ^3^H reaction cross section
real*4 v3He_3 ! (10-42cm2) ?=0 The ^3^He reaction cross section
real*4 v4He_3 ! (10-42cm2) ?=0 The ^4^He reaction cross section
real*4 v6He_2 ! (10-42cm2) ?=0 The ^6^He reaction cross section
real*4 v6Li_3 ! (10-42cm2) ?=0 The ^6^Li reaction cross section
real*4 v7Li_3 ! (10-42cm2) ?=0 The ^7^Li reaction cross section
real*4 v8Li_3 ! (10-42cm2) ?=0 The ^8^Li reaction cross section
real*4 v9Li_2 ! (10-42cm2) ?=0 The ^9^Li reaction cross section
real*4 v7Be_3 ! (10-42cm2) ?=0 The ^7^Be reaction cross section
real*4 v9Be_3 ! (10-42cm2) ?=0 The ^9^Be reaction cross section
real*4 v10Be_2 ! (10-42cm2) ?=0 The ^10^Be reaction cross section
real*4 v8B_2 ! (10-42cm2) ?=0 The ^8^B reaction cross section
real*4 v10B_3 ! (10-42cm2) ?=0 The ^10^B reaction cross section
real*4 v11B_2 ! (10-42cm2) ?=0 The ^11^B reaction cross section
real*4 v10C_2 ! (10-42cm2) ?=0 The ^10^C reaction cross section
real*4 v11C_2 ! (10-42cm2) ?=0 The ^11^C reaction cross section
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Neutrino-induced charged-current reaction cross
sections for {nu}_e_ of ^12^C based on the
PSDMK2 Hamiltonian (Brown et al. 1986,
MSU Cyclotron Laboratory Rept. 524)
integer*4 nr__6
parameter (nr__6=179) ! Number of records
character*183 ar__6 ! Full-size record
integer*4 Enu_6 ! (MeV) Energy of neutrino
real*4 v12C_4 ! (10-42cm2) ?=0 Decomposition rate of ^12^C
real*4 n_4 ! (10-42cm2) ?=0 Neutron reaction cross section
real*4 p_4 ! (10-42cm2) ?=0 Proton reaction cross section
real*4 d_4 ! (10-42cm2) ?=0 Deuteron reaction cross section
real*4 t_4 ! (10-42cm2) ?=0 The ^3^H reaction cross section
real*4 v3He_4 ! (10-42cm2) ?=0 The ^3^He reaction cross section
real*4 v4He_4 ! (10-42cm2) ?=0 The ^4^He reaction cross section
real*4 v6Li_4 ! (10-42cm2) ?=0 The ^6^Li reaction cross section
real*4 v7Li_4 ! (10-42cm2) ?=0 The ^7^Li reaction cross section
real*4 v8Li_4 ! (10-42cm2) ?=0 The ^8^Li reaction cross section
real*4 v7Be_4 ! (10-42cm2) ?=0 The ^7^Be reaction cross section
real*4 v9Be_4 ! (10-42cm2) ?=0 The ^9^Be reaction cross section
real*4 v8B_3 ! (10-42cm2) ?=0 The ^8^B reaction cross section
real*4 v10B_4 ! (10-42cm2) ?=0 The ^10^B reaction cross section
real*4 v9C_1 ! (10-42cm2) ?=0 The ^9^C reaction cross section
real*4 v10C_3 ! (10-42cm2) ?=0 The ^10^C reaction cross section
real*4 v11C_3 ! (10-42cm2) ?=0 The ^11^C reaction cross section
real*4 v12N_1 ! (10-42cm2) ?=0 The ^12^N reaction cross section
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Neutrino-induced charged-current reaction cross
sections for anti-{nu}_e_ of ^12^C based on the
PSDMK2 Hamiltonian
integer*4 nr__7
parameter (nr__7=179) ! Number of records
character*193 ar__7 ! Full-size record
integer*4 Enu_7 ! (MeV) Energy of neutrino
real*4 v12C_5 ! (10-42cm2) ?=0 Decomposition rate of ^12^C
real*4 n_5 ! (10-42cm2) ?=0 Neutron reaction cross section
real*4 p_5 ! (10-42cm2) ?=0 Proton reaction cross section
real*4 d_5 ! (10-42cm2) ?=0 Deuteron reaction cross section
real*4 t_5 ! (10-42cm2) ?=0 The ^3^H reaction cross section
real*4 v3He_5 ! (10-42cm2) ?=0 The ^3^He reaction cross section
real*4 v4He_5 ! (10-42cm2) ?=0 The ^4^He reaction cross section
real*4 v6He_3 ! (10-42cm2) ?=0 The ^6^He reaction cross section
real*4 v6Li_5 ! (10-42cm2) ?=0 The ^6^Li reaction cross section
real*4 v7Li_5 ! (10-42cm2) ?=0 The ^7^Li reaction cross section
real*4 v8Li_5 ! (10-42cm2) ?=0 The ^8^Li reaction cross section
real*4 v9Li_3 ! (10-42cm2) ?=0 The ^9^Li reaction cross section
real*4 v7Be_5 ! (10-42cm2) ?=0 The ^7^Be reaction cross section
real*4 v9Be_5 ! (10-42cm2) ?=0 The ^9^Be reaction cross section
real*4 v10Be_3 ! (10-42cm2) ?=0 The ^10^Be reaction cross section
real*4 v11Be_1 ! (10-42cm2) ?=0 The ^11^Be reaction cross section
real*4 v10B_5 ! (10-42cm2) ?=0 The ^10^B reaction cross section
real*4 v11B_3 ! (10-42cm2) ?=0 The ^11^B reaction cross section
real*4 v12B_1 ! (10-42cm2) ?=0 The ^12^B reaction cross section
C=============================================================================
C Loading file 'table1.dat' ! Neutrino-induced reaction cross sections of
* ^4^He with the use of the WBP Hamiltonian
* (Warbutron & Brown 1992PhRvC..46..923W)
C Format for file interpretation
1 format(
+ F5.1,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,180
read(1,'(A85)')ar__
read(ar__,1)Enu,C1,C2,C3,C4,C5,C6,C7,C8
c ..............Just test output...........
write(6,1)Enu,C1,C2,C3,C4,C5,C6,C7,C8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Neutrino-induced reaction cross sections of
* ^4^He with the use of the SPSDMK Hamiltonian
* (Millener & Kurath 1975NuPhA.255..315M; Brown
* et al. 1986, MSU Cyclotron Laboratory Rept. 524)
C Format for file interpretation
2 format(
+ F5.1,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,180
read(1,'(A85)')ar__1
read(ar__1,2)Enu_1,C1_1,C2_1,C3_1,C4_1,C5_1,C6_1,C7_1,C8_1
c ..............Just test output...........
write(6,2)Enu_1,C1_1,C2_1,C3_1,C4_1,C5_1,C6_1,C7_1,C8_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Neutrino-induced neutral-current reaction cross
* sections of ^12^C based on the SFO Hamiltonian
* (Suzuki et al. 2006PhRvC..74c4307S)
C Format for file interpretation
3 format(
+ I3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,180
read(1,'(A203)')ar__2
read(ar__2,3)
+ Enu_2,v12C,n,p,d,t,v3He,v4He,v6He,v6Li,v7Li,v8Li,v9Li,v7Be,
+ v9Be,v10Be,v8B,v10B,v11B,v10C,v11C
c ..............Just test output...........
write(6,3)
+ Enu_2,v12C,n,p,d,t,v3He,v4He,v6He,v6Li,v7Li,v8Li,v9Li,v7Be,
+ v9Be,v10Be,v8B,v10B,v11B,v10C,v11C
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Neutrino-induced charged-current reaction cross
* sections for {nu}_e_ of ^12^C based on the SFO
* Hamiltonian
C Format for file interpretation
4 format(
+ I3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.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,179
read(1,'(A183)')ar__3
read(ar__3,4)
+ Enu_3,v12C_1,n_1,p_1,d_1,t_1,v3He_1,v4He_1,v6Li_1,v7Li_1,
+ v8Li_1,v7Be_1,v9Be_1,v8B_1,v10B_1,v9C,v10C_1,v11C_1,v12N
c ..............Just test output...........
write(6,4)
+ Enu_3,v12C_1,n_1,p_1,d_1,t_1,v3He_1,v4He_1,v6Li_1,v7Li_1,
+ v8Li_1,v7Be_1,v9Be_1,v8B_1,v10B_1,v9C,v10C_1,v11C_1,v12N
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Neutrino-induced charged-current reaction cross
* sections for anti-{nu}_e_ of ^12^C based the
* SFO Hamiltonian
C Format for file interpretation
5 format(
+ I3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,179
read(1,'(A193)')ar__4
read(ar__4,5)
+ Enu_4,v12C_2,n_2,p_2,d_2,t_2,v3He_2,v4He_2,v6He_1,v6Li_2,
+ v7Li_2,v8Li_2,v9Li_1,v7Be_2,v9Be_2,v10Be_1,v11Be,v10B_2,
+ v11B_1,v12B
c ..............Just test output...........
write(6,5)
+ Enu_4,v12C_2,n_2,p_2,d_2,t_2,v3He_2,v4He_2,v6He_1,v6Li_2,
+ v7Li_2,v8Li_2,v9Li_1,v7Be_2,v9Be_2,v10Be_1,v11Be,v10B_2,
+ v11B_1,v12B
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Neutrino-induced neutral-current reaction cross
* sections of ^12^C based on the PSDMK2 Hamiltonian
C Format for file interpretation
6 format(
+ I3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,180
read(1,'(A203)')ar__5
read(ar__5,6)
+ Enu_5,v12C_3,n_3,p_3,d_3,t_3,v3He_3,v4He_3,v6He_2,v6Li_3,
+ v7Li_3,v8Li_3,v9Li_2,v7Be_3,v9Be_3,v10Be_2,v8B_2,v10B_3,
+ v11B_2,v10C_2,v11C_2
c ..............Just test output...........
write(6,6)
+ Enu_5,v12C_3,n_3,p_3,d_3,t_3,v3He_3,v4He_3,v6He_2,v6Li_3,
+ v7Li_3,v8Li_3,v9Li_2,v7Be_3,v9Be_3,v10Be_2,v8B_2,v10B_3,
+ v11B_2,v10C_2,v11C_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Neutrino-induced charged-current reaction cross
* sections for {nu}_e_ of ^12^C based on the
* PSDMK2 Hamiltonian (Brown et al. 1986,
* MSU Cyclotron Laboratory Rept. 524)
C Format for file interpretation
7 format(
+ I3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,179
read(1,'(A183)')ar__6
read(ar__6,7)
+ Enu_6,v12C_4,n_4,p_4,d_4,t_4,v3He_4,v4He_4,v6Li_4,v7Li_4,
+ v8Li_4,v7Be_4,v9Be_4,v8B_3,v10B_4,v9C_1,v10C_3,v11C_3,v12N_1
c ..............Just test output...........
write(6,7)
+ Enu_6,v12C_4,n_4,p_4,d_4,t_4,v3He_4,v4He_4,v6Li_4,v7Li_4,
+ v8Li_4,v7Be_4,v9Be_4,v8B_3,v10B_4,v9C_1,v10C_3,v11C_3,v12N_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Neutrino-induced charged-current reaction cross
* sections for anti-{nu}_e_ of ^12^C based on the
* PSDMK2 Hamiltonian
C Format for file interpretation
8 format(
+ I3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,
+ E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3,
+ 1X,E9.3,1X,E9.3,1X,E9.3,1X,E9.3)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,179
read(1,'(A193)')ar__7
read(ar__7,8)
+ Enu_7,v12C_5,n_5,p_5,d_5,t_5,v3He_5,v4He_5,v6He_3,v6Li_5,
+ v7Li_5,v8Li_5,v9Li_3,v7Be_5,v9Be_5,v10Be_3,v11Be_1,v10B_5,
+ v11B_3,v12B_1
c ..............Just test output...........
write(6,8)
+ Enu_7,v12C_5,n_5,p_5,d_5,t_5,v3He_5,v4He_5,v6He_3,v6Li_5,
+ v7Li_5,v8Li_5,v9Li_3,v7Be_5,v9Be_5,v10Be_3,v11Be_1,v10B_5,
+ v11B_3,v12B_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end