You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
605 B
20 lines
605 B
module parameters
|
|
|
|
implicit none
|
|
|
|
!Default precision
|
|
integer, parameter :: dp= selected_real_kind(15,307), &
|
|
min_efillsize = 11
|
|
!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
|
|
|
|
!Mode type that is being called
|
|
character(len=100) :: mode
|
|
end module parameters
|