Browse Source

updated geev benchmark

tags/v0.2.15^2
Werner Saar 10 years ago
parent
commit
7f375f9e8f
1 changed files with 7 additions and 6 deletions
  1. +7
    -6
      benchmark/geev.c

+ 7
- 6
benchmark/geev.c View File

@@ -144,6 +144,7 @@ int main(int argc, char *argv[]){
FLOAT *a,*vl,*vr,*wi,*wr,*work,*rwork; FLOAT *a,*vl,*vr,*wi,*wr,*work,*rwork;
FLOAT wkopt[4]; FLOAT wkopt[4];
char job='V'; char job='V';
char jobr='N';
char *p; char *p;


blasint m, i, j, info,lwork; blasint m, i, j, info,lwork;
@@ -202,9 +203,9 @@ int main(int argc, char *argv[]){
lwork = -1; lwork = -1;
m=to; m=to;
#ifndef COMPLEX #ifndef COMPLEX
GEEV (&job, &job, &m, a, &m, wr, wi, vl, &m, vr, &m, wkopt, &lwork, &info);
GEEV (&job, &jobr, &m, a, &m, wr, wi, vl, &m, vr, &m, wkopt, &lwork, &info);
#else #else
GEEV (&job, &job, &m, a, &m, wr, vl, &m, vr, &m, wkopt, &lwork,rwork, &info);
GEEV (&job, &jobr, &m, a, &m, wr, vl, &m, vr, &m, wkopt, &lwork,rwork, &info);
#endif #endif


lwork = (blasint)wkopt[0]; lwork = (blasint)wkopt[0];
@@ -226,16 +227,16 @@ int main(int argc, char *argv[]){


lwork = -1; lwork = -1;
#ifndef COMPLEX #ifndef COMPLEX
GEEV (&job, &job, &m, a, &m, wr, wi, vl, &m, vr, &m, wkopt, &lwork, &info);
GEEV (&job, &jobr, &m, a, &m, wr, wi, vl, &m, vr, &m, wkopt, &lwork, &info);
#else #else
GEEV (&job, &job, &m, a, &m, wr, vl, &m, vr, &m, wkopt, &lwork,rwork, &info);
GEEV (&job, &jobr, &m, a, &m, wr, vl, &m, vr, &m, wkopt, &lwork,rwork, &info);
#endif #endif


lwork = (blasint)wkopt[0]; lwork = (blasint)wkopt[0];
#ifndef COMPLEX #ifndef COMPLEX
GEEV (&job, &job, &m, a, &m, wr, wi, vl, &m, vr, &m, work, &lwork, &info);
GEEV (&job, &jobr, &m, a, &m, wr, wi, vl, &m, vr, &m, work, &lwork, &info);
#else #else
GEEV (&job, &job, &m, a, &m, wr, vl, &m, vr, &m, work, &lwork,rwork, &info);
GEEV (&job, &jobr, &m, a, &m, wr, vl, &m, vr, &m, work, &lwork,rwork, &info);
#endif #endif


gettimeofday( &stop, (struct timezone *)0); gettimeofday( &stop, (struct timezone *)0);


Loading…
Cancel
Save