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

Change printing of basis for plotting mode.

Browse source
This commit is contained in:
Paul Romano 2013-01-29 15:08:51 -05:00
parent f84615e755
commit e34d8383ef
2 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/output.F90
View file

@ -1313,7 +1313,14 @@ contains
write(ou,100) "Width:", trim(to_str(pl % width(1))) // &
" " // trim(to_str(pl % width(2)))
write(ou,100) "Coloring:", trim(to_str(pl % color_by))
write(ou,100) "Basis:", trim(to_str(pl % basis))
select case (pl % basis)
case (PLOT_BASIS_XY)
write(ou,100) "Basis:", "xy"
case (PLOT_BASIS_XZ)
write(ou,100) "Basis:", "xz"
case (PLOT_BASIS_YZ)
write(ou,100) "Basis:", "yz"
end select
write(ou,100) "Pixels:", trim(to_str(pl % pixels(1))) // " " // &
trim(to_str(pl % pixels(2)))
end if

15
src/plot_header.F90
View file

@ -29,15 +29,14 @@ module plot_header
type(ObjectColor), allocatable :: colors(:) ! colors of cells/mats
end type Plot
integer :: PLOT_TYPE_SLICE = 1
integer :: PLOT_TYPE_POINTS = 2
integer, parameter :: PLOT_TYPE_SLICE = 1
integer, parameter :: PLOT_TYPE_POINTS = 2
integer :: PLOT_BASIS_XY = 1
integer :: PLOT_BASIS_XZ = 2
integer :: PLOT_BASIS_YZ = 3
integer :: PLOT_COLOR_CELLS = 1
integer :: PLOT_COLOR_MATS = 2
integer, parameter :: PLOT_BASIS_XY = 1
integer, parameter :: PLOT_BASIS_XZ = 2
integer, parameter :: PLOT_BASIS_YZ = 3
integer, parameter :: PLOT_COLOR_CELLS = 1
integer, parameter :: PLOT_COLOR_MATS = 2
end module plot_header