function WLNSPACE, x1, x2, n
;+
; NAME:
; 	WLNSPACE
;
; PURPOSE:
;	This function creates an array of N equally spaced points between 
;	x1 and x2.
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;    y = WLNSPACE( x1, x2, n)
;
; INPUTS:
;	x1: value of 1st element.
;	n:  number of points
;	x2:  value of last element.
;
; OUTPUTS:
;    y:	An array of of uniformly-spaced values.
;
;
; SEE ALSO:
;	wmkiarry, wmkfarry
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps	BAER, December, 1994
;	copyright (c) Amara Graps 1995, 1996.
;-


;get sign of elements
b = (x2 - x1)
sgn = WSIGN(b)

CASE 1 OF
	sgn EQ -1: BEGIN
		indx_arr = x2 + (x1-x2)/FLOAT(n-1)*FINDGEN(n)
		indx_arr = REVERSE(indx_arr)
		END
	sgn EQ +1: BEGIN
		indx_arr = x1 + (x2-x1)/FLOAT(n-1)*FINDGEN(n)
		end
	ELSE: BEGIN
		PRINT, 'Cannot create a 0 length index array!'
		indx_arr = 0	
		END
ENDCASE


RETURN, indx_arr

END	;of function wlnspace
;*************************************************************************