avoid error due to limited floating point accurary
This commit is contained in:
parent
2a5f61e1ec
commit
ea4867770f
2
PRIVATE
2
PRIVATE
|
@ -1 +1 @@
|
||||||
Subproject commit 023f86ff9e603dcc8c7adc16545783653083ea83
|
Subproject commit 47229e6375fe0dafc01fda6e74ec704df4f793a7
|
|
@ -148,7 +148,7 @@ subroutine parse()
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
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
|
enddo
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue