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)
end module parameters