From 465a9ad83809d1c3409bc92b3fa373c8db4eca18 Mon Sep 17 00:00:00 2001 From: Shikhar Kumar Date: Thu, 16 Aug 2018 20:43:48 -0400 Subject: [PATCH] Use C API functions in cmfd_input.F90 --- src/cmfd_input.F90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/cmfd_input.F90 b/src/cmfd_input.F90 index ab26a36357..33cd01a9e9 100644 --- a/src/cmfd_input.F90 +++ b/src/cmfd_input.F90 @@ -462,10 +462,10 @@ contains t % name = "CMFD flux, total" ! Set tally estimator to analog - t % estimator = ESTIMATOR_ANALOG + err = openmc_tally_set_estimator(i_start + i - 1, C_CHAR_'analog' // C_NULL_CHAR) ! Set tally type to volume - t % type = TALLY_VOLUME + err = openmc_tally_update_type(i_start + i - 1, C_CHAR_'volume' // C_NULL_CHAR) ! Allocate and set filters allocate(filter_indices(n_filter)) @@ -490,10 +490,10 @@ contains t % name = "CMFD neutron production" ! Set tally estimator to analog - t % estimator = ESTIMATOR_ANALOG + err = openmc_tally_set_estimator(i_start + i - 1, C_CHAR_'analog' // C_NULL_CHAR) ! Set tally type to volume - t % type = TALLY_VOLUME + err = openmc_tally_update_type(i_start + i - 1, C_CHAR_'volume' // C_NULL_CHAR) ! Set the incoming energy mesh filter index in the tally find_filter ! array @@ -525,7 +525,7 @@ contains t % name = "CMFD surface currents" ! Set tally estimator to analog - t % estimator = ESTIMATOR_ANALOG + err = openmc_tally_set_estimator(i_start + i - 1, C_CHAR_'analog' // C_NULL_CHAR) ! Allocate and set filters allocate(filter_indices(n_filter)) @@ -542,17 +542,17 @@ contains ! Set macro bins t % score_bins(1) = SCORE_CURRENT - t % type = TALLY_MESH_SURFACE + err = openmc_tally_update_type(i_start + i - 1, C_CHAR_'mesh-surface' // C_NULL_CHAR) else if (i == 4) then ! Set name t % name = "CMFD P1 scatter" ! Set tally estimator to analog - t % estimator = ESTIMATOR_ANALOG + err = openmc_tally_set_estimator(i_start + i - 1, C_CHAR_'analog' // C_NULL_CHAR) ! Set tally type to volume - t % type = TALLY_VOLUME + err = openmc_tally_update_type(i_start + i - 1, C_CHAR_'volume' // C_NULL_CHAR) ! Allocate and set filters n_filter = 2