예제 #1
0
파일: lls_complex.c 프로젝트: pa345/lib
int
lls_complex_save(const char *filename, lls_complex_workspace *w)
{
  int s = 0;
  FILE *fp;

  fp = fopen(filename, "w");
  if (!fp)
    {
      fprintf(stderr, "lls_complex_save: unable to open %s: %s\n",
              filename, strerror(errno));
      return GSL_FAILURE;
    }

  fwrite(&(w->bHb), sizeof(double), 1, fp);
  s += gsl_matrix_complex_fwrite(fp, w->AHA);
  s += gsl_vector_complex_fwrite(fp, w->AHb);

  fclose(fp);

  return s;
} /* lls_complex_save() */
예제 #2
0
void complex_spinor::complex_spinor_fwrite(FILE * pFile) const{
	gsl_vector_complex_fwrite( pFile, this->priv_pVector );
}