From 5db982406428e40e09154b530b0de7ee7b7ed00b Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 22 Dec 2013 20:57:36 -0500 Subject: [PATCH] Fix particle track bug when using Intel compiler. --- src/input_xml.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 63fb2163e3..3ce3c9d0d4 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -474,7 +474,8 @@ contains allocate(temp_int_array(n_tracks)) call get_node_array(doc, "track", temp_int_array) - ! Reshape into track_identifiers -- note automatic array allocation + ! Reshape into track_identifiers + allocate(track_identifiers(3, n_tracks/3)) track_identifiers = reshape(temp_int_array, [3, n_tracks/3]) end if