From e29c9817fe7e4231bb0c4640c070d4cdf3dc0940 Mon Sep 17 00:00:00 2001 From: nhorelik Date: Sat, 13 Apr 2013 22:56:53 -0400 Subject: [PATCH] Simplified header write statement --- src/plot.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/plot.F90 b/src/plot.F90 index fa728ad4a..0ddcd238f 100644 --- a/src/plot.F90 +++ b/src/plot.F90 @@ -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)