la_constants_sp Module Reference

32-bit BLAS/LAPACK constants More...

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

Detailed Description

32-bit BLAS/LAPACK constants

Variable Documentation

bignum

real(sp), parameter, public la_constants_sp::bignum = safmax*ulp

chalf

complex(sp), parameter, public la_constants_sp::chalf = (0.5_sp, 0.0_sp)

cnegone

complex(sp), parameter, public la_constants_sp::cnegone = (-1.0_sp, 0.0_sp)

cone

complex(sp), parameter, public la_constants_sp::cone = (1.0_sp, 0.0_sp)

czero

complex(sp), parameter, public la_constants_sp::czero = (0.0_sp, 0.0_sp)

eight

real(sp), parameter, public la_constants_sp::eight = 8.00_sp

eps

real(sp), parameter, public la_constants_sp::eps = ulp*half

four

real(sp), parameter, public la_constants_sp::four = 4.00_sp

half

real(sp), parameter, public la_constants_sp::half = 0.50_sp

maxexp

integer, parameter, public la_constants_sp::maxexp = maxexponent(zero)

minexp

integer, parameter, public la_constants_sp::minexp = minexponent(zero)

negone

real(sp), parameter, public la_constants_sp::negone = -1.00_sp

one

real(sp), parameter, public la_constants_sp::one = 1.00_sp

rradix

real(sp), parameter, public la_constants_sp::rradix = real(radix(zero), sp)

rtmax

real(sp), parameter, public la_constants_sp::rtmax = sqrt(bignum)

rtmin

real(sp), parameter, public la_constants_sp::rtmin = sqrt(smlnum)

safmax

real(sp), parameter, public la_constants_sp::safmax = one/safmin

safmin

real(sp), parameter, public la_constants_sp::safmin = rradix**max(minexp - 1, 1 - maxexp)

sbig

real(sp), parameter, public la_constants_sp::sbig = rradix**(-ceiling((maxexp + digits(zero) - 1)*half))

smlnum

real(sp), parameter, public la_constants_sp::smlnum = safmin/ulp

ssml

real(sp), parameter, public la_constants_sp::ssml = rradix**(-floor((minexp - digits(zero))*half))

tbig

real(sp), parameter, public la_constants_sp::tbig = rradix**floor((maxexp - digits(zero) + 1)*half)

ten

real(sp), parameter, public la_constants_sp::ten = 10.00_sp

three

real(sp), parameter, public la_constants_sp::three = 3.00_sp

tsml

real(sp), parameter, public la_constants_sp::tsml = rradix**ceiling((minexp - 1)*half)

two

real(sp), parameter, public la_constants_sp::two = 2.00_sp

ulp

real(sp), parameter, public la_constants_sp::ulp = epsilon(zero)

zero

real(sp), parameter, public la_constants_sp::zero = 0.00_sp