function x=g_ceil(a)
// only to be called by function ceil
//!
// Copyright INRIA
select type(a)
case 2 then 
  x=ceil(a)
//-compat next case retained for list/tlist compatibility
case 15 then
  a1=a(1);
  if a1(1)=='r' then
    error(43)
  else
    error(43)
  end
case 16 then
  a1=a(1);
  if a1(1)=='r' then
    error(43)
  else
    error(43)
  end
case 5 then
  [ij,v,mn]=spget(a)
  x=sparse(ij,ceil(v),mn)
else
  error(43)
end
