stdlib_blas_constants_sp Module



Variables

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