| changeset 0 | c8ca04c3a9d6 |
| -1:000000000000 | 0:5746fd496ab5 |
|---|---|
1 module kind_mod |
|
2 |
|
3 implicit none |
|
4 integer, parameter :: r8 = selected_real_kind(12) ! 8 byte real |
|
5 integer, parameter :: r4 = selected_real_kind( 6) ! 4 byte real |
|
6 integer, parameter :: nr = kind(1.0) ! native real |
|
7 integer, parameter :: i8 = selected_int_kind(13) ! 8 byte integer |
|
8 integer, parameter :: i4 = selected_int_kind( 6) ! 4 byte integer |
|
9 integer, parameter :: ni = kind(1) ! native integer |
|
10 |
|
11 save |
|
12 |
|
13 end module kind_mod |