|
|
|
@ -30,7 +30,7 @@
|
|
|
|
|
!
|
|
|
|
|
!
|
|
|
|
|
|
|
|
|
|
subroutine psi_renum_index(iperm,idx,info)
|
|
|
|
|
subroutine psi_i_renum_index(iperm,idx,info)
|
|
|
|
|
use psi_mod, psi_protect_name => psi_renum_index
|
|
|
|
|
use psb_serial_mod
|
|
|
|
|
implicit none
|
|
|
|
@ -58,7 +58,7 @@ subroutine psi_renum_index(iperm,idx,info)
|
|
|
|
|
k = idx(i)
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
end subroutine psi_renum_index
|
|
|
|
|
end subroutine psi_i_renum_index
|
|
|
|
|
|
|
|
|
|
subroutine psi_i_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info, mold)
|
|
|
|
|
|
|
|
|
@ -263,4 +263,3 @@ subroutine psi_i_bld_ovr_mst(me,ovrlap_elem,mst_idx,info)
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
end subroutine psi_i_bld_ovr_mst
|
|
|
|
|
|
|
|
|
|