aboutsummaryrefslogtreecommitdiff
path: root/src/post-refinement.c
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2013-07-31 17:08:07 +0200
committerThomas White <taw@physics.org>2013-07-31 17:09:36 +0200
commit099e243acdb59d19395786b15e7ea3228a413b04 (patch)
tree75bd55c56aaea5dc8f66edbf6079c35a985e1a7a /src/post-refinement.c
parentbb98d82fdc16dff7374b19e572fe8a310136d34b (diff)
Flag crystals as "not refined" if SVD fails
Diffstat (limited to 'src/post-refinement.c')
-rw-r--r--src/post-refinement.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/post-refinement.c b/src/post-refinement.c
index b1d99c86..041f3a00 100644
--- a/src/post-refinement.c
+++ b/src/post-refinement.c
@@ -395,6 +395,7 @@ static gsl_vector *solve_svd(gsl_vector *v, gsl_matrix *M)
gsl_vector_free(s_val);
gsl_matrix_free(SAS);
gsl_matrix_free(S);
+ crystal_set_user_flag(cr, 1);
return NULL;
}
/* "SAS" is now "U" */
@@ -418,6 +419,7 @@ static gsl_vector *solve_svd(gsl_vector *v, gsl_matrix *M)
ERROR("Matrix solution failed: %s\n", gsl_strerror(err));
gsl_matrix_free(S);
gsl_vector_free(SinvX);
+ crystal_set_user_flag(cr, 1);
return NULL;
}