mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-29 06:35:48 -04:00
linked cmfd_utils in main code and successfully printed from cmfd routine
This commit is contained in:
parent
85056be15e
commit
1fee45a858
2 changed files with 6 additions and 0 deletions
|
|
@ -47,6 +47,8 @@ contains
|
|||
|
||||
subroutine print_cmfd()
|
||||
|
||||
write(7,*) 'hello world'
|
||||
|
||||
end subroutine print_cmfd
|
||||
|
||||
end module cmfd_utils
|
||||
|
|
|
|||
|
|
@ -1,5 +1,6 @@
|
|||
program main
|
||||
|
||||
use cmfd_utils, only: print_cmfd
|
||||
use constants
|
||||
use global
|
||||
use initialize, only: initialize_run
|
||||
|
|
@ -132,6 +133,9 @@ contains
|
|||
! Calculate statistics for tallies
|
||||
call tally_statistics()
|
||||
|
||||
! Call cmfd print routine
|
||||
call print_cmfd()
|
||||
|
||||
if (master) call header("SIMULATION FINISHED", 1)
|
||||
|
||||
end subroutine run_problem
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue