function all,variable,value
;This tests the array variable to see if all its elements
; are equal to the value.   If they are it returns a 1, 
;otherwise it returns a 0

test=where(variable ne value)
if test(0) ne -1 then flag=0 else flag=1

return,flag
end