Commit db6c7de7 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix error in elpa_pdlarfb single precision

parent 63f39246
......@@ -418,7 +418,7 @@ subroutine qr_pdlarft_tree_merge_1dcomm_&
end if
#else
if (localsize .gt. 0) then
call dsyrk("Upper", "Trans", int(n,kind=BLAS_KIND), int(localsize,kind=BLAS_KIND), &
call ssyrk("Upper", "Trans", int(n,kind=BLAS_KIND), int(localsize,kind=BLAS_KIND), &
1.0_rk4, v(baseoffset,1), int(ldv,kind=BLAS_KIND), 0.0_rk4, work(1,1), int(n,kind=BLAS_KIND))
else
work(1:n,1:n) = 0.0_rk4
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment