la_constants_kinds.f90 File Reference

Modules
module	la_constants_sp
	32-bit BLAS/LAPACK constants
module	la_constants_dp
	64-bit BLAS/LAPACK constants
module	la_constants_qp
	128-bit BLAS/LAPACK constants

Variables
real(sp), parameter, public	la_constants_sp::negone = -1.00_sp
real(sp), parameter, public	la_constants_sp::zero = 0.00_sp
real(sp), parameter, public	la_constants_sp::half = 0.50_sp
real(sp), parameter, public	la_constants_sp::one = 1.00_sp
real(sp), parameter, public	la_constants_sp::two = 2.00_sp
real(sp), parameter, public	la_constants_sp::three = 3.00_sp
real(sp), parameter, public	la_constants_sp::four = 4.00_sp
real(sp), parameter, public	la_constants_sp::eight = 8.00_sp
real(sp), parameter, public	la_constants_sp::ten = 10.00_sp
complex(sp), parameter, public	la_constants_sp::czero = (0.0_sp, 0.0_sp)
complex(sp), parameter, public	la_constants_sp::chalf = (0.5_sp, 0.0_sp)
complex(sp), parameter, public	la_constants_sp::cone = (1.0_sp, 0.0_sp)
complex(sp), parameter, public	la_constants_sp::cnegone = (-1.0_sp, 0.0_sp)
integer, parameter, public	la_constants_sp::maxexp = maxexponent(zero)
integer, parameter, public	la_constants_sp::minexp = minexponent(zero)
real(sp), parameter, public	la_constants_sp::rradix = real(radix(zero), sp)
real(sp), parameter, public	la_constants_sp::ulp = epsilon(zero)
real(sp), parameter, public	la_constants_sp::eps = ulp*half
real(sp), parameter, public	la_constants_sp::safmin = rradix**max(minexp - 1, 1 - maxexp)
real(sp), parameter, public	la_constants_sp::safmax = one/safmin
real(sp), parameter, public	la_constants_sp::smlnum = safmin/ulp
real(sp), parameter, public	la_constants_sp::bignum = safmax*ulp
real(sp), parameter, public	la_constants_sp::rtmin = sqrt(smlnum)
real(sp), parameter, public	la_constants_sp::rtmax = sqrt(bignum)
real(sp), parameter, public	la_constants_sp::tsml = rradix**ceiling((minexp - 1)*half)
real(sp), parameter, public	la_constants_sp::tbig = rradix**floor((maxexp - digits(zero) + 1)*half)
real(sp), parameter, public	la_constants_sp::ssml = rradix**(-floor((minexp - digits(zero))*half))
real(sp), parameter, public	la_constants_sp::sbig = rradix**(-ceiling((maxexp + digits(zero) - 1)*half))
real(dp), parameter, public	la_constants_dp::negone = -1.00_dp
real(dp), parameter, public	la_constants_dp::zero = 0.00_dp
real(dp), parameter, public	la_constants_dp::half = 0.50_dp
real(dp), parameter, public	la_constants_dp::one = 1.00_dp
real(dp), parameter, public	la_constants_dp::two = 2.00_dp
real(dp), parameter, public	la_constants_dp::three = 3.00_dp
real(dp), parameter, public	la_constants_dp::four = 4.00_dp
real(dp), parameter, public	la_constants_dp::eight = 8.00_dp
real(dp), parameter, public	la_constants_dp::ten = 10.00_dp
complex(dp), parameter, public	la_constants_dp::czero = (0.0_dp, 0.0_dp)
complex(dp), parameter, public	la_constants_dp::chalf = (0.5_dp, 0.0_dp)
complex(dp), parameter, public	la_constants_dp::cone = (1.0_dp, 0.0_dp)
complex(dp), parameter, public	la_constants_dp::cnegone = (-1.0_dp, 0.0_dp)
integer, parameter, public	la_constants_dp::maxexp = maxexponent(zero)
integer, parameter, public	la_constants_dp::minexp = minexponent(zero)
real(dp), parameter, public	la_constants_dp::rradix = real(radix(zero), dp)
real(dp), parameter, public	la_constants_dp::ulp = epsilon(zero)
real(dp), parameter, public	la_constants_dp::eps = ulp*half
real(dp), parameter, public	la_constants_dp::safmin = rradix**max(minexp - 1, 1 - maxexp)
real(dp), parameter, public	la_constants_dp::safmax = one/safmin
real(dp), parameter, public	la_constants_dp::smlnum = safmin/ulp
real(dp), parameter, public	la_constants_dp::bignum = safmax*ulp
real(dp), parameter, public	la_constants_dp::rtmin = sqrt(smlnum)
real(dp), parameter, public	la_constants_dp::rtmax = sqrt(bignum)
real(dp), parameter, public	la_constants_dp::tsml = rradix**ceiling((minexp - 1)*half)
real(dp), parameter, public	la_constants_dp::tbig = rradix**floor((maxexp - digits(zero) + 1)*half)
real(dp), parameter, public	la_constants_dp::ssml = rradix**(-floor((minexp - digits(zero))*half))
real(dp), parameter, public	la_constants_dp::sbig = rradix**(-ceiling((maxexp + digits(zero) - 1)*half))
real(qp), parameter, public	la_constants_qp::negone = -1.00_qp
real(qp), parameter, public	la_constants_qp::zero = 0.00_qp
real(qp), parameter, public	la_constants_qp::half = 0.50_qp
real(qp), parameter, public	la_constants_qp::one = 1.00_qp
real(qp), parameter, public	la_constants_qp::two = 2.00_qp
real(qp), parameter, public	la_constants_qp::three = 3.00_qp
real(qp), parameter, public	la_constants_qp::four = 4.00_qp
real(qp), parameter, public	la_constants_qp::eight = 8.00_qp
real(qp), parameter, public	la_constants_qp::ten = 10.00_qp
complex(qp), parameter, public	la_constants_qp::czero = (0.0_qp, 0.0_qp)
complex(qp), parameter, public	la_constants_qp::chalf = (0.5_qp, 0.0_qp)
complex(qp), parameter, public	la_constants_qp::cone = (1.0_qp, 0.0_qp)
complex(qp), parameter, public	la_constants_qp::cnegone = (-1.0_qp, 0.0_qp)
integer, parameter, public	la_constants_qp::maxexp = maxexponent(zero)
integer, parameter, public	la_constants_qp::minexp = minexponent(zero)
real(qp), parameter, public	la_constants_qp::rradix = real(radix(zero), qp)
real(qp), parameter, public	la_constants_qp::ulp = epsilon(zero)
real(qp), parameter, public	la_constants_qp::eps = ulp*half
real(qp), parameter, public	la_constants_qp::safmin = rradix**max(minexp - 1, 1 - maxexp)
real(qp), parameter, public	la_constants_qp::safmax = one/safmin
real(qp), parameter, public	la_constants_qp::smlnum = safmin/ulp
real(qp), parameter, public	la_constants_qp::bignum = safmax*ulp
real(qp), parameter, public	la_constants_qp::rtmin = sqrt(smlnum)
real(qp), parameter, public	la_constants_qp::rtmax = sqrt(bignum)
real(qp), parameter, public	la_constants_qp::tsml = rradix**ceiling((minexp - 1)*half)
real(qp), parameter, public	la_constants_qp::tbig = rradix**floor((maxexp - digits(zero) + 1)*half)
real(qp), parameter, public	la_constants_qp::ssml = rradix**(-floor((minexp - digits(zero))*half))
real(qp), parameter, public	la_constants_qp::sbig = rradix**(-ceiling((maxexp + digits(zero) - 1)*half))