17 #ifndef EPPVECTORR_SLEP
18 #define EPPVECTORR_SLEP
33 void eppVectorR(
double *x,
double * t,
double * u,
double * v,
double * ind,
int n,
int k){
42 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
47 if(temp > fabs(v[j])){
50 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
51 x[i]= t[j] / temp * u[i];
57 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
63 for(i=(
int) (ind[j]); i< (int) (ind[j+1]); i++)
void eppVectorR(double *x, double *t, double *u, double *v, double *ind, int n, int k)