16 lines
373 B
C
16 lines
373 B
C
#include "cs.h"
|
|
/* load a triplet matrix from a file */
|
|
cs *cs_load (FILE *f)
|
|
{
|
|
int i, j ;
|
|
double x ;
|
|
cs *T ;
|
|
if (!f) return (NULL) ; /* check inputs */
|
|
T = cs_spalloc (0, 0, 1, 1, 1) ; /* allocate result */
|
|
while (fscanf (f, "%d %d %lg\n", &i, &j, &x) == 3)
|
|
{
|
|
if (!cs_entry (T, i, j, x)) return (cs_spfree (T)) ;
|
|
}
|
|
return (T) ;
|
|
}
|