diff --git a/spm.c b/spm.c index dc0a8490c75e9020b864359af4d8fb1900aceed7..673c229ae8d4829508d6bd2654d2acab0972cdea 100644 --- a/spm.c +++ b/spm.c @@ -1237,8 +1237,9 @@ spmGenRHS( pastix_rhstype_t type, pastix_int_t nrhs, * ******************************************************************************* * - * @retval PASTIX_SUCCESS if the b vector has been computed successfully, - * @retval PASTIX_ERR_BADPARAMETER otherwise. + * @retval PASTIX_SUCCESS if the tests are succesfull + * @retval PASTIX_ERR_BADPARAMETER if the input matrix is incorrect + * @retval 1, if one of the test failed * *******************************************************************************/ int diff --git a/z_spm_genrhs.c b/z_spm_genrhs.c index e7095ae7653e556aacad17c5967595a99e6c708e..1438924bd4ccd0b3eff9e891585a8a09bce2e5a7 100644 --- a/z_spm_genrhs.c +++ b/z_spm_genrhs.c @@ -353,8 +353,8 @@ z_spmGenRHS( pastix_rhstype_t type, int nrhs, * ******************************************************************************* * - * @retval PASTIX_SUCCESS if the b vector has been computed succesfully, - * @retval PASTIX_ERR_BADPARAMETER otherwise. + * @retval PASTIX_SUCCESS if the tests are succesfull + * @retval 1, if one of the test failed * *******************************************************************************/ int @@ -421,7 +421,7 @@ z_spmCheckAxb( int nrhs, " || b_%d - A x_%d ||_1 / (||A||_1 * ||x_%d||_oo * eps) %e (%s)\n", i, i, nr, i, i, i, back, - failure ? "FAILED" : "SUCCESS" ); + fail ? "FAILED" : "SUCCESS" ); } failure = failure || fail; @@ -465,7 +465,7 @@ z_spmCheckAxb( int nrhs, " || x0_%d - x_%d ||_oo / (||x0_%d||_oo * eps) %e (%s)\n", i, nr, i, i, i, forw, - failure ? "FAILED" : "SUCCESS" ); + fail ? "FAILED" : "SUCCESS" ); } failure = failure || fail; @@ -478,5 +478,5 @@ z_spmCheckAxb( int nrhs, failure ? "FAILED" : "SUCCESS" ); } - return PASTIX_SUCCESS; + return - failure; }