aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tol variable replacing lim_zero as a tolerance for real checks

Browse source
This commit is contained in:
Alex Selimov 2020-03-13 15:11:22 -04:00
parent 6642c2a1b7
commit 44a9dbaead
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/parameters.f90
View file

@ -6,7 +6,8 @@ module parameters
integer, parameter :: dp= selected_real_kind(15,307)
!Parameters for floating point tolerance
real(kind=dp), parameter :: lim_zero = epsilon(1.0_dp), &
lim_large = huge(1.0_dp)
lim_large = huge(1.0_dp), &
tol = 10.0_dp**(-6.0_dp)
logical, save :: lmpcac
!Numeric constants