crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Modified comments and spacing.

Browse source
This commit is contained in:
Paul Romano 2011-10-31 22:22:16 -04:00
parent acb82d5204
commit 46fe3b1588
4 changed files with 18 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/error.f90
View file

@ -19,8 +19,8 @@ contains
subroutine warning()
integer :: n_lines
integer :: i
integer :: n_lines ! number of lines
integer :: i ! loop index for lines
! Only allow master to print to screen
if (.not. master) return
@ -46,8 +46,8 @@ contains
subroutine fatal_error()
integer :: n_lines
integer :: i
integer :: n_lines ! number of lines
integer :: i ! loop index over lines
! Only allow master to print to screen
if (master) then

12
src/fileio.f90
View file

@ -89,8 +89,8 @@ contains
integer, intent(in) :: n_lines ! number of lines to skip
integer, intent(out) :: ioError ! error status
integer :: i ! index for number of lines
character(MAX_LINE_LEN) :: tmp ! single line
integer :: i ! index for number of lines
character(MAX_LINE_LEN) :: tmp ! single line
do i = 1, n_lines
read(UNIT=unit, FMT='(A)', IOSTAT=ioError) tmp
@ -110,8 +110,8 @@ contains
integer, intent(in) :: lines ! total number of lines
integer, intent(in) :: words_per_line ! number of words per line
integer :: i ! line index
integer :: loc ! locator for array
integer :: i ! line index
integer :: loc ! locator for array
loc = 0
do i = 1, lines
@ -137,8 +137,8 @@ contains
integer, intent(in) :: lines ! total number of lines
integer, intent(in) :: words_per_line ! number of words per line
integer :: i ! line index
integer :: loc ! locator for array
integer :: i ! line index
integer :: loc ! locator for array
loc = 0
do i = 1, lines

12
src/fission.f90
View file

@ -22,9 +22,9 @@ contains
real(8), intent(in) :: E ! energy of incoming neutron
real(8) :: nu ! number of total neutrons emitted per fission
integer :: i ! loop index
integer :: NC ! number of polynomial coefficients
real(8) :: c ! polynomial coefficient
integer :: i ! loop index
integer :: NC ! number of polynomial coefficients
real(8) :: c ! polynomial coefficient
if (nuc % nu_t_type == NU_NONE) then
message = "No neutron emission data for table: " // nuc % name
@ -57,9 +57,9 @@ contains
real(8), intent(in) :: E ! energy of incoming neutron
real(8) :: nu ! number of prompt neutrons emitted per fission
integer :: i ! loop index
integer :: NC ! number of polynomial coefficients
real(8) :: c ! polynomial coefficient
integer :: i ! loop index
integer :: NC ! number of polynomial coefficients
real(8) :: c ! polynomial coefficient
if (nuc % nu_p_type == NU_NONE) then
! since no prompt or delayed data is present, this means all neutron

5
src/geometry.f90
View file

@ -99,9 +99,8 @@ contains
integer :: x, y
type(Cell), pointer :: c ! pointer to cell
type(Lattice), pointer :: lat ! pointer to lattice
type(Universe), pointer :: lower_univ ! if particle is in lower
! universe, use this pointer
! to call recursively
type(Universe), pointer :: lower_univ ! if particle is in lower universe,
! use this pointer to call recursively
found = .false.