function WRSHIFT, x
;+
; NAME:
; 	WRSHIFT
;
; PURPOSE:
;	This function performs a circular right shift of 1-d signal.
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;     r = WRSHIFT(x)
;
; INPUTS:
;    x:	1-d signal
;
; OUTPUTS:
;    r:	shifted 1-d signal 
;
; EXAMPLE:
;
; PROCEDURE:
;	r(i-1) = x(i-2) except r(0) = x(n-1)
;
; SEE  ALSO:
;	wlshift
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps		November, 1994
;Translated from MatLab Wavelab routine: rshift.m
;-

n = N_ELEMENTS(x)
y = [ x(n-1), x(0 : n-2) ]

;
; Algorithm Source:  WaveLab Version 0.600
; WaveLab WWW site: http://playfair.stanford.edu/ 
; WaveLab Questions? e-mail wavelab@playfair.stanford.edu
;   
    

RETURN, y 
END 
;***************************************************