ESYS13
Revision_
|
00001 00002 /******************************************************* 00003 * 00004 * Copyright (c) 2003-2012 by University of Queensland 00005 * Earth Systems Science Computational Center (ESSCC) 00006 * http://www.uq.edu.au/esscc 00007 * 00008 * Primary Business: Queensland, Australia 00009 * Licensed under the Open Software License version 3.0 00010 * http://www.opensource.org/licenses/osl-3.0.php 00011 * 00012 *******************************************************/ 00013 00014 00015 #ifndef INC_ESYS_INDEX 00016 #define INC_ESYS_INDEX 00017 00018 /**************************************************************/ 00019 00020 /* Macros for array indexing */ 00021 00022 /**************************************************************/ 00023 00024 /**************************************************************/ 00025 00026 /* some useful functions: */ 00027 00028 #include <limits.h> 00029 00030 00031 #define FALSE 0 00032 #define TRUE 1 00033 #define UNKNOWN -1 00034 #define DBLE(_x_) (double)(_x_) 00035 #define INDEX1(_X1_) (_X1_) 00036 #define INDEX2(_X1_,_X2_,_N1_) ((_X1_)+(_N1_)*(_X2_)) 00037 #define INDEX3(_X1_,_X2_,_X3_,_N1_,_N2_) ((_X1_)+(_N1_)*INDEX2(_X2_,_X3_,_N2_)) 00038 #define INDEX4(_X1_,_X2_,_X3_,_X4_,_N1_,_N2_,_N3_) ((_X1_)+(_N1_)*INDEX3(_X2_,_X3_,_X4_,_N2_,_N3_)) 00039 #define INDEX5(_X1_,_X2_,_X3_,_X4_,_X5_,_N1_,_N2_,_N3_,_N4_) ((_X1_)+(_N1_)*INDEX4(_X2_,_X3_,_X4_,_X5_,_N2_,_N3_,_N4_)) 00040 #define INDEX6(_X1_,_X2_,_X3_,_X4_,_X5_,_X6_,_N1_,_N2_,_N3_,_N4_,_N5_) ((_X1_)+(_N1_)*INDEX5(_X2_,_X3_,_X4_,_X5_,_X6_,_N2_,_N3_,_N4_,_N5_)) 00041 00042 #define MAX(_arg1_,_arg2_) ((_arg1_)>(_arg2_) ? (_arg1_) : (_arg2_)) 00043 #define MAX3(_arg1_,_arg2_,_arg3_) MAX(_arg1_,MAX(_arg2_,_arg3_)) 00044 #define MIN(_arg1_,_arg2_) ((_arg1_)>(_arg2_) ? (_arg2_) : (_arg1_)) 00045 #define MIN3(_arg1_,_arg2_,_arg3_) MIN(_arg1_,MIN(_arg2_,_arg3_)) 00046 #define ABS(_arg_) MAX((_arg_),-(_arg_)) 00047 #define SIGN(_arg_) ((_arg_)>0 ? 1 : ((_arg_)<0 ? -1 : 0 )) 00048 #define SAMESIGN(_arg1_, _arg2_) ( ( ( (_arg1_)>=0 ) && ( (_arg2_)>=0 ) ) || ( ((_arg1_)<=0 ) && ( (_arg2_)<=0 ) ) ) 00049 #define SWAP(_a0_,_a1_,_type_) { \ 00050 _type_ s; \ 00051 s=(_a0_); \ 00052 _a0_= (_a1_); \ 00053 _a1_=s; \ 00054 } 00055 #define XNOR(_a0_,_a1_) ( ( (_a0_) && (_a1_) ) || ( !(_a0_) && !(_a1_) ) ) 00056 00057 #define INDEX_T_MAX INT_MAX 00058 #define INDEX_T_MIN -INT_MAX 00059 00060 #endif