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

Remove whitespace, add more comments

Browse source
This commit is contained in:
Shikhar Kumar 2018-09-26 17:21:15 -04:00
parent 852cbb0109
commit 47cd40849c
2 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/simulation.F90
View file

@ -205,7 +205,7 @@ contains
total_weight = ZERO
if ((n_inactive > 0 .and. current_batch == 1) .or. &
(restart_run .and. restart_batch <= n_inactive .and. current_batch == restart_batch)) then
(restart_run .and. restart_batch <= n_inactive .and. current_batch == restart_batch)) then
! Turn on inactive timer
call time_inactive % start()
elseif (current_batch == n_inactive + 1) then
@ -414,7 +414,7 @@ contains
end do
end if
! Increment n_realizations as would ordinarily be done in finalize_batch
! Increment n_realizations if in active batches as would ordinarily be done in finalize_batch
if (current_batch > n_inactive) then
if (reduce_tallies) then
n_realizations = n_realizations + 1

14
src/vector_header.F90
View file

@ -91,23 +91,23 @@ contains
!===============================================================================
! VECTOR_WRITE writes a vector to file
!===============================================================================
subroutine vector_write(self, filename)
class(Vector), target, intent(inout) :: self ! vector instance
character(*), intent(in) :: filename ! filename to output to
integer :: unit_
integer :: i
open(newunit=unit_, file=filename)
do i = 1, self % n
write(unit_,*) i, self % data(i)
end do
close(unit_)
end subroutine vector_write
end module vector_header