/*
	This C language subroutine computes an 128-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

	#include <trans.h>				    	<Header>
	float *cfft128(float real_out[], float imag_out[], \  	<Prototype>
		     float real_in[], float imag_in[]);	    	<Prototype>
	float *ifft128(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		_cfft128, _ifft128, _rfft128;

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

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

_rfft128:	JUMP (PC, ____rfftcore) (DB);
		dm_ptr=128;
		dm_lnt=twids;
.ENDSEG;

.SEGMENT/PMDATA	PMData_Space_Name;

#include    "t128.h"

.ENDSEG;