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

minor bugfix to xz and yx plotting basis

Browse source
This commit is contained in:
nhorelik 2012-02-28 13:19:41 -05:00
parent 114aebc487
commit ef90efae30
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/plot.F90
View file

@ -76,18 +76,18 @@ contains
in_i = 1
out_i = 3
in_pixel = pl % width(1)/dble(pl % pixels(1))
out_pixel = pl % width(3)/dble(pl % pixels(2))
out_pixel = pl % width(2)/dble(pl % pixels(2))
xyz(1) = pl % origin(1) - pl % width(1) / 2.0
xyz(2) = pl % origin(2)
xyz(3) = pl % origin(3) - pl % width(3) / 2.0
xyz(3) = pl % origin(3) - pl % width(2) / 2.0
else if (pl % basis == PLOT_BASIS_YZ) then
in_i = 2
out_i = 3
in_pixel = pl % width(2)/dble(pl % pixels(1))
out_pixel = pl % width(3)/dble(pl % pixels(2))
in_pixel = pl % width(1)/dble(pl % pixels(1))
out_pixel = pl % width(2)/dble(pl % pixels(2))
xyz(1) = pl % origin(1)
xyz(2) = pl % origin(2) - pl % width(2) / 2.0
xyz(3) = pl % origin(3) - pl % width(3) / 2.0
xyz(2) = pl % origin(2) - pl % width(1) / 2.0
xyz(3) = pl % origin(3) - pl % width(2) / 2.0
end if
! allocate and initialize particle