Update zscal.c

This commit is contained in:
Martin Kroeker 2024-01-12 13:11:13 +01:00 committed by GitHub
parent b57627c27f
commit 20413ee6ec
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -329,7 +329,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
if (da_i == 0)
zscal_kernel_8_zero(n1, x);
else
zscal_kernel_8_zero_r(n1, alpha, x);
zscal_kernel_8(n1, da_r, da_i, x);
else if (da_i == 0)
zscal_kernel_8_zero_i(n1, alpha, x);
else