@@ -70,7 +70,6 @@ int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a,
70
70
FLOAT_VX2_T va , vb ;
71
71
unsigned int gvl = 0 ;
72
72
73
-
74
73
if ( rows <= 0 ) return (0 );
75
74
if ( cols <= 0 ) return (0 );
76
75
@@ -85,17 +84,13 @@ int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a,
85
84
for (j = 0 ; j < rows ; j += gvl )
86
85
{
87
86
gvl = VSETVL (rows - j );
88
- // bptr[ia + 0] = alpha_r * aptr[ia + 0] - alpha_i * aptr[ia+1];
89
- // bptr[ia + 2] = alpha_r * aptr[ia + 2] - alpha_i * aptr[ia+3];
90
87
va = VLSEG2_FLOAT (aptr + ia , gvl );
91
88
aptr_v0 = VGET_VX2 (va , 0 );
92
89
aptr_v1 = VGET_VX2 (va , 1 );
93
90
bptr_v1 = VFMUL_VF_FLOAT ( aptr_v1 , alpha_r ,gvl );
94
91
bptr_v1 = VFMACCVF_FLOAT (bptr_v1 , alpha_i , aptr_v0 , gvl );
95
92
bptr_v0 = VFMUL_VF_FLOAT ( aptr_v0 ,alpha_r , gvl );
96
93
bptr_v0 = VFNMSACVF_FLOAT (bptr_v0 , alpha_i , aptr_v1 , gvl );
97
- // bptr[ia + 1] = alpha_r * aptr[ia + 1] + alpha_i * aptr[ia+0];
98
- // bptr[ia + 3] = alpha_r * aptr[ia + 3] + alpha_i * aptr[ia+2];
99
94
vb = VSET_VX2 (vb , 0 , bptr_v0 );
100
95
vb = VSET_VX2 (vb , 1 , bptr_v1 );
101
96
VSSEG2_FLOAT (& bptr [ia ], vb , gvl );
0 commit comments