From 47cd40849c76bb51eb75671a83f2231a69dccda4 Mon Sep 17 00:00:00 2001 From: Shikhar Kumar Date: Wed, 26 Sep 2018 17:21:15 -0400 Subject: [PATCH] Remove whitespace, add more comments --- src/simulation.F90 | 4 ++-- src/vector_header.F90 | 14 +++++++------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/src/simulation.F90 b/src/simulation.F90 index 481e9203b..f9fcc62bd 100644 --- a/src/simulation.F90 +++ b/src/simulation.F90 @@ -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 diff --git a/src/vector_header.F90 b/src/vector_header.F90 index 27d773f88..fd7726c79 100644 --- a/src/vector_header.F90 +++ b/src/vector_header.F90 @@ -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