function result = isAnInteger(value)

if isinteger(value)
    result = true;
elseif isnumeric(value)
    int = fix(value);
    d1=double(int);
    d2=double(value);
    if rem(d2,d1) > 1.e-10
        result = false;
    else
        result = true;
    end
else
    result = false;
end