*** empty log message ***

19 years ago · e31cdc78f0
parent 276580ea42
commit e31cdc78f0
1 changed files with 1 additions and 3 deletions
--- 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