# | Line 61 | Line 61 | module definitions | |
---|---|---|
61 | !! Various precision parameters | |
62 | ||
63 | INTEGER, PARAMETER :: SP = selected_real_kind(4) | |
64 | + | #ifdef SINGLE_PRECISION |
65 | + | INTEGER, PARAMETER :: DP = selected_real_kind(4) |
66 | + | #else |
67 | INTEGER, PARAMETER :: DP = selected_real_kind(8) | |
68 | + | #endif |
69 | ||
70 | !! Maximum number of fortran streams... | |
71 | INTEGER, PARAMETER :: MAX_UNITS = 100 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |