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() */
void complex_spinor::complex_spinor_fwrite(FILE * pFile) const{ gsl_vector_complex_fwrite( pFile, this->priv_pVector ); }