MODULE Reals_ConstantsΒΆ
Module Reals_Constants provides names for almost all the literal real values of kind stnd and extd used in STATPACK.
The real/complex kind types stnd and extd are defined in module Select_Parameters.
By using only real values as defined within the module Reals_Constants, all conversion problems associated with the precision of real literal values in STATPACK can be totally avoided.
Note, finally, that the code of module Reals_Constants is in the source file Modules_Constants.F90
Here is the list of the most useful public constants exported by module Reals_Constants:
!
! REAL CONSTANTS AT PRECISION stnd.
!
! DIGITS
!
real(stnd), parameter :: &
zero = 0, &
one = 1, &
two = 2, &
three = 3, &
four = 4, &
five = 5, &
six = 6, &
seven = 7, &
eight = 8, &
nine = 9, &
ten =10
!
! TENTHS
!
real(stnd), parameter :: &
c0_1 = 0.1_stnd, &
c0_2 = 0.2_stnd, &
c0_3 = 0.3_stnd, &
c0_4 = 0.4_stnd, &
c0_5 = 0.5_stnd, &
c0_6 = 0.6_stnd, &
c0_7 = 0.7_stnd, &
c0_8 = 0.8_stnd, &
c0_9 = 0.9_stnd
!
! RECIPROCALS
!
real(stnd), parameter :: &
tenth = 0.1_stnd, &
ninth = one/nine, &
eighth = 0.125_stnd, &
seventh = one/seven, &
sixth = one/six, &
fifth = 0.2_stnd, &
quarter = 0.25_stnd, &
third = one/three, &
half = 0.5_stnd
!
! INTEGRAL VALUES TO 99
!
real(stnd), parameter :: &
c10 = 10, c40 = 40, c70 = 70, &
c11 = 11, c41 = 41, c71 = 71, &
c12 = 12, c42 = 42, c72 = 72, &
c13 = 13, c43 = 43, c73 = 73, &
c14 = 14, c44 = 44, c74 = 74, &
c15 = 15, c45 = 45, c75 = 75, &
c16 = 16, c46 = 46, c76 = 76, &
c17 = 17, c47 = 47, c77 = 77, &
c18 = 18, c48 = 48, c78 = 78, &
c19 = 19, c49 = 49, c79 = 79, &
c20 = 20, c50 = 50, c80 = 80, &
c21 = 21, c51 = 51, c81 = 81, &
c22 = 22, c52 = 52, c82 = 82, &
c23 = 23, c53 = 53, c83 = 83, &
c24 = 24, c54 = 54, c84 = 84, &
c25 = 25, c55 = 55, c85 = 85, &
c26 = 26, c56 = 56, c86 = 86, &
c27 = 27, c57 = 57, c87 = 87, &
c28 = 28, c58 = 58, c88 = 88, &
c29 = 29, c59 = 59, c89 = 89, &
c30 = 30, c60 = 60, c90 = 90, &
c31 = 31, c61 = 61, c91 = 91, &
c32 = 32, c62 = 62, c92 = 92, &
c33 = 33, c63 = 63, c93 = 93, &
c34 = 34, c64 = 64, c94 = 94, &
c35 = 35, c65 = 65, c95 = 95, &
c36 = 36, c66 = 66, c96 = 96, &
c37 = 37, c67 = 67, c97 = 97, &
c38 = 38, c68 = 68, c98 = 98, &
c39 = 39, c69 = 69, c99 = 99
!
! MISCELLANEOUS INTEGRAL VALUES
!
real(stnd), parameter :: &
c100 = 100, &
c120 = 120, &
c180 = 180, &
c200 = 200, &
c256 = 256, &
c300 = 300, &
c360 = 360, &
c400 = 400, &
c500 = 500, &
c600 = 600, &
c681 = 681, &
c700 = 700, &
c800 = 800, &
c900 = 900, &
c991 = 991, &
c1000 = 1000, &
c1162 = 1162, &
c2324 = 2324, &
c2000 = 2000, &
c3000 = 3000, &
c4000 = 4000, &
c5000 = 5000, &
c10000 = 10000, &
c20700 = 20700, &
c40000 = 40000
!
! FREQUENTLY USED MATHEMATICAL CONSTANT
!
real(stnd), parameter :: &
pi = 3.1415926535897932384626433832795028841971693993751_stnd,&
pio2 = 1.57079632679489661923132169163975144209858_stnd, &
twopi = 6.283185307179586476925286766559005768394_stnd, &
sqrt2 = 1.41421356237309504880168872420969807856967_stnd, &
euler = 0.5772156649015328606065120900824024310422_stnd
!
!
! REAL CONSTANTS AT PRECISION extd.
!
! DIGITS
!
real(extd), parameter :: &
zero_extd = 0, &
one_extd = 1, &
two_extd = 2, &
three_extd = 3, &
four_extd = 4, &
five_extd = 5, &
six_extd = 6, &
seven_extd = 7, &
eight_extd = 8, &
nine_extd = 9, &
ten_extd =10
!
! FREQUENTLY USED MATHEMATICAL CONSTANTS
!
real(extd), parameter :: &
pi_extd = 3.1415926535897932384626433832795028841971693993751_extd,&
pio2_extd = 1.57079632679489661923132169163975144209858_extd, &
twopi_extd = 6.283185307179586476925286766559005768394_extd, &
sqrt2_extd = 1.41421356237309504880168872420969807856967_extd, &
euler_extd = 0.5772156649015328606065120900824024310422_extd, &
lnsqrt2pi_extd = 0.9189385332046727_extd
Other public real constants of kind stnd and extd exported by module Reals_Constants are used in specific STATPACK routines.