/*
	This C language subroutine computes an 512-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 *cfft512(float real_out[], float imag_out[], \  	<Prototype>
		     float real_in[], float imag_in[]);	    	<Prototype>
	float *ifft512(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		_cfft512, _ifft512, _rfft512;

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

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

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

.SEGMENT/PMDATA	PMData_Space_Name;

#include    "t512.h"

.ENDSEG;