Lephisto/lib/csparse/cs_dropzeros.c

10 lines
214 B
C

#include "cs.h"
static int cs_nonzero (int i, int j, double aij, void *other)
{
return (aij != 0) ;
}
int cs_dropzeros (cs *A)
{
return (cs_fkeep (A, &cs_nonzero, NULL)) ; /* keep all nonzero entries */
}