2019-11-25 18:19:25 -05:00
|
|
|
module parameters
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
2019-12-25 16:30:18 -05:00
|
|
|
!Default precision
|
2019-11-25 18:19:25 -05:00
|
|
|
integer, parameter :: dp= selected_real_kind(15,307)
|
2019-12-25 16:30:18 -05:00
|
|
|
!Parameters for floating point tolerance
|
2019-11-25 18:19:25 -05:00
|
|
|
real(kind=dp), parameter :: lim_zero = epsilon(1.0_dp), &
|
2020-03-13 15:11:22 -04:00
|
|
|
lim_large = huge(1.0_dp), &
|
|
|
|
|
tol = 10.0_dp**(-6.0_dp)
|
2020-01-29 10:25:33 -05:00
|
|
|
logical, save :: lmpcac
|
2020-01-13 20:12:46 -05:00
|
|
|
|
2019-12-25 16:30:18 -05:00
|
|
|
!Numeric constants
|
|
|
|
|
real(kind=dp), parameter :: pi = 3.14159265358979323846_dp
|
|
|
|
|
|
2020-01-13 20:24:15 -05:00
|
|
|
end module parameters
|
