; ;Copyright 1996-2013 United States Government as represented by the ;Administrator of the National Aeronautics and Space Administration. ;All Rights Reserved. ; This software may be used, copied, or redistributed as long as it is not ; sold and this copyright notice is reproduced on each copy made. This ; routine is provided as is without any express or implied warranties ; whatsoever. ; function cmb_crange,xaxis=xaxis,yaxis=yaxis if n_elements(xaxis) eq 0 and n_elements(yaxis) eq 0 then begin xaxis=1 yaxis=0 endif if keyword_set(xaxis) then yaxis=0 if keyword_set(yaxis) then xaxis=0 if xaxis eq 1 then begin r = !x.crange type = !x.type endif else begin r = !y.crange type = !y.type endelse if type eq 1 then return,10^r return,r end