17 #ifndef EPPVECTORR_SLEP
18 #define EPPVECTORR_SLEP
31 void eppVectorR(
double *x,
double * t,
double * u,
double * v,
double * ind,
int n,
int k){
40 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
45 if(temp > fabs(v[j])){
48 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
49 x[i]= t[j] / temp * u[i];
55 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
61 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)