avoid error due to limited floating point accurary

This commit is contained in:
Martin Diehl 2021-06-21 16:15:40 +02:00
parent 2a5f61e1ec
commit ea4867770f
2 changed files with 2 additions and 2 deletions

@ -1 +1 @@
Subproject commit 023f86ff9e603dcc8c7adc16545783653083ea83
Subproject commit 47229e6375fe0dafc01fda6e74ec704df4f793a7

View File

@ -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