ftp.nice.ch/pub/next/unix/audio/cmusic.bs.N.tar.gz#/src/sigsf/cfr2tr.c

This is cfr2tr.c in view mode; [Download] [Up]

/*---------------------------
	cfr2tr.c

Radix 2 iteration subroutine.
---------------------------*/

cfr2tr(off,b0,b1)
	float	*b0, *b1;
	long	off;
{
	long	i;

	float	tmp;

	for (i=0; i<off; i++){
		tmp = b0[i] + b1[i];
		b1[i] = b0[i] - b1[i];
		b0[i] = tmp;
	}

	return;

}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.