function WDYAD, j
;+
; NAME:
; 	WDYAD
;
; PURPOSE:
;	This function indexes entire j-th dyad of 1-d wavelet xform.
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;    i = WDYAD(j)
;
; INPUTS:
;    j:  integer
;
; OUTPUTS:
;    i: integer list (array) of all indices of wavelet coeffts at j-th level
;
; RESTRICTIONS:
;
; EXAMPLE:
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps		October, 1994
;Translated from MatLab Wavelab routine: dyad.m
;-
	a = (2^(j)+1)
	b  = (2^(j+1))
    i = a + INDGEN(b - a + 1) 

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

Return, i 
End 		;of function WDYAD
;***************************************************