sswrite(a,b,c)
{
  /*write(1,"writing\n",9);*/
  return write_real(a,b,c);
}