pro WDOFILT, WaveType, ParVal, QMF
;+
; NAME:
; 	 WDOFILT
;
; PURPOSE: This procedure defines the quadrature mirror filter used for
; all subsequent computations.
;	
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;    WDOFILT, WaveType, ParVal, QMF
;
; INPUTS:
;    WaveType:   String of choices: Haar, Daubechies, Coiflet, Symmlet
;	 ParVal: Parameter value for a specific wavelet
;
; OUTPUTS:
;    QMF: Quadrature Mirror Filter Defined
;
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps		August, 1995
;	
;-

Checktype =  STRCOMPRESS(WaveType,/remove_all)	;remove white space
Checktype = STRUPCASE(Checktype)	;make upper case
QMF = WMKOFILT(Checktype, ParVal)

END			;of procedure wWDOFILT