From 6bdfcb12cff61eee966153daaefeddf2398bc96c Mon Sep 17 00:00:00 2001
From: gforney <gforney@gmail.com>
Date: Wed, 1 Nov 2023 13:10:18 -0400
Subject: [PATCH] FDS source: remove CLOSE of slice file bounds file put in
 wrong place

---
 Source/dump.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/Source/dump.f90 b/Source/dump.f90
index 45ed5b80daf..2cf728ddafc 100644
--- a/Source/dump.f90
+++ b/Source/dump.f90
@@ -6049,7 +6049,6 @@ SUBROUTINE DUMP_SLCF(T,DT,NM,IFRMT)
             CLOSE(LU_SLCF(IQ2,NM))
          ENDIF
          CLOSE(LU_SLCF(IQ,NM))
-         CLOSE(LU_SLCF(IQ+N_SLCF_MAX,NM))
       ENDIF
    ENDIF