#define DBL_MEMCPY(dest,src,n) memcpy((dest),(src),(n)*sizeof(doub))
#define DBL_ZERO_MEMSET(dest,n) memset((dest),0,(n)*sizeof(doub))