function CEHCK(name,assertion)

if (assertion~=1)
  error(['CHECK ' name ' fails']);
end