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 |