void machineid_()
{
/*   fprintf(stderr,"Running on: %s\n",hostname());*/
  system("hostname > hostname");
}