Merge pull request #15049 from cxp484/master

FDS Source: Minor syntax correction

Author: cxp484

Source/func.f90

@@ -2178,9 +2178,9 @@ SUBROUTINE CALC_EQUIV_RATIO (ZZ, EQUIV)
    DENOM = DENOM + ZZ(NS)*SPECIES_MIXTURE(NS)%OXA
 ENDDO
 
-IF (NUMER .LE. 0.0_EB) THEN
+IF (NUMER <= 0.0_EB) THEN
    EQUIV= 0._EB;
-ELSEIF (DENOM .LE. 0.0_EB) THEN
+ELSEIF (DENOM <= 0.0_EB) THEN
    EQUIV= 1000._EB; ! Set a high value
 ELSE
    EQUIV = NUMER/ DENOM;