added in cmfd execute information for testing flux extraction from tally object

src/DEPENDENCIES

@@ -118,6 +118,7 @@ interpolation.o: search.o
 logging.o: constants.o
 logging.o: global.o
 
+main.o: cmfd_execute.o
 main.o: constants.o
 main.o: global.o
 main.o: initialize.o

src/cmfd_execute.F90

@@ -9,6 +9,23 @@ module cmfd_execute
 
 contains
 
+!===============================================================================
+! EXECUTE_CMFD is the highest level routine that controls CMFD calculation 
+!===============================================================================
+
+  subroutine execute_cmfd()
+
+    ! allocate cmfd object
+    call allocate_cmfd()
+
+    ! calculate all cross sections based on reaction rates from last batch
+    call compute_xs()
+
+    ! print out flux for debugginb
+    write(11,*) cmfd % flux
+
+  end subroutine
+
 !===============================================================================
 ! ALLOCATE_CMFD allocates all of the space for the cmfd object based on tallies
 !===============================================================================

src/main.f90

@@ -1,5 +1,6 @@
 program main
 
+  use cmfd_execute,    only: execute_cmfd
   use constants
   use global
   use initialize,      only: initialize_run
@@ -132,6 +133,9 @@ contains
     ! Calculate statistics for tallies
     call tally_statistics()
 
+    ! call cmfd calculation
+    call execute_cmfd()
+
     if (master) call header("SIMULATION FINISHED", 1)
 
   end subroutine run_problem