/*****************************************************************************/
void data_head(alpha, rnd, pchoice, qchoice, time, start)
float alpha, rnd;
int pchoice, qchoice;
int start[];
short time[3]; {
  FILE *finm, *finh, *ffact;
  short ftime[3],i;
  char b,c;

  clock(ftime);
  if((ftime[2]-=time[2])<0) {
    ftime[2]+=60;
    ftime[1]--;
  }
  if((ftime[1]-=time[1])<0) {
    ftime[1]+=60;
    ftime[0]--;
  }
  ftime[0]-=time[0];

  ffact=fopen("/mit/smmadana/graph.fact","w");

  fprintf(fdata,"Run Time: %d:%02d:%02d\n",ftime[0],ftime[1],ftime[2]);
  fprintf(ffact,"Run Time: %d:%02d:%02d\n",ftime[0],ftime[1],ftime[2]);

  system("machtype -c > .mach");
  finm=fopen("/mit/smmadana/.mach","r");
  fprintf(fdata,"Machine: ");
  fprintf(ffact,"Machine: ");
  b=getc(finm);
  while((c=getc(finm))!=EOF) {
    fprintf(fdata,"%c",b);
    fprintf(ffact,"%c",b);
    b=c;
  }
  fprintf(fdata," ");
  fprintf(ffact," ");
  fclose(finm);
  unlink("/mit/smmadana/.mach");

  system("hostname > .host");
  finh=fopen("/mit/smmadana/.host","r");
  while((c=getc(finh))!=EOF){
    fprintf(fdata,"%c",c);
    fprintf(ffact,"%c",c);
  }
  fprintf(fdata,"\n\n");
  fclose(finh);
  unlink("/mit/smmadana/.host");

  fprintf(ffact,"Nodes/Level: 0001 ");
  for(i=0;i<levels;i++) {
    if(i==11) fprintf(ffact,"            ");
    fprintf(ffact,"%04d ",nnod[i]);
  }
  fprintf(ffact,"\n");

  fprintf(fdata, "pchoice=%d, qchoice=%d, alpha=%1.4f, interval=%1.3f\n",
          pchoice, qchoice, alpha, rnd);
  fprintf(ffact, 
    "pchoice=%d, qchoice=%d, alpha=%1.4f, interval=%1.3f, levels=%d\n",
          pchoice, qchoice, alpha, rnd, levels);

  write_pi(node[start[0]]->value);
  fprintf(ffact," ------ ------ ------ ------ ------ ------ ------ ------ \n");
  for (i=0;i<8;i++)
    fprintf(ffact,"| %.2f ",node[start[0]]->value[i]);
  fprintf(ffact,"|\n");
  fprintf(ffact," ------ ------ ------ ------ ------ ------ ------ ------ \n");

  fprintf(ffact,"Jmin=%.3f\n",node[start[0]]->Jmin);
  fprintf(ffact,"\n\n");

  fclose(ffact);

  time[0]=ftime[0];
  time[1]=ftime[1];
  time[2]=ftime[2];
}