htswanalysis/MACS/lib/gsl/gsl-1.11/fft/complex_internal.h

   1 /* Handling of packed complex types... not meant for client consumption.
   2  */
   3 #ifndef COMPLEX_INTERNAL_H_
   4 #define COMPLEX_INTERNAL_H_
   5
   6 #define VECTOR(a,stride,i) ((a)[(stride)*(i)])
   7 #define REAL(a,stride,i) ((a)[2*(stride)*(i)])
   8 #define IMAG(a,stride,i) ((a)[2*(stride)*(i)+1])
   9
  10 #define REAL0(a) ((a)[0])
  11 #define IMAG0(a) ((a)[1])
  12
  13
  14 #endif /* !COMPLEX_INTERNAL_H_ */