FDS Source: Add missing REWIND call

firemodels · Dec 8, 2023 · beddee2 · beddee2
1 parent cca91af
commit beddee2
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/Source/read.f90 b/Source/read.f90
@@ -1049,6 +1049,7 @@ SUBROUTINE READ_TRAN
 
    DO N=1,3
       T%NOC(N) = 0
+      REWIND(LU_INPUT) ; INPUT_FILE_LINE_NUMBER = 0
       TRNLOOP: DO
          ID = 'null'
          SELECT CASE (N)
@@ -1086,7 +1087,7 @@ SUBROUTINE READ_TRAN
          T%NOC(N) = T%NOC(N) + 1
          18 IF (IOS>0) THEN ; CALL SHUTDOWN('ERROR: Problem with TRN* line') ; RETURN ; ENDIF
       ENDDO TRNLOOP
-      17 REWIND(LU_INPUT) ; INPUT_FILE_LINE_NUMBER = 0
+      17 CONTINUE
    ENDDO
 
    T%NOCMAX = MAX(T%NOC(1),T%NOC(2),T%NOC(3))
@@ -1105,6 +1106,7 @@ SUBROUTINE READ_TRAN
    T%ITRAN  = 0
 
    ICLOOP_1: DO IC=1,3
+      REWIND(LU_INPUT) ; INPUT_FILE_LINE_NUMBER = 0
       NLOOP: DO N=1,T%NOC(IC)
          IDERIV = -1
          ID = 'null'
@@ -1153,7 +1155,7 @@ SUBROUTINE READ_TRAN
          IF (IDERIV<0)  T%ITRAN(IC) = 2
       2 CONTINUE
       ENDDO NLOOP
-      1 REWIND(LU_INPUT) ; INPUT_FILE_LINE_NUMBER = 0
+      1 CONTINUE
    ENDDO ICLOOP_1
 
    ICLOOP_2: DO IC=1,3