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

Ability to create state point.

Browse source
This commit is contained in:
Paul Romano 2012-07-31 13:01:44 -04:00
parent af25e7932e
commit b6e4e9ecb8
6 changed files with 101 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/fixed_source.F90
View file

@ -64,9 +64,7 @@ contains
! Accumulate time for transport
call timer_stop(time_transport)
call timer_start(time_ic_tallies)
call synchronize_tallies()
call timer_stop(time_ic_tallies)
call finalize_batch()
end do BATCH_LOOP
@ -93,6 +91,18 @@ contains
end subroutine initialize_batch
!===============================================================================
! FINALIZE_BATCH
!===============================================================================
subroutine finalize_batch()
call timer_start(time_ic_tallies)
call synchronize_tallies()
call timer_stop(time_ic_tallies)
end subroutine finalize_batch
!===============================================================================
! SAMPLE_SOURCE_PARTICLE
!===============================================================================