Changeset 4000 for palm/trunk/SOURCE/mod_kinds.f90
- Timestamp:
- May 24, 2019 7:20:44 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/mod_kinds.f90
r3655 r4000 25 25 ! ----------------- 26 26 ! $Id$ 27 ! preprocessor switch added for choosing the real precision 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! Corrected "Former revisions" section 28 31 ! … … 67 70 ! 68 71 !-- Set kinds to be used as defaults 72 #if defined( __single_precision ) 73 INTEGER, PARAMETER :: wp = sp !< default real kind 74 #else 69 75 INTEGER, PARAMETER :: wp = dp !< default real kind 76 #endif 70 77 INTEGER, PARAMETER :: iwp = isp !< default integer kind 71 78
Note: See TracChangeset
for help on using the changeset viewer.