10 lines
294 B
C
10 lines
294 B
C
#include "cs.h"
|
|
/* x(p) = b, for dense vectors x and b; p=NULL denotes identity */
|
|
int cs_ipvec (const int *p, const double *b, double *x, int n)
|
|
{
|
|
int k ;
|
|
if (!x || !b) return (0) ; /* check inputs */
|
|
for (k = 0 ; k < n ; k++) x [p ? p [k] : k] = b [k] ;
|
|
return (1) ;
|
|
}
|