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