crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Ability to use incoming energy filter on surface current tallies.

Browse source
This commit is contained in:
Paul Romano 2011-11-20 17:06:47 -05:00
parent 01c21a535e
commit 8551213d22
3 changed files with 233 additions and 136 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/constants.f90
View file

@ -208,6 +208,12 @@ module constants
T_MESH = 6, & T_MESH = 6, &
T_ENERGYIN = 7, & T_ENERGYIN = 7, &
T_ENERGYOUT = 8 T_ENERGYOUT = 8
integer, parameter :: &
TS_MESH_X = 1, &
TS_MESH_Y = 2, &
TS_MESH_Z = 3, &
TS_ENERGYIN = 4, &
TS_SURFACE = 5
! Tally surface current directions ! Tally surface current directions
integer, parameter :: & integer, parameter :: &

10
src/input_xml.f90
View file

@ -863,11 +863,11 @@ contains
end if end if
! Check to make sure that only the mesh filter was specified ! Check to make sure that only the mesh filter was specified
if (t % mesh == 0 .or. t % n_bins(T_MESH) /= & !!$ if (t % mesh == 0 .or. t % n_bins(T_MESH) /= &
product(t % n_bins, t % n_bins > 0)) then !!$ product(t % n_bins, t % n_bins > 0)) then
message = "Surface currents must be used with a mesh filter only." !!$ message = "Surface currents must be used with a mesh filter only."
call fatal_error() !!$ call fatal_error()
end if !!$ end if
! Since the number of bins for the mesh filter was already set ! Since the number of bins for the mesh filter was already set
! assuming it was a flux tally, we need to adjust the number of ! assuming it was a flux tally, we need to adjust the number of

343
src/tally.f90
View file

@ -95,12 +95,12 @@ contains
subroutine create_tally_map() subroutine create_tally_map()
integer :: i ! loop index for tallies integer :: i ! loop index for tallies
integer :: j ! loop index for filter arrays integer :: j ! loop index for filter arrays
integer :: index ! filter bin entries integer :: index ! filter bin entries
integer :: n ! number of bins integer :: n ! number of bins
integer :: filter_bins ! running total of number of filter bins integer :: filter_bins ! running total of number of filter bins
integer :: score_bins ! number of scoring bins integer :: score_bins ! number of scoring bins
type(TallyObject), pointer :: t => null() type(TallyObject), pointer :: t => null()
type(StructuredMesh), pointer :: m => null() type(StructuredMesh), pointer :: m => null()
@ -129,6 +129,7 @@ contains
if (t % surface_current) then if (t % surface_current) then
m => meshes(t % mesh) m => meshes(t % mesh)
t % stride(TS_SURFACE) = filter_bins
! Set stride for surface/direction ! Set stride for surface/direction
if (m % n_dimension == 2) then if (m % n_dimension == 2) then
filter_bins = filter_bins * 4 filter_bins = filter_bins * 4
@ -136,16 +137,23 @@ contains
filter_bins = filter_bins * 6 filter_bins = filter_bins * 6
end if end if
! Add filter for incoming energy
n = t % n_bins(T_ENERGYIN)
t % stride(TS_ENERGYIN) = filter_bins
if (n > 0) then
filter_bins = filter_bins * n
end if
! account for z direction ! account for z direction
t % stride(3) = filter_bins t % stride(TS_MESH_Z) = filter_bins
filter_bins = filter_bins * (m % dimension(3) + 1) filter_bins = filter_bins * (m % dimension(3) + 1)
! account for y direction ! account for y direction
t % stride(2) = filter_bins t % stride(TS_MESH_Y) = filter_bins
filter_bins = filter_bins * (m % dimension(2) + 1) filter_bins = filter_bins * (m % dimension(2) + 1)
! account for z direction ! account for z direction
t % stride(1) = filter_bins t % stride(TS_MESH_X) = filter_bins
filter_bins = filter_bins * (m % dimension(1) + 1) filter_bins = filter_bins * (m % dimension(1) + 1)
! Finally add scoring bins for the macro tallies and allocate scores ! Finally add scoring bins for the macro tallies and allocate scores
@ -578,27 +586,31 @@ contains
type(Particle), pointer :: p type(Particle), pointer :: p
integer :: i ! loop indices integer :: i ! loop indices
integer :: j ! loop indices integer :: j ! loop indices
integer :: k ! loop indices integer :: k ! loop indices
integer :: ijk0(3) ! indices of starting coordinates integer :: ijk0(3) ! indices of starting coordinates
integer :: ijk1(3) ! indices of ending coordinates integer :: ijk1(3) ! indices of ending coordinates
integer :: n_cross ! number of surface crossings integer :: n_cross ! number of surface crossings
integer :: score_index ! index of scoring bin integer :: n ! number of incoming energy bins
real(8) :: uvw(3) ! cosine of angle of particle integer :: bins(TALLY_TYPES) ! scoring bin combination
real(8) :: xyz0(3) ! starting/intermediate coordinates integer :: score_index ! index of scoring bin
real(8) :: xyz1(3) ! ending coordinates of particle real(8) :: uvw(3) ! cosine of angle of particle
real(8) :: xyz_cross(3) ! coordinates of bounding surfaces real(8) :: xyz0(3) ! starting/intermediate coordinates
real(8) :: d(3) ! distance to each bounding surface real(8) :: xyz1(3) ! ending coordinates of particle
real(8) :: distance ! actual distance traveled real(8) :: xyz_cross(3) ! coordinates of bounding surfaces
logical :: start_in_mesh ! particle's starting xyz in mesh? real(8) :: d(3) ! distance to each bounding surface
logical :: end_in_mesh ! particle's ending xyz in mesh? real(8) :: distance ! actual distance traveled
logical :: x_same ! same starting/ending x index (i) logical :: start_in_mesh ! particle's starting xyz in mesh?
logical :: y_same ! same starting/ending y index (j) logical :: end_in_mesh ! particle's ending xyz in mesh?
logical :: z_same ! same starting/ending z index (k) logical :: x_same ! same starting/ending x index (i)
logical :: y_same ! same starting/ending y index (j)
logical :: z_same ! same starting/ending z index (k)
type(TallyObject), pointer :: t => null() type(TallyObject), pointer :: t => null()
type(StructuredMesh), pointer :: m => null() type(StructuredMesh), pointer :: m => null()
bins = 1
do i = 1, n_tallies do i = 1, n_tallies
! Copy starting and ending location of particle ! Copy starting and ending location of particle
xyz0 = p % last_xyz xyz0 = p % last_xyz
@ -625,6 +637,19 @@ contains
! Copy particle's direction ! Copy particle's direction
uvw = p % uvw uvw = p % uvw
! determine incoming energy bin
n = t % n_bins(T_ENERGYIN)
if (n > 0) then
! check if energy of the particle is within energy bins
if (p % last_E < t % energy_in(1) .or. &
p % last_E > t % energy_in(n + 1)) cycle
! search to find incoming energy bin
bins(TS_ENERGYIN) = binary_search(t % energy_in, n + 1, p % last_E)
else
bins(TS_ENERGYIN) = 1
end if
! ======================================================================= ! =======================================================================
! SPECIAL CASES WHERE TWO INDICES ARE THE SAME ! SPECIAL CASES WHERE TWO INDICES ARE THE SAME
@ -638,7 +663,9 @@ contains
do j = ijk0(3), ijk1(3) - 1 do j = ijk0(3), ijk1(3) - 1
ijk0(3) = j ijk0(3) = j
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + OUT_TOP bins(TS_SURFACE) = OUT_TOP
bins(1:3) = ijk0 + 1
score_index = sum((bins - 1) * t % stride) + 1
call add_to_score(t % scores(score_index, 1), p % last_wgt) call add_to_score(t % scores(score_index, 1), p % last_wgt)
end if end if
end do end do
@ -646,7 +673,9 @@ contains
do j = ijk0(3) - 1, ijk1(3), -1 do j = ijk0(3) - 1, ijk1(3), -1
ijk0(3) = j ijk0(3) = j
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + IN_TOP bins(TS_SURFACE) = IN_TOP
bins(1:3) = ijk0 + 1
score_index = sum((bins - 1) * t % stride) + 1
call add_to_score(t % scores(score_index, 1), p % last_wgt) call add_to_score(t % scores(score_index, 1), p % last_wgt)
end if end if
end do end do
@ -658,7 +687,9 @@ contains
do j = ijk0(2), ijk1(2) - 1 do j = ijk0(2), ijk1(2) - 1
ijk0(2) = j ijk0(2) = j
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + OUT_FRONT bins(TS_SURFACE) = OUT_FRONT
bins(1:3) = ijk0 + 1
score_index = sum((bins - 1) * t % stride) + 1
call add_to_score(t % scores(score_index, 1), p % last_wgt) call add_to_score(t % scores(score_index, 1), p % last_wgt)
end if end if
end do end do
@ -666,7 +697,9 @@ contains
do j = ijk0(2) - 1, ijk1(2), -1 do j = ijk0(2) - 1, ijk1(2), -1
ijk0(2) = j ijk0(2) = j
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + IN_FRONT bins(TS_SURFACE) = IN_FRONT
bins(1:3) = ijk0 + 1
score_index = sum((bins - 1) * t % stride) + 1
call add_to_score(t % scores(score_index, 1), p % last_wgt) call add_to_score(t % scores(score_index, 1), p % last_wgt)
end if end if
end do end do
@ -678,7 +711,9 @@ contains
do j = ijk0(1), ijk1(1) - 1 do j = ijk0(1), ijk1(1) - 1
ijk0(1) = j ijk0(1) = j
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + OUT_RIGHT bins(TS_SURFACE) = OUT_RIGHT
bins(1:3) = ijk0 + 1
score_index = sum((bins - 1) * t % stride) + 1
call add_to_score(t % scores(score_index, 1), p % last_wgt) call add_to_score(t % scores(score_index, 1), p % last_wgt)
end if end if
end do end do
@ -686,7 +721,9 @@ contains
do j = ijk0(1) - 1, ijk1(1), -1 do j = ijk0(1) - 1, ijk1(1), -1
ijk0(1) = j ijk0(1) = j
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + IN_RIGHT bins(TS_SURFACE) = IN_RIGHT
bins(1:3) = ijk0 + 1
score_index = sum((bins - 1) * t % stride) + 1
call add_to_score(t % scores(score_index, 1), p % last_wgt) call add_to_score(t % scores(score_index, 1), p % last_wgt)
end if end if
end do end do
@ -708,7 +745,7 @@ contains
do k = 1, n_cross do k = 1, n_cross
! Reset scoring bin index ! Reset scoring bin index
score_index = 0 bins(TS_SURFACE) = 0
! Calculate distance to each bounding surface. We need to treat ! Calculate distance to each bounding surface. We need to treat
! special case where the cosine of the angle is zero since this would ! special case where the cosine of the angle is zero since this would
@ -735,7 +772,8 @@ contains
! Crossing into right mesh cell -- this is treated as outgoing ! Crossing into right mesh cell -- this is treated as outgoing
! current from (i,j,k) ! current from (i,j,k)
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + OUT_RIGHT bins(TS_SURFACE) = OUT_RIGHT
bins(1:3) = ijk0 + 1
end if end if
ijk0(1) = ijk0(1) + 1 ijk0(1) = ijk0(1) + 1
xyz_cross(1) = xyz_cross(1) + m % width(1) xyz_cross(1) = xyz_cross(1) + m % width(1)
@ -745,7 +783,8 @@ contains
ijk0(1) = ijk0(1) - 1 ijk0(1) = ijk0(1) - 1
xyz_cross(1) = xyz_cross(1) - m % width(1) xyz_cross(1) = xyz_cross(1) - m % width(1)
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + IN_RIGHT bins(TS_SURFACE) = IN_RIGHT
bins(1:3) = ijk0 + 1
end if end if
end if end if
elseif (distance == d(2)) then elseif (distance == d(2)) then
@ -753,7 +792,8 @@ contains
! Crossing into front mesh cell -- this is treated as outgoing ! Crossing into front mesh cell -- this is treated as outgoing
! current in (i,j,k) ! current in (i,j,k)
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + OUT_FRONT bins(TS_SURFACE) = OUT_FRONT
bins(1:3) = ijk0 + 1
end if end if
ijk0(2) = ijk0(2) + 1 ijk0(2) = ijk0(2) + 1
xyz_cross(2) = xyz_cross(2) + m % width(2) xyz_cross(2) = xyz_cross(2) + m % width(2)
@ -763,7 +803,8 @@ contains
ijk0(2) = ijk0(2) - 1 ijk0(2) = ijk0(2) - 1
xyz_cross(2) = xyz_cross(2) - m % width(2) xyz_cross(2) = xyz_cross(2) - m % width(2)
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + IN_FRONT bins(TS_SURFACE) = IN_FRONT
bins(1:3) = ijk0 + 1
end if end if
end if end if
else if (distance == d(3)) then else if (distance == d(3)) then
@ -771,7 +812,8 @@ contains
! Crossing into top mesh cell -- this is treated as outgoing ! Crossing into top mesh cell -- this is treated as outgoing
! current in (i,j,k) ! current in (i,j,k)
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + OUT_TOP bins(TS_SURFACE) = OUT_TOP
bins(1:3) = ijk0 + 1
end if end if
ijk0(3) = ijk0(3) + 1 ijk0(3) = ijk0(3) + 1
xyz_cross(3) = xyz_cross(3) + m % width(3) xyz_cross(3) = xyz_cross(3) + m % width(3)
@ -781,19 +823,23 @@ contains
ijk0(3) = ijk0(3) - 1 ijk0(3) = ijk0(3) - 1
xyz_cross(3) = xyz_cross(3) - m % width(3) xyz_cross(3) = xyz_cross(3) - m % width(3)
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
score_index = sum(t % stride(1:3) * ijk0) + IN_TOP bins(TS_SURFACE) = IN_TOP
bins(1:3) = ijk0 + 1
end if end if
end if end if
end if end if
! Check for errors ! Determine scoring index
if (score_index < 0 .or. score_index > t % n_total_bins) then if (bins(TS_SURFACE) > 0) then
message = "Score index outside range." score_index = sum((bins - 1) * t % stride) + 1
call fatal_error()
end if
! Add to surface current tally ! Check for errors
if (score_index > 0) then if (score_index <= 0 .or. score_index > t % n_total_bins) then
message = "Score index outside range."
call fatal_error()
end if
! Add to surface current tally
call add_to_score(t % scores(score_index, 1), p % last_wgt) call add_to_score(t % scores(score_index, 1), p % last_wgt)
end if end if
@ -1093,19 +1139,34 @@ contains
type(TallyObject), pointer :: t type(TallyObject), pointer :: t
integer :: i ! mesh index for x integer :: i ! mesh index for x
integer :: j ! mesh index for y integer :: j ! mesh index for y
integer :: k ! mesh index for z integer :: k ! mesh index for z
integer :: ijk(3) ! indices in mesh integer :: l ! mesh index for energy
integer :: len1 ! length of string integer :: bins(TALLY_TYPES) ! bin combination
integer :: len2 ! length of string integer :: n ! number of incoming energy bins
integer :: score_index ! index in scores array for filters integer :: len1 ! length of string
integer :: len2 ! length of string
integer :: score_index ! index in scores array for filters
logical :: print_ebin ! should incoming energy bin be displayed?
character(MAX_LINE_LEN) :: string character(MAX_LINE_LEN) :: string
type(StructuredMesh), pointer :: m => null() type(StructuredMesh), pointer :: m => null()
! Get pointer to mesh ! Get pointer to mesh
m => meshes(t % mesh) m => meshes(t % mesh)
! initialize bins array
bins = 1
! determine how many energy in bins there are
n = t % n_bins(T_ENERGYIN)
if (n > 0) then
print_ebin = .true.
else
print_ebin = .false.
n = 1
end if
do i = 1, m % dimension(1) do i = 1, m % dimension(1)
string = "Mesh Index (" // trim(int_to_str(i)) // ", " string = "Mesh Index (" // trim(int_to_str(i)) // ", "
len1 = len_trim(string) len1 = len_trim(string)
@ -1117,83 +1178,113 @@ contains
string = string(1:len2+1) // trim(int_to_str(k)) // ")" string = string(1:len2+1) // trim(int_to_str(k)) // ")"
write(UNIT=UNIT_TALLY, FMT='(1X,A)') trim(string) write(UNIT=UNIT_TALLY, FMT='(1X,A)') trim(string)
! Left Surface do l = 1, n
ijk = (/ i-1, j, k /) ! Write incoming energy bin
score_index = sum(t % stride(1:3) * ijk) + IN_RIGHT if (print_ebin) then
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') & write(UNIT=UNIT_TALLY, FMT='(3X,A,1X,A)') &
"Outgoing Current to Left", & "Incoming Energy", trim(get_label(t, T_ENERGYIN, l))
real_to_str(t % scores(score_index,1) % val), & end if
trim(real_to_str(t % scores(score_index,1) % val_sq))
score_index = sum(t % stride(1:3) * ijk) + OUT_RIGHT
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Incoming Current from Left", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Right Surface ! Set incoming energy bin
ijk = (/ i, j, k /) bins(TS_ENERGYIN) = l
score_index = sum(t % stride(1:3) * ijk) + IN_RIGHT
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Incoming Current from Right", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
score_index = sum(t % stride(1:3) * ijk) + OUT_RIGHT
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Right", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Back Surface ! Left Surface
ijk = (/ i, j-1, k /) bins(1:3) = (/ i-1, j, k /) + 1
score_index = sum(t % stride(1:3) * ijk) + IN_FRONT bins(TS_SURFACE) = IN_RIGHT
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') & score_index = sum((bins - 1) * t % stride) + 1
"Outgoing Current to Back", & write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
real_to_str(t % scores(score_index,1) % val), & "Outgoing Current to Left", &
trim(real_to_str(t % scores(score_index,1) % val_sq)) real_to_str(t % scores(score_index,1) % val), &
score_index = sum(t % stride(1:3) * ijk) + OUT_FRONT trim(real_to_str(t % scores(score_index,1) % val_sq))
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Incoming Current from Back", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Front Surface bins(TS_SURFACE) = OUT_RIGHT
ijk = (/ i, j, k /) score_index = sum((bins - 1) * t % stride) + 1
score_index = sum(t % stride(1:3) * ijk) + IN_FRONT write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') & "Incoming Current from Left", &
"Incoming Current from Front", & real_to_str(t % scores(score_index,1) % val), &
real_to_str(t % scores(score_index,1) % val), & trim(real_to_str(t % scores(score_index,1) % val_sq))
trim(real_to_str(t % scores(score_index,1) % val_sq))
score_index = sum(t % stride(1:3) * ijk) + OUT_FRONT
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Front", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Bottom Surface ! Right Surface
ijk = (/ i, j, k-1 /) bins(1:3) = (/ i, j, k /) + 1
score_index = sum(t % stride(1:3) * ijk) + IN_TOP bins(TS_SURFACE) = IN_RIGHT
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') & score_index = sum((bins - 1) * t % stride) + 1
"Outgoing Current to Bottom", & write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
real_to_str(t % scores(score_index,1) % val), & "Incoming Current from Right", &
trim(real_to_str(t % scores(score_index,1) % val_sq)) real_to_str(t % scores(score_index,1) % val), &
score_index = sum(t % stride(1:3) * ijk) + OUT_TOP trim(real_to_str(t % scores(score_index,1) % val_sq))
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Incoming Current from Bottom", & bins(TS_SURFACE) = OUT_RIGHT
real_to_str(t % scores(score_index,1) % val), & score_index = sum((bins - 1) * t % stride) + 1
trim(real_to_str(t % scores(score_index,1) % val_sq)) write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Right", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Back Surface
bins(1:3) = (/ i, j-1, k /) + 1
bins(TS_SURFACE) = IN_FRONT
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Back", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
bins(TS_SURFACE) = OUT_FRONT
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Incoming Current from Back", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Front Surface
bins(1:3) = (/ i, j, k /) + 1
bins(TS_SURFACE) = IN_FRONT
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Incoming Current from Front", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
bins(TS_SURFACE) = OUT_FRONT
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Front", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Bottom Surface
bins(1:3) = (/ i, j, k-1 /) + 1
bins(TS_SURFACE) = IN_TOP
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Bottom", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
bins(TS_SURFACE) = OUT_TOP
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Incoming Current from Bottom", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
! Top Surface
bins(1:3) = (/ i, j, k /) + 1
bins(TS_SURFACE) = IN_TOP
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Incoming Current from Top", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
bins(TS_SURFACE) = OUT_TOP
score_index = sum((bins - 1) * t % stride) + 1
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Top", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
end do
! Top Surface
ijk = (/ i, j, k /)
score_index = sum(t % stride(1:3) * ijk) + IN_TOP
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Incoming Current from Top", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
score_index = sum(t % stride(1:3) * ijk) + OUT_TOP
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
"Outgoing Current to Top", &
real_to_str(t % scores(score_index,1) % val), &
trim(real_to_str(t % scores(score_index,1) % val_sq))
end do end do
end do end do
end do end do