stdlib_blas_constants_dp Module



Variables

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