generic_array.h

Go to the documentation of this file.

! For routines which are generic..
#ifdef ARRAY_DIM
#undef ARRAY_DIM
#endif
#ifdef ARRAY_DIM_1
#undef ARRAY_DIM_1
#define ARRAY_DIM 1
#endif
#ifdef ARRAY_DIM_2
#undef ARRAY_DIM_2
#define ARRAY_DIM 2
#endif
#ifdef ARRAY_DIM_3
#undef ARRAY_DIM_3
#define ARRAY_DIM 3
#endif
! Array declarations
#ifdef ARRAY_STR
#undef ARRAY_STR
#endif
#if   ARRAY_DIM==1
#define ARRAY_STR :
#elif ARRAY_DIM==2
#define ARRAY_STR :,:
#elif ARRAY_DIM==3
#define ARRAY_STR :,:,:
#endif
! array dimension = (ARRAY_DIM)
! Type names
#ifdef TYPE_STRING
#undef TYPE_STRING
#undef TYPE_NAME
#endif
#ifdef REAL_TYPE
#undef REAL_TYPE
#define TYPE_STRING r
#define TYPE_NAME   REAL
#define MPIT_NAME   MPI_DOUBLE_PRECISION
#endif
#ifdef INTEGER_TYPE
#undef INTEGER_TYPE
#define TYPE_STRING i
#define TYPE_NAME   INTEGER
#define MPIT_NAME   MPI_INTEGER
#endif
#ifdef COMPLEX_TYPE
#undef COMPLEX_TYPE
#define TYPE_STRING c
#define TYPE_NAME   COMPLEX
#define MPIT_NAME   MPI_DOUBLE_COMPLEX
#endif
! Subroutine names produced by concatenation
#ifndef GENERIC_ARRAY_H
#define GENERIC_ARRAY_H
#define NOEXP_CONCATENATE(_A,_B) _A##_B
#define CONCATENATE(_A,_B) NOEXP_CONCATENATE(_A,_B)
#define NOEXP_CONCAT3(_A,_B,_C) _A##_B##_C
#define CONCAT3(_A,_B,_C) NOEXP_CONCAT3(_A,_B,_C)
#endif