From ea7a364db3267822bf61244ec22b13fa8ec9a4fd Mon Sep 17 00:00:00 2001
From: Jason Floyd <drjfloyd@gmail.com>
Date: Sat, 9 May 2026 14:09:49 -0400
Subject: [PATCH] FDS Source: Fix typo

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

diff --git a/Source/read.f90 b/Source/read.f90
index d0e61aedae..c2edaa5b02 100644
--- a/Source/read.f90
+++ b/Source/read.f90
@@ -4679,7 +4679,7 @@ SUBROUTINE READ_REAC
 
    RN => REACTION(NR)
 
-   IF (C > 0._EB .OR. H > 0._EB .OR. O > 0._EB .OR. H > 0.EB) THEN
+   IF (C > 0._EB .OR. H > 0._EB .OR. O > 0._EB .OR. H > 0._EB) THEN
        WRITE(MESSAGE,'(A)') 'WARNING: Recommend using SPEC to define FUEL chemistry for REAC'
          IF (MY_RANK==0) WRITE(LU_ERR,'(A)') TRIM(MESSAGE)
    ENDIF