function WHARDTHR, y,t
;+
; NAME:
; 	 WHARDTHR
;
; PURPOSE:
;	This function applies a hard threshold.
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;    x = WHARDTHR(y,t) 
;
; INPUTS:
;      y :    Noisy Data  
;      t :    Threshold 
;
; OUTPUTS:
;      x :    y 1_{|y|>t}
;
;
;SEE ALSO: 
;      wsoftthr, wdoshrnk
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps		December, 1994
;Translated from MatLab Wavelab routine: hardthresh.m
;-

 
x   = y * (ABS(y) gt t) 
     
;    
; Algorithm Source:  WaveLab Version 0.600
; WaveLab WWW site: http://playfair.stanford.edu/ 
; WaveLab Questions? e-mail wavelab@playfair.stanford.edu
;    
     
 
RETURN, x  
END  
;***************************************************