fft.h 1.06 KB
Newer Older
Emmanuel Bertin's avatar
Emmanuel Bertin committed
1
2
3
4
5
6
7
8
9
10
11
 /*
 				fft.h

*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*
*	Part of:	A program that uses FFTs
*
*	Author:		E.BERTIN (IAP)
*
*	Contents:	Include for fft.c.
*
12
*	Last modify:	08/10/2009
Emmanuel Bertin's avatar
Emmanuel Bertin committed
13
14
15
16
17
18
19
20
21
22
23
24
*
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/

#ifndef _FITSCAT_H_
#include "fits/fitscat.h"
#endif

/*---------------------------- Internal constants ---------------------------*/

/*------------------------------- Other Macros ------------------------------*/
#define	QFFTWMALLOC(ptr, typ, nel) \
25
		{if (!(ptr = (typ *)fftwf_malloc((size_t)(nel)*sizeof(typ)))) \
Emmanuel Bertin's avatar
Emmanuel Bertin committed
26
27
		  error(EXIT_FAILURE, "Not enough memory for ", \
			#ptr " (" #nel " elements) !");;}
28
#define	QFFTWFREE(ptr)	fftwf_free(ptr)
Emmanuel Bertin's avatar
Emmanuel Bertin committed
29
30
31
32

/*--------------------------- structure definitions -------------------------*/

/*---------------------------------- protos --------------------------------*/
33
extern void	fft_conv(float *data1, float *fdata2, int *size),
Emmanuel Bertin's avatar
Emmanuel Bertin committed
34
		fft_end(),
Emmanuel Bertin's avatar
Emmanuel Bertin committed
35
36
		fft_init(int nthreads),
		fft_reset(void);
Emmanuel Bertin's avatar
Emmanuel Bertin committed
37

38
extern float	*fft_rtf(float *data, int *size);