From c8e614346dd4612f35baaf86c2992beea3785781 Mon Sep 17 00:00:00 2001
From: Will Boyd <wbinventor@gmail.com>
Date: Tue, 26 May 2015 23:28:53 -0400
Subject: [PATCH] Use array setter in place of loop for particle coordinate
 lattice mapping

---
 src/geometry.F90 | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/geometry.F90 b/src/geometry.F90
index e045b934a4..4f5eb337c9 100644
--- a/src/geometry.F90
+++ b/src/geometry.F90
@@ -266,10 +266,7 @@ contains
           if (.not. associated(p % coord % mapping)) then
             allocate(p % coord % mapping(n_maps))
           end if
-
-          do j = 1, n_maps
-            p % coord % mapping(j) = lat % offset(j, i_xyz(1), i_xyz(2), i_xyz(3))
-          end do
+          p % coord % mapping(:) = lat % offset(:, i_xyz(1), i_xyz(2), i_xyz(3))
         end if
 
         call find_cell(p, found)