From 1d0983a5ccefce4c0d2af6fe9ff3a17827dc85ab Mon Sep 17 00:00:00 2001
From: mcgratta <mcgratta@gmail.com>
Date: Mon, 16 Oct 2023 11:12:00 -0400
Subject: [PATCH] FDS Source: Change integer format

---
 Source/read.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/read.f90 b/Source/read.f90
index 5457927c18f..9a593cdd94f 100644
--- a/Source/read.f90
+++ b/Source/read.f90
@@ -527,7 +527,7 @@ INTEGER FUNCTION READ_STOP()
 
    OPEN(UNIT=LU_STOP,FILE=FN_STOP,FORM='FORMATTED',STATUS='OLD',IOSTAT=IERROR)
    IF (IERROR==0) THEN
-      READ(LU_STOP,'(I5)',END=10,IOSTAT=IERROR) READ_STOP
+      READ(LU_STOP,'(I0)',END=10,IOSTAT=IERROR) READ_STOP
       IF (IERROR/=0) READ_STOP=0
    ENDIF
 10 CLOSE(LU_STOP)