function r=is_real(A)
// Copyright INRIA
// M2SCI function
// Checks if A real
// Input: A = a M2SCI tlist
// Output: r = boolean value (true if A is real)
// V.C.

r=A.type.property==Real
endfunction

