18 #ifndef EPPVECTORR_SLEP
19 #define EPPVECTORR_SLEP
35 void eppVectorR(
double *x,
double * t,
double * u,
double * v,
double * ind,
int n,
int k){
44 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
49 if(temp > fabs(v[j])){
52 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
53 x[i]= t[j] / temp * u[i];
59 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
65 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
71 #endif //USE_GPL_SHOGUN