From ea4867770f851ecaf7e2704e14a142a77de6e78c Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 21 Jun 2021 16:15:40 +0200
Subject: [PATCH] avoid error due to limited floating point accurary

---
 PRIVATE          | 2 +-
 src/material.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/PRIVATE b/PRIVATE
index 023f86ff9..47229e637 160000
--- a/PRIVATE
+++ b/PRIVATE
@@ -1 +1 @@
-Subproject commit 023f86ff9e603dcc8c7adc16545783653083ea83
+Subproject commit 47229e6375fe0dafc01fda6e74ec704df4f793a7
diff --git a/src/material.f90 b/src/material.f90
index 7aee676e6..cd8a320fa 100644
--- a/src/material.f90
+++ b/src/material.f90
@@ -148,7 +148,7 @@ subroutine parse()
       enddo
 
     enddo
-    if (dNeq(frac,1.0_pReal)) call IO_error(153,ext_msg='constituent')
+    if (dNeq(frac,1.0_pReal,1.e-12_pReal)) call IO_error(153,ext_msg='constituent')
 
   enddo