floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed the utest bug for drotmg.

This commit is contained in:
Xianyi Zhang 2012-04-26 15:54:15 +08:00
parent b2bdb6f7c4
commit 08570c4248
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utest/test_rotmg.c
View File

@ -38,12 +38,18 @@ void test_drotmg()
double te_d2, tr_d2; double te_d2, tr_d2;
double te_x1, tr_x1; double te_x1, tr_x1;
double te_y1, tr_y1; double te_y1, tr_y1;
double te_param[5],tr_param[5]; double te_param[5];
double tr_param[5];
int i=0; int i=0;
te_d1= tr_d1=0.21149573940783739; te_d1= tr_d1=0.21149573940783739;
te_d2= tr_d2=0.046892057172954082; te_d2= tr_d2=0.046892057172954082;
te_x1= tr_x1=-0.42272687517106533; te_x1= tr_x1=-0.42272687517106533;
te_y1= tr_y1=0.42211309121921659; te_y1= tr_y1=0.42211309121921659;
for(i=0; i<5; i++){
te_param[i]=tr_param[i]=0.0;
}
//OpenBLAS //OpenBLAS
BLASFUNC(drotmg)(&te_d1, &te_d2, &te_x1, &te_y1, te_param); BLASFUNC(drotmg)(&te_d1, &te_d2, &te_x1, &te_y1, te_param);
//reference //reference