FDS Source: Change integer format

firemodels · Oct 16, 2023 · 1d0983a · 1d0983a
1 parent 570c016
commit 1d0983a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)