|
|
|
@ -248,7 +248,7 @@ c ... check for errors...
|
|
|
|
if (err.ne.0) goto 9999
|
|
|
|
if (err.ne.0) goto 9999
|
|
|
|
|
|
|
|
|
|
|
|
call psb_sum(ictxt,length_dl(0:np))
|
|
|
|
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)
|
|
|
|
allocate(itmp(dl_lda),stat=info)
|
|
|
|
if (info /= 0) goto 9999
|
|
|
|
if (info /= 0) goto 9999
|
|
|
|
itmp(1:dl_lda) = dep_list(1:dl_lda,me)
|
|
|
|
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)
|
|
|
|
+ dep_list,dl_lda,mpi_integer,icomm,info)
|
|
|
|
deallocate(itmp)
|
|
|
|
deallocate(itmp)
|
|
|
|
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
|
|
9999 continue
|
|
|
|
9999 continue
|
|
|
|
|
Salvatore Filippone
19 years ago