tools/debug_macro_toolchest

   1 #define IDEBUG 40
   2 #define JDEBUG 42
   3 #define KDEBUG 3
   4
   5 #define IJKTEST i.eq.IDEBUG.and.j.eq.JDEBUG.and.k.eq.KDEBUG
   6 #define IJKDIM IDEBUG,KDEBUG,JDEBUG
   7 #define IJDIM IDEBUG,JDEBUG
   8
   9 #define DEBUG3D(v,x) write(0,*)'v',' ','x',x ( IJKDIM )
  10 #define DEBUG2D(v,x) write(0,*)'v',' ','x',x ( IJDIM )
  11
  12 #define DEBUG3DHALO(v,x) write(0,*)'v',' 1 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG-1);\
  13                          write(0,*)'v',' 2 ','x',x ( IDEBUG  ,KDEBUG,JDEBUG-1);\
  14                          write(0,*)'v',' 3 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG-1);\
  15                          write(0,*)'v',' 4 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG  );\
  16                          write(0,*)'v',' 5 ','x',x ( IDEBUG  ,KDEBUG,JDEBUG  );\
  17                          write(0,*)'v',' 6 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG  );\
  18                          write(0,*)'v',' 7 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG+1);\
  19                          write(0,*)'v',' 8 ','x',x ( IDEBUG  ,KDEBUG,JDEBUG+1);\
  20                          write(0,*)'v',' 9 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG+1)
  21
  22 -------
  23
  24 #define IDEBUG 40
  25 #define JDEBUG 42
  26 #define KDEBUG 3
  27
  28 #define IJKTEST i.eq.IDEBUG.and.j.eq.JDEBUG.and.k.eq.KDEBUG
  29 #define IJKDIM IDEBUG,KDEBUG,JDEBUG
  30
  31 #define DEBUG3D(v,x) write(0,*)'v',' ','x',x ( IJKDIM )
  32
  33 #define DEBUG3DHALO(v,x) write(0,*)'v',' 1 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG-1);\
  34                          write(0,*)'v',' 2 ','x',x ( IDEBUG  ,KDEBUG,JDEBUG-1);\
  35                          write(0,*)'v',' 3 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG-1);\
  36                          write(0,*)'v',' 4 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG  );\
  37                          write(0,*)'v',' 5 ','x',x ( IDEBUG  ,KDEBUG,JDEBUG  );\
  38                          write(0,*)'v',' 6 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG  );\
  39                          write(0,*)'v',' 7 ','x',x ( IDEBUG-1,KDEBUG,JDEBUG+1);\
  40                          write(0,*)'v',' 8 ','x',x ( IDEBUG  ,KDEBUG,JDEBUG+1);\
  41                          write(0,*)'v',' 9 ','x',x ( IDEBUG+1,KDEBUG,JDEBUG+1)
  42