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

Explicit integer conversion in read_plots_xml.

Browse source
This commit is contained in:
Paul Romano 2012-05-03 10:00:10 -04:00
parent dbc026df0e
commit 84ca556661
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/input_xml.F90
View file

@ -1338,9 +1338,9 @@ contains
pl % color_by = PLOT_COLOR_CELLS
allocate(pl % colors(n_cells))
do j = 1, n_cells
pl % colors(j) % rgb(1) = prn()*255
pl % colors(j) % rgb(2) = prn()*255
pl % colors(j) % rgb(3) = prn()*255
pl % colors(j) % rgb(1) = int(prn()*255)
pl % colors(j) % rgb(2) = int(prn()*255)
pl % colors(j) % rgb(3) = int(prn()*255)
end do
case ("mat", "material")
@ -1348,9 +1348,9 @@ contains
pl % color_by = PLOT_COLOR_MATS
allocate(pl % colors(n_materials))
do j = 1, n_materials
pl % colors(j) % rgb(1) = prn()*255
pl % colors(j) % rgb(2) = prn()*255
pl % colors(j) % rgb(3) = prn()*255
pl % colors(j) % rgb(1) = int(prn()*255)
pl % colors(j) % rgb(2) = int(prn()*255)
pl % colors(j) % rgb(3) = int(prn()*255)
end do
case default