Write current entropy at each generation.

c0mpsc1 · Dec 7, 2012 · bd35fbf · bd35fbf
1 parent aebce4d
commit bd35fbf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/output.F90 b/src/output.F90
@@ -1236,7 +1236,7 @@ subroutine print_generation()
 
     ! write out entropy info
     if (entropy_on) write(UNIT=OUTPUT_UNIT, FMT='(3X, F8.5)', ADVANCE='NO') &
-         entropy(current_batch)
+         entropy(current_gen + gen_per_batch*(current_batch - 1))
 
     ! next line
     write(UNIT=OUTPUT_UNIT, FMT=*)
@@ -1258,7 +1258,7 @@ subroutine print_batch_keff()
 
     ! write out entropy info
     if (entropy_on) write(UNIT=OUTPUT_UNIT, FMT='(3X, F8.5)', ADVANCE='NO') &
-         entropy(current_batch)
+         entropy(current_batch*gen_per_batch)
 
     ! write out accumulated k-effective if after first active batch
     if (current_batch > n_inactive + 1) then