SRC/la_constants.f90(3)
π SRC/la_constants.f90(3) π
okay bestie, welcome to the Library Functions Manual page for SRC/la_constants.f90(3) β manual name folded right in, header line not copy-pasted, we're so back. β¨
π NAME π
SRC/la_constants.f90 β the Fortran source file that gives us the la_constants module.
π¦ SYNOPSIS π¦
β¨ Modules β¨
module la_constantsβ its whole vibe is literally:LA_CONSTANTS is a module for the scaling constants for the compiled Fortran single and double precisions. So yes, it's the constants hub, no cap π .
π Variables π
here's the full cast, and I'm keeping every single declaration exactly as written β none of that summarising nonsense, bestie:
integer, parameter la_constants::sp = kind(1.e0)
real(sp), parameter la_constants::szero = 0.0_sp
real(sp), parameter la_constants::shalf = 0.5_sp
real(sp), parameter la_constants::sone = 1.0_sp
real(sp), parameter la_constants::stwo = 2.0_sp
real(sp), parameter la_constants::sthree = 3.0_sp
real(sp), parameter la_constants::sfour = 4.0_sp
real(sp), parameter la_constants::seight = 8.0_sp
real(sp), parameter la_constants::sten = 10.0_sp
complex(sp), parameter la_constants::czero = ( 0.0_sp, 0.0_sp )
complex(sp), parameter la_constants::chalf = ( 0.5_sp, 0.0_sp )
complex(sp), parameter la_constants::cone = ( 1.0_sp, 0.0_sp )
character *1, parameter la_constants::sprefix = 'S'
character *1, parameter la_constants::cprefix = 'C'
real(sp), parameter la_constants::sulp = epsilon(0._sp)
real(sp), parameter la_constants::seps = sulp * 0.5_sp
real(sp), parameter la_constants::ssafmin = real(radix(0._sp), sp)**max(
minexponent(0._sp)-1, 1-maxexponent(0._sp) )
real(sp), parameter la_constants::ssafmax = sone / ssafmin
real(sp), parameter la_constants::ssmlnum = ssafmin / sulp
real(sp), parameter la_constants::sbignum = ssafmax * sulp
real(sp), parameter la_constants::srtmin = sqrt(ssmlnum)
real(sp), parameter la_constants::srtmax = sqrt(sbignum)
real(sp), parameter la_constants::stsml = real(radix(0._sp),
sp)**ceiling( (minexponent(0._sp) - 1) * 0.5_sp)
real(sp), parameter la_constants::stbig = real(radix(0._sp), sp)**floor(
(maxexponent(0._sp) - digits(0._sp) + 1) * 0.5_sp)
real(sp), parameter la_constants::sssml = real(radix(0._sp), sp)**( -
floor( (minexponent(0._sp) - digits(0._sp)) * 0.5_sp))
real(sp), parameter la_constants::ssbig = real(radix(0._sp), sp)**( -
ceiling( (maxexponent(0._sp) + digits(0._sp) - 1) * 0.5_sp))
integer, parameter la_constants::dp = kind(1.d0)
real(dp), parameter la_constants::dzero = 0.0_dp
real(dp), parameter la_constants::dhalf = 0.5_dp
real(dp), parameter la_constants::done = 1.0_dp
real(dp), parameter la_constants::dtwo = 2.0_dp
real(dp), parameter la_constants::dthree = 3.0_dp
real(dp), parameter la_constants::dfour = 4.0_dp
real(dp), parameter la_constants::deight = 8.0_dp
real(dp), parameter la_constants::dten = 10.0_dp
complex(dp), parameter la_constants::zzero = ( 0.0_dp, 0.0_dp )
complex(dp), parameter la_constants::zhalf = ( 0.5_dp, 0.0_dp )
complex(dp), parameter la_constants::zone = ( 1.0_dp, 0.0_dp )
character *1, parameter la_constants::dprefix = 'D'
character *1, parameter la_constants::zprefix = 'Z'
real(dp), parameter la_constants::dulp = epsilon(0._dp)
real(dp), parameter la_constants::deps = dulp * 0.5_dp
real(dp), parameter la_constants::dsafmin = real(radix(0._dp), dp)**max(
minexponent(0._dp)-1, 1-maxexponent(0._dp) )
real(dp), parameter la_constants::dsafmax = done / dsafmin
real(dp), parameter la_constants::dsmlnum = dsafmin / dulp
real(dp), parameter la_constants::dbignum = dsafmax * dulp
real(dp), parameter la_constants::drtmin = sqrt(dsmlnum)
real(dp), parameter la_constants::drtmax = sqrt(dbignum)
real(dp), parameter la_constants::dtsml = real(radix(0._dp),
dp)**ceiling( (minexponent(0._dp) - 1) * 0.5_dp)
real(dp), parameter la_constants::dtbig = real(radix(0._dp), dp)**floor(
(maxexponent(0._dp) - digits(0._dp) + 1) * 0.5_dp)
real(dp), parameter la_constants::dssml = real(radix(0._dp), dp)**( -
floor( (minexponent(0._dp) - digits(0._dp)) * 0.5_dp))
real(dp), parameter la_constants::dsbig = real(radix(0._dp), dp)**( -
ceiling( (maxexponent(0._dp) + digits(0._dp) - 1) * 0.5_dp))
πΈ Author πΈ
Generated automatically by Doxygen for LAPACK from the source code. So yes, this page is auto-generated, not me hand-writing a novel about constants (though I would, honestly π).
xoxo, bestie π β footer check: LAPACK Β· Version 3.12.0 Β· SRC/la_constants.f90(3). That's the source/version/source-file combo at the bottom, and we ate, no cap. π
π¦ where this page comes from
- arch rolling: lapack-doc 3.12.1-2 Β· custom
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash-1017 on : a language model's rewrite of the original, under its terms