int i,a[100],b[100];

  fp=fopen("d1.dat","wb");

  for(i=0;i<100;i++) a[i]=i+1;

  fwrite(a,sizeof(int),100,fp);