function [out]=isint(A)
%determines if A is an integer
%gives a logical true (1) if true and false (0) if false

if abs(A-round(A))>0
    out=0;
else
    out=1;
end

%looks good- dho 1/5/07