Update zscal_vector.c

This commit is contained in:
Martin Kroeker 2024-01-07 19:14:41 +01:00 committed by GitHub
parent 0c33b57f5f
commit b08a208365
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -80,7 +80,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
j += gvl; j += gvl;
ix += inc_x * 2 * gvl; ix += inc_x * 2 * gvl;
} }
else if(da_r == 0.0 && da_i == 0.0){ } else if(da_r == 0.0 && da_i == 0.0){
gvl = VSETVL(n); gvl = VSETVL(n);
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT); BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);
BLASLONG inc_xv = inc_x * 2 * gvl; BLASLONG inc_xv = inc_x * 2 * gvl;