From 4fed05533bb41802f36e9a30907cf979e9d1f8a9 Mon Sep 17 00:00:00 2001
From: Hunter Belanger <hunter.belanger@gmail.com>
Date: Tue, 17 Oct 2023 17:51:34 -0400
Subject: [PATCH] Fix bug when processing material with coherent elastic
 scattering.

---
 src/leapr.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/leapr.f90 b/src/leapr.f90
index 8051a4e0..4702512f 100644
--- a/src/leapr.f90
+++ b/src/leapr.f90
@@ -413,7 +413,7 @@ subroutine leapr
    isym=0
    if (ncold.ne.0) isym=1
    if (isabt.eq.1) isym=isym+2
-   mscr = 8 + 2*nalpha ! Max needed length of scr based on endout
+   mscr = max(8 + 2*nalpha, 8 + 2*nedge) ! Max needed length of scr based on endout
    allocate(scr(mscr))
    call endout(ntempr,bragg,nedge,maxb,scr,mscr,isym,ilog)