Merge pull request #16249 from drjfloyd/master

FDS Source: Fix typo

Author: drjfloyd

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