.TH "la_constants" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME la_constants \- \fBLA_CONSTANTS\fP is a module for the scaling constants for the compiled Fortran single and double precisions .SH SYNOPSIS .br .PP .SS "Variables" .in +1c .ti -1c .RI "integer, parameter \fBsp\fP = kind(1\&.e0)" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBszero\fP = 0\&.0_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBshalf\fP = 0\&.5_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsone\fP = 1\&.0_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBstwo\fP = 2\&.0_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsthree\fP = 3\&.0_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsfour\fP = 4\&.0_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBseight\fP = 8\&.0_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsten\fP = 10\&.0_sp" .br .ti -1c .RI "complex(\fBsp\fP), parameter \fBczero\fP = ( 0\&.0_sp, 0\&.0_sp )" .br .ti -1c .RI "complex(\fBsp\fP), parameter \fBchalf\fP = ( 0\&.5_sp, 0\&.0_sp )" .br .ti -1c .RI "complex(\fBsp\fP), parameter \fBcone\fP = ( 1\&.0_sp, 0\&.0_sp )" .br .ti -1c .RI "character *1, parameter \fBsprefix\fP = 'S'" .br .ti -1c .RI "character *1, parameter \fBcprefix\fP = 'C'" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsulp\fP = epsilon(0\&._sp)" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBseps\fP = \fBsulp\fP * 0\&.5_sp" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBssafmin\fP = real(radix(0\&._sp), \fBsp\fP)**max( minexponent(0\&._sp)\-1, 1\-maxexponent(0\&._sp) )" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBssafmax\fP = \fBsone\fP / \fBssafmin\fP" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBssmlnum\fP = \fBssafmin\fP / \fBsulp\fP" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsbignum\fP = \fBssafmax\fP * \fBsulp\fP" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsrtmin\fP = sqrt(\fBssmlnum\fP)" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsrtmax\fP = sqrt(\fBsbignum\fP)" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBstsml\fP = real(radix(0\&._sp), \fBsp\fP)**ceiling( (minexponent(0\&._sp) \- 1) * 0\&.5_sp)" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBstbig\fP = real(radix(0\&._sp), \fBsp\fP)**floor( (maxexponent(0\&._sp) \- digits(0\&._sp) + 1) * 0\&.5_sp)" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBsssml\fP = real(radix(0\&._sp), \fBsp\fP)**( \- floor( (minexponent(0\&._sp) \- digits(0\&._sp)) * 0\&.5_sp))" .br .ti -1c .RI "real(\fBsp\fP), parameter \fBssbig\fP = real(radix(0\&._sp), \fBsp\fP)**( \- ceiling( (maxexponent(0\&._sp) + digits(0\&._sp) \- 1) * 0\&.5_sp))" .br .ti -1c .RI "integer, parameter \fBdp\fP = kind(1\&.d0)" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdzero\fP = 0\&.0_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdhalf\fP = 0\&.5_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdone\fP = 1\&.0_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdtwo\fP = 2\&.0_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdthree\fP = 3\&.0_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdfour\fP = 4\&.0_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdeight\fP = 8\&.0_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdten\fP = 10\&.0_dp" .br .ti -1c .RI "complex(\fBdp\fP), parameter \fBzzero\fP = ( 0\&.0_dp, 0\&.0_dp )" .br .ti -1c .RI "complex(\fBdp\fP), parameter \fBzhalf\fP = ( 0\&.5_dp, 0\&.0_dp )" .br .ti -1c .RI "complex(\fBdp\fP), parameter \fBzone\fP = ( 1\&.0_dp, 0\&.0_dp )" .br .ti -1c .RI "character *1, parameter \fBdprefix\fP = 'D'" .br .ti -1c .RI "character *1, parameter \fBzprefix\fP = 'Z'" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdulp\fP = epsilon(0\&._dp)" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdeps\fP = \fBdulp\fP * 0\&.5_dp" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdsafmin\fP = real(radix(0\&._dp), \fBdp\fP)**max( minexponent(0\&._dp)\-1, 1\-maxexponent(0\&._dp) )" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdsafmax\fP = \fBdone\fP / \fBdsafmin\fP" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdsmlnum\fP = \fBdsafmin\fP / \fBdulp\fP" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdbignum\fP = \fBdsafmax\fP * \fBdulp\fP" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdrtmin\fP = sqrt(\fBdsmlnum\fP)" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdrtmax\fP = sqrt(\fBdbignum\fP)" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdtsml\fP = real(radix(0\&._dp), \fBdp\fP)**ceiling( (minexponent(0\&._dp) \- 1) * 0\&.5_dp)" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdtbig\fP = real(radix(0\&._dp), \fBdp\fP)**floor( (maxexponent(0\&._dp) \- digits(0\&._dp) + 1) * 0\&.5_dp)" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdssml\fP = real(radix(0\&._dp), \fBdp\fP)**( \- floor( (minexponent(0\&._dp) \- digits(0\&._dp)) * 0\&.5_dp))" .br .ti -1c .RI "real(\fBdp\fP), parameter \fBdsbig\fP = real(radix(0\&._dp), \fBdp\fP)**( \- ceiling( (maxexponent(0\&._dp) + digits(0\&._dp) \- 1) * 0\&.5_dp))" .br .in -1c .SH "Detailed Description" .PP \fBLA_CONSTANTS\fP is a module for the scaling constants for the compiled Fortran single and double precisions .PP \fBAuthor\fP .RS 4 Edward Anderson, Lockheed Martin .RE .PP \fBDate\fP .RS 4 May 2016 .RE .PP \fBContributors:\fP .RS 4 Weslley Pereira, University of Colorado Denver, USA Nick Papior, Technical University of Denmark, DK .RE .PP \fBFurther Details:\fP .RS 4 .PP .nf !> !> Anderson E\&. (2017) !> Algorithm 978: Safe Scaling in the Level 1 BLAS !> ACM Trans Math Softw 44:1--28 !> https://doi\&.org/10\&.1145/3061665 !> !> Blue, James L\&. (1978) !> A Portable Fortran Program to Find the Euclidean Norm of a Vector !> ACM Trans Math Softw 4:15--23 !> https://doi\&.org/10\&.1145/355769\&.355771 !> !> .fi .PP .RE .PP .SH "Variable Documentation" .PP .SS "complex(\fBsp\fP), parameter la_constants::chalf = ( 0\&.5_sp, 0\&.0_sp )" .PP Definition at line \fB57\fP of file \fBla_constants\&.f90\fP\&. .SS "complex(\fBsp\fP), parameter la_constants::cone = ( 1\&.0_sp, 0\&.0_sp )" .PP Definition at line \fB58\fP of file \fBla_constants\&.f90\fP\&. .SS "character*1, parameter la_constants::cprefix = 'C'" .PP Definition at line \fB60\fP of file \fBla_constants\&.f90\fP\&. .SS "complex(\fBsp\fP), parameter la_constants::czero = ( 0\&.0_sp, 0\&.0_sp )" .PP Definition at line \fB56\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dbignum = \fBdsafmax\fP * \fBdulp\fP" .PP Definition at line \fB114\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::deight = 8\&.0_dp" .PP Definition at line \fB97\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::deps = \fBdulp\fP * 0\&.5_dp" .PP Definition at line \fB107\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dfour = 4\&.0_dp" .PP Definition at line \fB96\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dhalf = 0\&.5_dp" .PP Definition at line \fB92\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::done = 1\&.0_dp" .PP Definition at line \fB93\fP of file \fBla_constants\&.f90\fP\&. .SS "integer, parameter la_constants::dp = kind(1\&.d0)" .PP Definition at line \fB89\fP of file \fBla_constants\&.f90\fP\&. .SS "character*1, parameter la_constants::dprefix = 'D'" .PP Definition at line \fB102\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::drtmax = sqrt(\fBdbignum\fP)" .PP Definition at line \fB116\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::drtmin = sqrt(\fBdsmlnum\fP)" .PP Definition at line \fB115\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dsafmax = \fBdone\fP / \fBdsafmin\fP" .PP Definition at line \fB112\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dsafmin = real(radix(0\&._dp), \fBdp\fP)**max( minexponent(0\&._dp)\-1, 1\-maxexponent(0\&._dp) )" .PP Definition at line \fB108\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dsbig = real(radix(0\&._dp), \fBdp\fP)**( \- ceiling( (maxexponent(0\&._dp) + digits(0\&._dp) \- 1) * 0\&.5_dp))" .PP Definition at line \fB128\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dsmlnum = \fBdsafmin\fP / \fBdulp\fP" .PP Definition at line \fB113\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dssml = real(radix(0\&._dp), \fBdp\fP)**( \- floor( (minexponent(0\&._dp) \- digits(0\&._dp)) * 0\&.5_dp))" .PP Definition at line \fB125\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dtbig = real(radix(0\&._dp), \fBdp\fP)**floor( (maxexponent(0\&._dp) \- digits(0\&._dp) + 1) * 0\&.5_dp)" .PP Definition at line \fB121\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dten = 10\&.0_dp" .PP Definition at line \fB98\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dthree = 3\&.0_dp" .PP Definition at line \fB95\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dtsml = real(radix(0\&._dp), \fBdp\fP)**ceiling( (minexponent(0\&._dp) \- 1) * 0\&.5_dp)" .PP Definition at line \fB119\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dtwo = 2\&.0_dp" .PP Definition at line \fB94\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dulp = epsilon(0\&._dp)" .PP Definition at line \fB106\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBdp\fP), parameter la_constants::dzero = 0\&.0_dp" .PP Definition at line \fB91\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::sbignum = \fBssafmax\fP * \fBsulp\fP" .PP Definition at line \fB71\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::seight = 8\&.0_sp" .PP Definition at line \fB54\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::seps = \fBsulp\fP * 0\&.5_sp" .PP Definition at line \fB64\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::sfour = 4\&.0_sp" .PP Definition at line \fB53\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::shalf = 0\&.5_sp" .PP Definition at line \fB49\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::sone = 1\&.0_sp" .PP Definition at line \fB50\fP of file \fBla_constants\&.f90\fP\&. .SS "integer, parameter la_constants::sp = kind(1\&.e0)" .PP Definition at line \fB46\fP of file \fBla_constants\&.f90\fP\&. .SS "character*1, parameter la_constants::sprefix = 'S'" .PP Definition at line \fB59\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::srtmax = sqrt(\fBsbignum\fP)" .PP Definition at line \fB73\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::srtmin = sqrt(\fBssmlnum\fP)" .PP Definition at line \fB72\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::ssafmax = \fBsone\fP / \fBssafmin\fP" .PP Definition at line \fB69\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::ssafmin = real(radix(0\&._sp), \fBsp\fP)**max( minexponent(0\&._sp)\-1, 1\-maxexponent(0\&._sp) )" .PP Definition at line \fB65\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::ssbig = real(radix(0\&._sp), \fBsp\fP)**( \- ceiling( (maxexponent(0\&._sp) + digits(0\&._sp) \- 1) * 0\&.5_sp))" .PP Definition at line \fB85\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::ssmlnum = \fBssafmin\fP / \fBsulp\fP" .PP Definition at line \fB70\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::sssml = real(radix(0\&._sp), \fBsp\fP)**( \- floor( (minexponent(0\&._sp) \- digits(0\&._sp)) * 0\&.5_sp))" .PP Definition at line \fB82\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::stbig = real(radix(0\&._sp), \fBsp\fP)**floor( (maxexponent(0\&._sp) \- digits(0\&._sp) + 1) * 0\&.5_sp)" .PP Definition at line \fB78\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::sten = 10\&.0_sp" .PP Definition at line \fB55\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::sthree = 3\&.0_sp" .PP Definition at line \fB52\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::stsml = real(radix(0\&._sp), \fBsp\fP)**ceiling( (minexponent(0\&._sp) \- 1) * 0\&.5_sp)" .PP Definition at line \fB76\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::stwo = 2\&.0_sp" .PP Definition at line \fB51\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::sulp = epsilon(0\&._sp)" .PP Definition at line \fB63\fP of file \fBla_constants\&.f90\fP\&. .SS "real(\fBsp\fP), parameter la_constants::szero = 0\&.0_sp" .PP Definition at line \fB48\fP of file \fBla_constants\&.f90\fP\&. .SS "complex(\fBdp\fP), parameter la_constants::zhalf = ( 0\&.5_dp, 0\&.0_dp )" .PP Definition at line \fB100\fP of file \fBla_constants\&.f90\fP\&. .SS "complex(\fBdp\fP), parameter la_constants::zone = ( 1\&.0_dp, 0\&.0_dp )" .PP Definition at line \fB101\fP of file \fBla_constants\&.f90\fP\&. .SS "character*1, parameter la_constants::zprefix = 'Z'" .PP Definition at line \fB103\fP of file \fBla_constants\&.f90\fP\&. .SS "complex(\fBdp\fP), parameter la_constants::zzero = ( 0\&.0_dp, 0\&.0_dp )" .PP Definition at line \fB99\fP of file \fBla_constants\&.f90\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.