00001 #include "cs.h" 00002 static int cs_tol (int i, int j, double aij, void *tol) 00003 { 00004 return (fabs (aij) > *((double *) tol)) ; 00005 } 00006 int cs_droptol (cs *A, double tol) 00007 { 00008 return (cs_fkeep (A, &cs_tol, &tol)) ; /* keep all large entries */ 00009 }