/*
	This C language subroutine computes an 32768-point
	floating point complex (forward or inverse)
	Fast Fourier Transform (FFT) of its input.

	The Run Time Library for the C Language.

	Gordon A. Sterling	(617) 461 - 3076
	DSP Development Tools Engineering

	Created on 6/24/90
	Updated on 5/94 by AS

	#include <trans.h>				    	<Header>
	float *cfft32768(float real_out[], float imag_out[], \  <Prototype>
		     float real_in[], float imag_in[]);	    	<Prototype>
	float *ifft32768(float real_out[], float imag_out[], \ 	<Prototype>
		     float real_in[], float imag_in[]);	    	<Prototype>
*/

#include "lib_glob.h"
#include "trn_glob.h"

.SEGMENT/CODE	Code_Space_Name;
.FILE RTL_FILENAME;

.EXTERN		____cfftcore, ____ifftcore, ____rfftcore;

.GLOBAL		_cfft32768, _ifft32768, _rfft32768;

_ifft32768:	JUMP (PC, ____ifftcore) (DB);	/*Jump to core routine*/
		dm_ptr=32768;		/*Pass length of fft*/
		dm_lnt=twids;		/*Point to twiddle factors*/

_cfft32768:	JUMP (PC, ____cfftcore) (DB);	/*Jump to core forward fft*/
		dm_ptr=32768;		/*Pass length of fft*/
		dm_lnt=twids;		/*Point to twiddle factos*/

_rfft32768:	JUMP (PC, ____rfftcore) (DB);	/*Jump to core forward fft*/
		dm_ptr=32768;		/*Pass length of fft*/
		dm_lnt=twids;		/*Point to twiddle factos*/
.ENDSEG;

.SEGMENT/PMDATA	PMData_Space_Name;

#include    "t32768.h"

.ENDSEG;