function WSURETHR, y,thresh
;+
;NAME:
;	WSURETHR
;
;PURPOSE:
;	To perform adaptive threshold selection 
;   using principle of Stein's Unbiased Risk Estimate (SURE)
;
;CATEGORY:
;	Wavelets.
;
;CALLING SEQUENCE:
;	x = WSURETHR(y, thresh) 
;
;INPUTS:
;      y  =   Noisy Data with Std. Deviation = 1 
;
;OUTPUTS:
;	   thresh = Threshold used 
;      x =    Estimate of mean vector      
;
;EXAMPLE:
;
;SEE ALSO: 
;      whardthr, wsurethr, wdoshrnk
;
;
;MODIFICATION HISTORY:
; 	Written by:	Amara Graps		September, 1995
;Translated from MatLab Wavelab routine: surethresh.m
;-


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