;minbadval.pro is a function that returns the minimum value of a
;vector excluding any value equal to -999. If all values are
;-999. then -999. is returned as the minimum.
;Use is as follows:
;                  minvar=minbadval(var)
;Where
;               var = input vector (row or column)
;
;            minvar = minimum value in var excluding -999.
;                     (if all values in var are -999. then minvar=-999.)
;
;Written by BWBerger 8/19/99

function minbadval,variable

g=where(variable ne -999.,gc)
if gc ge 1 then begin
   minvar=min(variable(g))
endif else begin
   minvar=-999.
endelse

return,minvar
end