Unverified Commit 1526ac87 authored by Andreas Marek's avatar Andreas Marek
Browse files

Keep assumed-size arrays for now in elpa_qr

parent c46877f4
......@@ -70,14 +70,14 @@ subroutine qr_pdgeqrf_2dcomm(a,lda,v,ldv,tau,t,ldt,work,lwork,m,n,mb,nb,rowidx,c
! input variables (local)
integer lda,lwork,ldv,ldt
double precision a(:,:),v(:,:),tau(:),work(:),t(ldt,*)
double precision a(lda,*),v(ldv,*),tau(*),work(*),t(ldt,*)
! input variables (global)
integer m,n,mb,nb,rowidx,colidx,rev,trans,mpicomm_cols,mpicomm_rows
integer PQRPARAM(*)
! output variables (global)
double precision blockheuristic(:)
double precision blockheuristic(*)
! input variables derived from PQRPARAM
integer updatemode,tmerge,size2d
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