17 lines
485 B
Fortran
17 lines
485 B
Fortran
module parameters
|
|
|
|
implicit none
|
|
|
|
!Default precision
|
|
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), &
|
|
tol = 10.0_dp**(-6.0_dp)
|
|
logical, save :: lmpcac
|
|
|
|
!Numeric constants
|
|
real(kind=dp), parameter :: pi = 3.14159265358979323846_dp
|
|
|
|
end module parameters
|