| 1234567891011121314151617181920212223242526272829303132 |
- #include "tm5.inc"
- MODULE mo_kind
- ! L. Kornblueh, MPI, August 2001, added working precision and comments
- IMPLICIT NONE
- ! Number model from which the SELECTED_*_KIND are requested:
- !
- ! 4 byte REAL 8 byte REAL
- ! CRAY: - precision = 13
- ! exponent = 2465
- ! IEEE: precision = 6 precision = 15
- ! exponent = 37 exponent = 307
- !
- ! Most likely this are the only possible models.
- ! Floating point section
- INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,37)
- INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(12,307)
- INTEGER, PARAMETER :: wp = dp ! working precision
- ! Integer section
- INTEGER, PARAMETER :: i4 = SELECTED_INT_KIND(9)
- INTEGER, PARAMETER :: i8 = SELECTED_INT_KIND(14)
- END MODULE mo_kind
|
