tomwalters@0: /* tomwalters@0: Copyright (c) Applied Psychology Unit, Medical Research Council. 1988, 1989 tomwalters@0: =========================================================================== tomwalters@0: tomwalters@0: Permission to use, copy, modify, and distribute this software without fee tomwalters@0: is hereby granted for research purposes, provided that this copyright tomwalters@0: notice appears in all copies and in all supporting documentation, and that tomwalters@0: the software is not redistributed for any fee (except for a nominal shipping tomwalters@0: charge). Anyone wanting to incorporate all or part of this software in a tomwalters@0: commercial product must obtain a license from the Medical Research Council. tomwalters@0: tomwalters@0: The MRC makes no representations about the suitability of this tomwalters@0: software for any purpose. It is provided "as is" without express or implied tomwalters@0: warranty. tomwalters@0: tomwalters@0: THE MRC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING tomwalters@0: ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL THE tomwalters@0: A.P.U. BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY tomwalters@0: DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN tomwalters@0: AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF tomwalters@0: OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. tomwalters@0: */ tomwalters@0: tomwalters@0: /* tomwalters@0: ============================================ tomwalters@0: all.c - code for recursive filter section. tomwalters@0: ============================================ tomwalters@0: tomwalters@0: tomwalters@0: J. Holdsworth - 23rd February 1988. tomwalters@0: tomwalters@0: tomwalters@0: Copywright (c) Applied Psychology Unit, Medical Research Council. 1988. tomwalters@0: ======================================================================= tomwalters@0: tomwalters@0: tomwalters@0: tomwalters@0: tomwalters@0: tomwalters@0: */ tomwalters@0: tomwalters@0: #ifdef DSP32 tomwalters@0: #include tomwalters@0: #else tomwalters@0: tomwalters@0: /* identify object file */ tomwalters@0: tomwalters@0: #ifndef lint tomwalters@0: static char *all_sccs_id = "@(#)all.c 1.7 John Holdsworth (MRC-APU) 10/7/89" ; tomwalters@0: #endif tomwalters@0: tomwalters@0: /* short data, integer recursive */ tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: /* short data, floating point recursive */ tomwalters@0: tomwalters@0: #define FLOAT float tomwalters@0: #define FILTER_NAME SingleFilterShortDataArray tomwalters@0: #define MODULE_NAME DoSingleFilterShortDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: /* short data, floating point recursive */ tomwalters@0: tomwalters@0: #define FLOAT double tomwalters@0: #define FILTER_NAME RealFilterShortDataArray tomwalters@0: #define MODULE_NAME DoRealFilterShortDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: /* short data, complex integer recursive */ tomwalters@0: tomwalters@0: #define COMPLEX tomwalters@0: #define OUTPUT_TYPE scomplex tomwalters@0: #define FILTER_NAME ComplexFilterShortDataArray tomwalters@0: #define MODULE_NAME DoComplexFilterShortDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: /* int data, integer recursive */ tomwalters@0: tomwalters@0: #define INPUT_TYPE int tomwalters@0: #define FILTER_NAME FilterIntDataArray tomwalters@0: #define MODULE_NAME DoFilterIntDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: tomwalters@0: /* int data, floating point recursive */ tomwalters@0: tomwalters@0: #define FLOAT double tomwalters@0: #define INPUT_TYPE int tomwalters@0: #define FILTER_NAME RealFilterIntDataArray tomwalters@0: #define MODULE_NAME DoRealFilterIntDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: tomwalters@0: /* double data, real recursive */ tomwalters@0: tomwalters@0: #define FLOAT double tomwalters@0: #define INPUT_TYPE double tomwalters@0: #define FILTER_NAME RealFilterDoubleDataArray tomwalters@0: #define MODULE_NAME DoRealFilterDoubleDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: tomwalters@0: #define ENVELOPE tomwalters@0: tomwalters@0: /* short data, integer recursive envelope */ tomwalters@0: tomwalters@0: #define FILTER_NAME EnvelopeShortDataArray tomwalters@0: #define MODULE_NAME DoEnvelopeShortDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: tomwalters@0: /* short data, floating Point recursive envelope */ tomwalters@0: tomwalters@0: #define FLOAT double tomwalters@0: #define FILTER_NAME RealEnvelopeShortDataArray tomwalters@0: #define MODULE_NAME DoRealEnvelopeShortDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: #undef ENVELOPE tomwalters@0: tomwalters@0: #endif tomwalters@0: tomwalters@0: tomwalters@0: /* float data, real recursive */ tomwalters@0: tomwalters@0: #define FLOAT float tomwalters@0: #define INPUT_TYPE float tomwalters@0: #define FILTER_NAME RealFilterFloatDataArray tomwalters@0: #define MODULE_NAME DoRealFilterFloatDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: tomwalters@0: #define ENVELOPE tomwalters@0: tomwalters@0: /* float data, floating Point recursive envelope */ tomwalters@0: tomwalters@0: #define FLOAT float tomwalters@0: #define INPUT_TYPE float tomwalters@0: #define FILTER_NAME RealEnvelopeFloatDataArray tomwalters@0: #define MODULE_NAME DoRealEnvelopeFloatDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: #undef ENVELOPE tomwalters@0: tomwalters@0: tomwalters@0: /* float data, complex integer point recursive */ tomwalters@0: tomwalters@0: #define COMPLEX tomwalters@0: #define FLOAT float tomwalters@0: #define INPUT_TYPE float tomwalters@0: #define OUTPUT_TYPE fcomplex tomwalters@0: #define FILTER_NAME ComplexFilterFloatDataArray tomwalters@0: #define MODULE_NAME DoComplexFilterFloatDataArray tomwalters@0: tomwalters@0: #include "generic.c" tomwalters@0: tomwalters@0: #undef COMPLEX