Commit 998596e7 authored by ulrich_y's avatar ulrich_y

Use different stop values in quad precision

parent af47d01a
...@@ -4,8 +4,16 @@ MODULE mpl_module ...@@ -4,8 +4,16 @@ MODULE mpl_module
use ieps use ieps
implicit none implicit none
#ifndef KINDREAL
#define KINDREAL 8
#endif
#if KINDREAL==16
real(kind=prec), parameter :: underflowalert = 1.e-600_prec
real(kind=prec), parameter :: overflowalert = 1.e+600_prec
#else
real(kind=prec), parameter :: underflowalert = 1.e-250_prec real(kind=prec), parameter :: underflowalert = 1.e-250_prec
real(kind=prec), parameter :: overflowalert = 1.e+250_prec real(kind=prec), parameter :: overflowalert = 1.e+250_prec
#endif
#ifdef MPL_CACHE #ifdef MPL_CACHE
! Max weight, no. cache ! Max weight, no. cache
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment