10 lines
No EOL
268 B
Fortran
10 lines
No EOL
268 B
Fortran
module parameters
|
|
|
|
implicit none
|
|
|
|
integer, parameter :: dp= selected_real_kind(15,307)
|
|
real(kind=dp), parameter :: lim_zero = epsilon(1.0_dp), &
|
|
lim_large = huge(1.0_dp)
|
|
logical, save :: lmpcac
|
|
|
|
end module parameters |