CEA Codes forum

Code: Select all

char cc1=125,cc2=100;
FILE *f

f=fopen(dst_file,"wb");
fwrite(&cc1,sizeof(char),1,f);
fwrite(&cc2,sizeof(char),1,f);
fwrite(&nbr_part,sizeof(int),1,f); // number of particles
fwrite(&Ibeam,sizeof(double),1,f); // bema current (mA)
fwrite(&Freq,sizeof(double),1,f);  // Bunch frequency (MHz)
fwrite(&cc1,sizeof(char),1,f);

for (int i=0;i<nbr_part;i++) {
  fwrite(&Part[i].x,sizeof(double),1,f);  // (cm)
  fwrite(&Part[i].xp,sizeof(double),1,f); // (rad)
  fwrite(&Part[i].y,sizeof(double),1,f);  // (cm)
  fwrite(&Part[i].yp,sizeof(double),1,f); // (rad)
  fwrite(&Part[i].p,sizeof(double),1,f);  // (rad)
  fwrite(&Part[i].w,sizeof(double),1,f);  // MeV
}
fwrite(&Mo,sizeof(double),1,f); // particle mass (MeV)
fclose(f);