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

bugfix in zgemv_n_4.c

This commit is contained in:
wernsaar 2014-09-11 13:18:00 +02:00
parent bced4594bb
commit e0192a6914
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
kernel/x86_64/KERNEL.HASWELL
View File

@ -4,10 +4,10 @@ SGEMVTKERNEL = sgemv_t_4.c
DGEMVNKERNEL = dgemv_n_4.c DGEMVNKERNEL = dgemv_n_4.c
DGEMVTKERNEL = dgemv_t_4.c DGEMVTKERNEL = dgemv_t_4.c
ZGEMVNKERNEL = zgemv_n.c ZGEMVNKERNEL = zgemv_n_4.c
ZGEMVTKERNEL = zgemv_t.c ZGEMVTKERNEL = zgemv_t.c
CGEMVNKERNEL = cgemv_n.c CGEMVNKERNEL = cgemv_n_4.c
CGEMVTKERNEL = cgemv_t.c CGEMVTKERNEL = cgemv_t.c
SGEMMKERNEL = sgemm_kernel_16x4_haswell.S SGEMMKERNEL = sgemm_kernel_16x4_haswell.S

3
kernel/x86_64/zgemv_n_4.c
View File

@ -29,6 +29,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#include <stdio.h> #include <stdio.h>
#include "common.h" #include "common.h"
#if defined(HASWELL) #if defined(HASWELL)
#include "zgemv_n_microk_haswell-4.c" #include "zgemv_n_microk_haswell-4.c"
#endif #endif
@ -270,7 +271,7 @@ printf("%s %d %d %.16f %.16f %d %d %d\n","zgemv_n",m,n,alpha_r,alpha_i,lda,inc_x
ap[3] = ap[2] + lda; ap[3] = ap[2] + lda;
x_ptr = x; x_ptr = x;
//zero_y(NB,ybuffer); //zero_y(NB,ybuffer);
memset(ybuffer,0,NB*8); memset(ybuffer,0,NB*16);
if ( inc_x == 2 ) if ( inc_x == 2 )
{ {