fwrite(tmp, sizeof(spinor)/2, 1, ofs);
fwrite(tmp, sizeof(float), 24, ofs);
int write_spinorfield_cm_single(spinor * const s, spinor * const r, char * filename) {  FILE * ofs;  int t, x, y , z, i = 0;  spinor * p = NULL;  float tmp[24];  ofs = fopen(filename, "w");  for(x = 0; x < LX; x++) {    for(y = 0; y < LY; y++) {      for(z = 0; z < LZ; z++) {	for(t = 0; t < T; t++) {  	  i = g_lexic2eosub[ g_ipt[t][x][y][z] ];	  if((t+x+y+z+g_proc_coords[0]*T+g_proc_coords[1]*LX)%2==0) {	    p = s;	  }	  else {	    p = r;	  }	  double2single_cm(tmp, p + i);	  fwrite(tmp, sizeof(spinor)/2, 1, ofs);	}      }    }  }  fclose(ofs);  return(0);}