fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Alfredo Buttari
2005-09-19 14:36:45 +00:00
parent ad901bf105
commit 9ba784bdca
10 changed files with 45 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/tools/psb_dallc.f90
+3 -3
View File
@@ -188,7 +188,7 @@ subroutine psb_dallocv(m, x, desc_a,info)
!locals
integer :: nprow,npcol,myrow,mycol,err,n_col,n_row,dectype,i,err_act
integer :: icontxt
integer :: int_err(5),temp(1),exch(2)
integer :: int_err(5),temp(1),exch
real(kind(1.d0)) :: real_err(5)
logical, parameter :: debug=.false.
character(len=20) :: name, ch_err
@@ -239,11 +239,11 @@ subroutine psb_dallocv(m, x, desc_a,info)
!global check on m and n parameters
if (myrow.eq.psb_root_) then
exch(1) = m
exch = m
call igebs2d(icontxt,psb_all_,psb_topdef_, ione,ione, exch, ione)
else
call igebr2d(icontxt,psb_all_,psb_topdef_, ione,ione, exch, ione, psb_root_, 0)
if (exch(1) .ne. m) then
if (exch .ne. m) then
info = 550
int_err(1) = 1
call psb_errpush(info,name,int_err)