From 6212203102b7f934d10fe7c98a681681bbf712fa Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 13 Jul 2006 14:09:57 +0000 Subject: [PATCH] Leading dimension of RS in call to dtrsm --- src/methd/psb_dgmresr.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/methd/psb_dgmresr.f90 b/src/methd/psb_dgmresr.f90 index 8592a7ad..5bcb5928 100644 --- a/src/methd/psb_dgmresr.f90 +++ b/src/methd/psb_dgmresr.f90 @@ -300,7 +300,7 @@ Subroutine psb_dgmresr(a,prec,b,x,eps,desc_a,info,& endif if (rerr < eps ) then - call dtrsm('l','u','n','n',i,1,done,rr,size(rr,1),rs,nl) + call dtrsm('l','u','n','n',i,1,done,rr,size(rr,1),rs,size(rs)) if (debug) write(0,*) 'Rebuild x-> RS:',rs(21:nl) do k=1, i call psb_geaxpby(rs(k),v(:,k),done,x,desc_a,info) @@ -314,7 +314,7 @@ Subroutine psb_dgmresr(a,prec,b,x,eps,desc_a,info,& end Do inner if (debug) write(0,*) 'Before DTRSM :',rs(1:nl) - call dtrsm('l','u','n','n',nl,1,done,rr,size(rr,1),rs,nl) + call dtrsm('l','u','n','n',nl,1,done,rr,size(rr,1),rs,size(rs)) if (debug) write(0,*) 'Rebuild x-> RS:',rs(21:nl) do k=1, nl call psb_geaxpby(rs(k),v(:,k),done,x,desc_a,info)