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

Simplified header write statement

Browse source
This commit is contained in:
nhorelik 2013-04-13 22:56:53 -04:00
parent a903af9bbc
commit e29c9817fe
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/plot.F90
View file

@ -248,8 +248,7 @@ contains
ACCESS='stream')
! write plot header info
write(UNIT_PLOT) pl % pixels(1), pl % pixels(2), pl % pixels(3)
write(UNIT_PLOT) vox, ll
write(UNIT_PLOT) pl % pixels, vox, ll
do x = 1, pl % pixels(1)
do y = 1, pl % pixels(2)