function WQUAD2IX, j,k1,k2,ep,ky
;+
; NAME:
; 	 WQUAD2IX
;
; PURPOSE:
;	This function translates 2-d wavelet indexing into linear indexing.
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;    kx = WQUAD2IX(j,k1,k2,ep,ky)
;
; INPUTS:
;    j:      resolution level
;    k1,k2:  spatial indices
;    ep:     spatial orientation
;           ep = 0:  Father(x)Father(y)
;                1:  Mother(x)Father(y)
;                2:  Father(x)Mother(y)
;                3:  Mother(x)Mother(y)
;
; OUTPUTS:
;     kx,ky  index in 2-d wavelet transform array of indicated wavelet.
;
; SEE ALSO:
;    fwt2_po, wiwt2po
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps		November, 1994
;Translated from MatLab Wavelab routine: quad2ix.m
;-

kx = WDYAD2IX(j,k1)
ky = WDYAD2IX(j,k2)

IF ( WREM(ep,2) EQ 0) THEN BEGIN
   kx = kx-2^j
END

IF ( ep LT 2) THEN BEGIN
   ky = ky-2^j
END


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

RETURN, kx 
END 
;***************************************************