This repository was archived by the owner on Nov 8, 2024. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 51
/
Copy pathdebug_macro_toolchest
42 lines (33 loc) · 1.92 KB
/
debug_macro_toolchest
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#define IDEBUG 40
#define JDEBUG 42
#define KDEBUG 3
#define IJKTEST i.eq.IDEBUG.and.j.eq.JDEBUG.and.k.eq.KDEBUG
#define IJKDIM IDEBUG,KDEBUG,JDEBUG
#define IJDIM IDEBUG,JDEBUG
#define DEBUG3D(v,x) write(0,*)'v',' ','x',x ( IJKDIM )
#define DEBUG2D(v,x) write(0,*)'v',' ','x',x ( IJDIM )
#define DEBUG3DHALO(v,x) write(0,*)'v',' 1 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG-1);\
write(0,*)'v',' 2 ','x',x ( IDEBUG ,KDEBUG,JDEBUG-1);\
write(0,*)'v',' 3 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG-1);\
write(0,*)'v',' 4 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG );\
write(0,*)'v',' 5 ','x',x ( IDEBUG ,KDEBUG,JDEBUG );\
write(0,*)'v',' 6 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG );\
write(0,*)'v',' 7 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG+1);\
write(0,*)'v',' 8 ','x',x ( IDEBUG ,KDEBUG,JDEBUG+1);\
write(0,*)'v',' 9 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG+1)
-------
#define IDEBUG 40
#define JDEBUG 42
#define KDEBUG 3
#define IJKTEST i.eq.IDEBUG.and.j.eq.JDEBUG.and.k.eq.KDEBUG
#define IJKDIM IDEBUG,KDEBUG,JDEBUG
#define DEBUG3D(v,x) write(0,*)'v',' ','x',x ( IJKDIM )
#define DEBUG3DHALO(v,x) write(0,*)'v',' 1 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG-1);\
write(0,*)'v',' 2 ','x',x ( IDEBUG ,KDEBUG,JDEBUG-1);\
write(0,*)'v',' 3 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG-1);\
write(0,*)'v',' 4 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG );\
write(0,*)'v',' 5 ','x',x ( IDEBUG ,KDEBUG,JDEBUG );\
write(0,*)'v',' 6 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG );\
write(0,*)'v',' 7 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG+1);\
write(0,*)'v',' 8 ','x',x ( IDEBUG ,KDEBUG,JDEBUG+1);\
write(0,*)'v',' 9 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG+1)