---
name: "la_constants.f90"
section: "3"
platform: "linux"
package: "lapack-doc"
version: "3.12.1-2"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/la_constants.f90"
---

# la\_constants.f90(3)

## NAME

SRC/la\_constants.f90

## SYNOPSIS

### Modules

module **la\_constants**\
 **LA\_CONSTANTS** is a module for the scaling constants for the compiled Fortran single and double precisions

### Variables

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.