From e31cdc78f05767fb9d378e09f396123e97094c8b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 13 Jul 2006 16:46:48 +0000 Subject: [PATCH] *** empty log message *** --- src/internals/psi_extrct_dl.f | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/internals/psi_extrct_dl.f b/src/internals/psi_extrct_dl.f index 12bc3078..c2da81b3 100644 --- a/src/internals/psi_extrct_dl.f +++ b/src/internals/psi_extrct_dl.f @@ -248,7 +248,7 @@ c ... check for errors... if (err.ne.0) goto 9999 call psb_sum(ictxt,length_dl(0:np)) - call blacs_get(ictxt,10,icomm ) + call psb_get_mpicomm(ictxt,icomm ) allocate(itmp(dl_lda),stat=info) if (info /= 0) goto 9999 itmp(1:dl_lda) = dep_list(1:dl_lda,me) @@ -256,8 +256,6 @@ c ... check for errors... + dep_list,dl_lda,mpi_integer,icomm,info) deallocate(itmp) - end if - return 9999 continue