From 94e1c9fd7bc5d7fedbbec5b01436bdd3f44a3fbc Mon Sep 17 00:00:00 2001
From: Alex Selimov <aselimov3@gatech.edu>
Date: Mon, 27 Jan 2020 11:56:31 -0500
Subject: [PATCH] Missing allocation in disloop code

---
 src/opt_disl.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/opt_disl.f90 b/src/opt_disl.f90
index 00886e5..79c45bf 100644
--- a/src/opt_disl.f90
+++ b/src/opt_disl.f90
@@ -292,6 +292,7 @@ module opt_disl
         end select
 
         if(loop_radius < 0.0_dp) then 
+                ALLOCATE(xLoop(4,3))
                 xLoop(:,:) = 0.d0
                 xLoop(1,a1) = centroid(1) - loop_radius
                 xLoop(1,a2) = centroid(2) - loop_radius