| 4 |
michaesp |
1 |
module precision
|
|
|
2 |
|
|
|
3 |
! Real kinds
|
|
|
4 |
|
|
|
5 |
integer, parameter :: kr4 = selected_real_kind(6,37) ! single precision real
|
|
|
6 |
integer, parameter :: kr8 = selected_real_kind(15,307) ! double precision real
|
|
|
7 |
|
|
|
8 |
! Integer kinds
|
|
|
9 |
|
|
|
10 |
integer, parameter :: ki4 = selected_int_kind(9) ! single precision integer
|
|
|
11 |
integer, parameter :: ki8 = selected_int_kind(18) ! double precision integer
|
|
|
12 |
|
|
|
13 |
!Complex kinds
|
|
|
14 |
|
|
|
15 |
integer, parameter :: kc4 = kr4 ! single precision complex
|
|
|
16 |
integer, parameter :: kc8 = kr8 ! double precision complex
|
|
|
17 |
|
|
|
18 |
end module precision
|