Last change
on this file since 4116 was
2160,
checked in by Laurent Fairhead, 10 years ago
|
Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
|
File size:
1.1 KB
|
Line | |
---|
1 | !* kindef: define default KIND macros |
---|
2 | ! -------------------------------------- |
---|
3 | |
---|
4 | |
---|
5 | USE PARKIND1, ONLY :& |
---|
6 | &JPIT, JPIS, JPIM, JPIB,& |
---|
7 | &JPRT, JPRS, JPRM, JPRB,& |
---|
8 | &JPRD |
---|
9 | |
---|
10 | |
---|
11 | #ifndef INTEGER_T |
---|
12 | #define INTEGER_T INTEGER(KIND=JPIT) |
---|
13 | #define INTEGER_S INTEGER(KIND=JPIS) |
---|
14 | #define INTEGER_M INTEGER(KIND=JPIM) |
---|
15 | #define INTEGER_B INTEGER(KIND=JPIB) |
---|
16 | #endif |
---|
17 | |
---|
18 | #ifndef REAL_T |
---|
19 | #define REAL_T REAL(KIND=JPRT) |
---|
20 | #define REAL_S REAL(KIND=JPRS) |
---|
21 | #define REAL_M REAL(KIND=JPRM) |
---|
22 | #define REAL_B REAL(KIND=JPRB) |
---|
23 | #define REAL_D REAL(KIND=JPRD) |
---|
24 | #endif |
---|
25 | |
---|
26 | #ifndef _0T |
---|
27 | #define _0T 0.0_JPRT |
---|
28 | #define _0S 0.0_JPRS |
---|
29 | #define _0M 0.0_JPRM |
---|
30 | #define _0B 0.0_JPRB |
---|
31 | #endif |
---|
32 | |
---|
33 | #ifndef _05T |
---|
34 | #define _05T 0.5_JPRT |
---|
35 | #define _05S 0.5_JPRS |
---|
36 | #define _05M 0.5_JPRM |
---|
37 | #define _05B 0.5_JPRB |
---|
38 | #endif |
---|
39 | |
---|
40 | #ifndef _1T |
---|
41 | #define _1T 1.0_JPRT |
---|
42 | #define _1S 1.0_JPRS |
---|
43 | #define _1M 1.0_JPRM |
---|
44 | #define _1B 1.0_JPRB |
---|
45 | #endif |
---|
46 | |
---|
47 | #ifndef _2T |
---|
48 | #define _2T 2.0_JPRT |
---|
49 | #define _2S 2.0_JPRS |
---|
50 | #define _2M 2.0_JPRM |
---|
51 | #define _2B 2.0_JPRB |
---|
52 | #endif |
---|
53 | |
---|
54 | #define _ZERO_ _0B |
---|
55 | #define _HALF_ _05B |
---|
56 | #define _ONE_ _1B |
---|
57 | #define _TWO_ _2B |
---|
58 | |
---|
59 | ! -------------------------------------- |
---|
Note: See
TracBrowser
for help on using the repository browser.