/* Handling of packed complex types... not meant for client consumption. */#ifndef COMPLEX_INTERNAL_H_#define COMPLEX_INTERNAL_H_#define VECTOR(a,stride,i) ((a)[(stride)*(i)])#define REAL(a,stride,i) ((a)[2*(stride)*(i)])#define IMAG(a,stride,i) ((a)[2*(stride)*(i)+1])#define REAL0(a) ((a)[0])#define IMAG0(a) ((a)[1])#endif /* !COMPLEX_INTERNAL_H_ */