mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-24 14:51:49 +00:00
*** empty log message ***
This commit is contained in:
@@ -140,6 +140,7 @@ subroutine psb_dscasb(desc_a,info)
|
||||
& nhalo,lhalo,halo_index(lhalo)
|
||||
!.... convert comunication stuctures....
|
||||
! first the halo index
|
||||
|
||||
call psi_crea_index(desc_a,halo_index,&
|
||||
& desc_a%halo_index,.false.,info)
|
||||
if(info.ne.0) then
|
||||
|
||||
Reference in New Issue
Block a user