Commit cae76d2c authored by Andreas Marek's avatar Andreas Marek

Error in qr-decomposition: variable not initialized

parent c91e8d18
......@@ -1411,6 +1411,9 @@ subroutine qr_tmerge_pdlarfb_1dcomm_single(m,mb,n,oldk,k,v,ldv,t,ldt,a,lda,basei
integer(kind=ik) :: mergeoffset,mergelda,mergesize
integer(kind=ik) :: tgenoffset,tgenlda,tgensize
! quickfix
mergeoffset = 0
if (updatemode .eq. ichar('I')) then
updatelda = oldk+k
else
......
Markdown is supported
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