From a70fdd1b868f493fd4a58cd07d6a467aba24eec8 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Thu, 14 Nov 2013 19:14:21 -0500
Subject: [PATCH] Set default for p % write_track.

---
 src/particle_header.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/particle_header.F90 b/src/particle_header.F90
index b9762960ed..e1c696ff16 100644
--- a/src/particle_header.F90
+++ b/src/particle_header.F90
@@ -77,7 +77,7 @@ module particle_header
     integer    :: n_collision   ! # of collisions
 
     ! Track output
-    logical    :: write_track
+    logical    :: write_track = .false.
 
   contains
     procedure :: initialize => initialize_particle