diff --git a/src/output.F90 b/src/output.F90 index 684db32eaf..5ea7bfc421 100644 --- a/src/output.F90 +++ b/src/output.F90 @@ -1332,8 +1332,14 @@ contains write(ou,100) "Origin:", trim(to_str(pl % origin(1))) // & " " // trim(to_str(pl % origin(2))) // " " // & trim(to_str(pl % origin(3))) - write(ou,100) "Width:", trim(to_str(pl % width(1))) // & - " " // trim(to_str(pl % width(2))) + if (pl % type == PLOT_TYPE_SLICE) then + write(ou,100) "Width:", trim(to_str(pl % width(1))) // & + " " // trim(to_str(pl % width(2))) + else if (pl % type == PLOT_TYPE_VOXEL) then + write(ou,100) "Width:", trim(to_str(pl % width(1))) // & + " " // trim(to_str(pl % width(2))) // & + " " // trim(to_str(pl % width(3))) + end if if (pl % color_by == PLOT_COLOR_CELLS) then write(ou,100) "Coloring:", "Cells" else if (pl % color_by == PLOT_COLOR_MATS) then diff --git a/src/plot.F90 b/src/plot.F90 index 5c454c6724..6343d9cef6 100644 --- a/src/plot.F90 +++ b/src/plot.F90 @@ -240,16 +240,17 @@ contains p % coord0 % uvw = (/ 0.5, 0.5, 0.5 /) p % coord0 % universe = BASE_UNIVERSE - ! move to center of voxels - ll = ll + vox / 2.0 - ! Open binary plot file for writing open(UNIT=UNIT_PLOT, FILE=pl % path_plot, STATUS='replace', & ACCESS='stream') - + + print *, ll ! write plot header info write(UNIT_PLOT) pl % pixels, vox, ll - + + ! move to center of voxels + ll = ll + vox / 2.0 + do x = 1, pl % pixels(1) do y = 1, pl % pixels(2) do z = 1, pl % pixels(3)