Merge pull request #12652 from drjfloyd/master

FDS Source: Close LU_EXTERNAL after reading its contents. Fix EXTERNA…

Author: drjfloyd

Source/func.f90

@@ -572,7 +572,7 @@ SUBROUTINE READ_EXTERNAL_FILE(FAILED)
 OPEN(LU_EXTERNAL,FILE=EXTERNAL_FILENAME,ERR=100)
 
 DO
-   READ(UNIT=LU_EXTERNAL,END=200,ERR=100,FMT=*) INPUT_TYPE,INPUT_LABEL,INPUT_REAL
+   READ(UNIT=LU_EXTERNAL,END=200,ERR=110,FMT=*) INPUT_TYPE,INPUT_LABEL,INPUT_REAL
    IF (INPUT_TYPE=='RAMP') THEN
       DO NR=1,N_RAMP
          IF (TRIM(RAMPS(NR)%ID) == TRIM(INPUT_LABEL)) THEN
@@ -584,9 +584,9 @@ SUBROUTINE READ_EXTERNAL_FILE(FAILED)
       DO NC=1,N_CTRL
          IF (TRIM(CONTROL(NC)%ID) == TRIM(INPUT_LABEL)) THEN
             IF (INPUT_REAL < 0) THEN
-               EXTERNAL_CTRL = .FALSE.
+               EXTERNAL_CTRL(NC) = .FALSE.
             ELSE
-               EXTERNAL_CTRL = .TRUE.
+               EXTERNAL_CTRL(NC) = .TRUE.
             ENDIF
             EXIT
          ENDIF
@@ -597,8 +597,12 @@ SUBROUTINE READ_EXTERNAL_FILE(FAILED)
 
 RETURN
 
-100 FAILED = .TRUE.
-200 RETURN
+110 CLOSE(LU_EXTERNAL)
+100 FAILED = .TRUE.    
+RETURN
+
+200 CLOSE(LU_EXTERNAL)
+RETURN
 
 END SUBROUTINE READ_EXTERNAL_FILE