diff --git a/src/cmfd_utils.f90 b/src/cmfd_utils.f90 index e2b2ff753c..dfa842d65b 100644 --- a/src/cmfd_utils.f90 +++ b/src/cmfd_utils.f90 @@ -47,6 +47,8 @@ contains subroutine print_cmfd() + write(7,*) 'hello world' + end subroutine print_cmfd end module cmfd_utils diff --git a/src/main.f90 b/src/main.f90 index 9bbb16c6a4..d6caa6d0ef 100644 --- a/src/main.f90 +++ b/src/main.f90 @@ -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