pro finalrange, var, range

;*** Program finds the range of the given variable
;*** Input = variable
;*** Output = range
;*** Range is to be used in the plotvariables.pro
;***  routine that works with dayflux.pro
;***   8.16.1999 KSCHAAF and BBERGER

cl = col(var)        ; # of columns of data
delta = fltarr(cl)   ;max - min
meanvar = fltarr(cl) ; mean
range = fltarr(cl,2) ; final rage - output
minvar = fltarr(cl)  ;min of the data
maxvar = fltarr(cl)  ;max of the data

;*** Loop through the data to get the max/min and delta 

for i=0,cl-1 do begin
    x = where(var(i,*) ne -999.,count)  ;Use only good data
    if (count gt 0) then begin
        minvar(i) = min(var(i,x))
        maxvar(i) = max(var(i,*))
    endif
    if (count eq 0) then begin
        minvar(i) = 0
        maxvar(i) = 0
    endif

    delta(i) =  maxvar(i) - minvar(i)
;    meanvar(i) = meanbadval(var(i,*))
endfor


deltamax = max(delta)     ; find the largest change from max to min

halfrange = deltamax/2. + 0.02*(deltamax)  ;used to center the plot

for i=0,cl-1 do begin
  range(i,0) = (minvar(i) + (maxvar(i)-minvar(i))/2 - halfrange)  ;minimum range
  range(i,1) = (minvar(i) + (maxvar(i)-minvar(i))/2 + halfrange)  ;maximum range
endfor

return
end