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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-07-13 16:46:48 +00:00
parent 276580ea42
commit e31cdc78f0
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/internals/psi_extrct_dl.f
+1 -3
View File
@@ -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