10 lines
236 B
C
10 lines
236 B
C
#include "cs.h"
|
|
static int cs_tol (int i, int j, double aij, void *tol)
|
|
{
|
|
return (fabs (aij) > *((double *) tol)) ;
|
|
}
|
|
int cs_droptol (cs *A, double tol)
|
|
{
|
|
return (cs_fkeep (A, &cs_tol, &tol)) ; /* keep all large entries */
|
|
}
|