#include <stdio.h>

FILE *f_b_bin;
FILE *f_amr_bin;
FILE *f_amr_temp;
FILE *f32;
FILE *f_sort;

void c_write_amr_bin(void *arr, signed int *ele_long,signed int *nlong);
void c_close_amr_bin();
#ifdef BGQ
int c_open_f32(filename)
#else
int c_open_f32_(filename)
#endif

char *filename;

{
	int i;
        char cfilename[256];

  if(!filename) {
    printf("NULL file pointer in c_open_f32()\n");
    return -1; 
  } else {
    for(i=0; i<256 && filename[i] && filename[i]!=' '; i++) 
      cfilename[i] = filename[i];
    cfilename[i] = '\0';
  }
	

   if(!(f32 = fopen(cfilename,"wb"))) {
    fprintf(stderr,"Error opening file %s\n",cfilename);
    return -1; 
  }
    return 0;
}


#ifdef BGQ
int c_open_wb_bin(filename)
#else
int c_open_wb_bin_(filename)
#endif
char *filename;

{
	int i;
        char cfilename[256];

  if(!filename) {
    printf("NULL file pointer in c_open_wb_bin()\n");
    return -1; 
  } else {
    for(i=0; i<256 && filename[i] && filename[i]!=' '; i++) 
      cfilename[i] = filename[i];
    cfilename[i] = '\0';
  }
	

   if(!(f_b_bin = fopen(cfilename,"wb"))) {
    fprintf(stderr,"Error opening file %s\n",cfilename);
    return -1; 
  }
    return 0; 

}

#ifdef BGQ
int c_open_so_bin(filename)
#else
int c_open_so_bin_(filename)
#endif
char *filename;

{
	int i;
        char cfilename[256];

  if(!filename) {
    printf("NULL file pointer in c_open_so_bin()\n");
    return -1; 
  } else {
    for(i=0; i<256 && filename[i] && filename[i]!=' '; i++) 
      cfilename[i] = filename[i];
    cfilename[i] = '\0';
  }
	

   if(!(f_sort = fopen(cfilename,"wb"))) {
    fprintf(stderr,"Error opening file %s\n",cfilename);
    return -1; 
  }
    return 0; 

}


#ifdef BGQ
int c_open_b_bin(filename)
#else
int c_open_b_bin_(filename)
#endif

char *filename;

{
	int i;
        char cfilename[256];

  if(!filename) {
    printf("NULL file pointer in c_open_b_bin()\n");
    return -1; 
  } else {
    for(i=0; i<256 && filename[i] && filename[i]!=' '; i++) 
      cfilename[i] = filename[i];
    cfilename[i] = '\0';
  }
	

   if(!(f_b_bin = fopen(cfilename,"r+"))) {
    fprintf(stderr,"Error opening file %s\n",cfilename);
    return -1; 
  }
    return 0; 

}


#ifdef BGQ
void c_close_b_bin()
#else
void c_close_b_bin_()
#endif

{
  fclose(f_b_bin);
}



#ifdef BGQ
void c_close_so_bin()
#else
void c_close_so_bin_()
#endif
{
  fclose(f_sort);
}


#ifdef BGQ
void c_close_f32()
#else
void c_close_f32_()
#endif
{
  fclose(f32);
}


#ifdef BGQ
void c_read_b_bin(arr,  nlong)
#else
void c_read_b_bin_(arr,  nlong)
#endif

double *arr;
signed int *nlong;
{




  fread(arr,sizeof(double),*nlong,f_b_bin);

}

#ifdef BGQ
void c_write_b_bin(arr,  nlong)
#else
void c_write_b_bin_(arr,  nlong)
#endif

double *arr;
signed int *nlong;
{



  fwrite(arr,sizeof(double),*nlong,f_b_bin);

}


#ifdef BGQ
void c_write_so_bin(arr,  nlong)
#else
void c_write_so_bin_(arr,  nlong)
#endif

double *arr;
signed int *nlong;
{




  fwrite(arr,sizeof(double),*nlong,f_sort);

}

#ifdef BGQ
void c_writeh_f32(znow,tstep)
#else
void c_writeh_f32_(znow,tstep)
#endif

double *znow;
signed int *tstep;
{


  fwrite(znow,sizeof(double),1,f32);
  fwrite(tstep,sizeof(int),1,f32);

}

#ifdef BGQ
void c_write_f32(arr,  nlong)
#else
void c_write_f32_(arr,  nlong)
#endif

double *arr;
signed int *nlong;
{

  fwrite(arr,sizeof(double),*nlong,f32);

}