pro WLCKAXES, a
;+
; NAME:
; 	 WLCKAXES
;
; PURPOSE:
;	This procedure creates an axis and sets the {xmin,xmax}{ymin,ymax}
;
; CATEGORY:
;	Plotting
;
; CALLING SEQUENCE:
;    WLCKAXES, a
;
; INPUTS:
;    a:    4-element array containing x and y endpoints for the axes
;
; OUTPUTS:
;	An axis
;
; SEE ALSO:
;	wulkaxes
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps		August, 1995
;Translated from MatLab Wavelab routine: lockaxes.m
;-

;Color of text strings
IF !p.background EQ 0 THEN cl = 255 ELSE cl = 0          

;Put down the axes
PLOT, [a(0), a(1)], [a(2), a(3)], /nodata, xrange=[a(0), a(1)], $
 yrange=[a(2), a(3)], title = ' ', color = cl

;keep the limits
!y.range = [a(2), a(3)] 
!x.range = [a(0), a(1)]
    
;   
; Algorithm Source:  WaveLab Version 0.600
; WaveLab WWW site: http://playfair.stanford.edu/ 
; WaveLab Questions? e-mail wavelab@playfair.stanford.edu
;   
    
END		;of pro wlckaxes