fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Start work on REMAP.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-06 09:33:27 +01:00
parent c936d6e5bd
commit 7c6ffcd4a2
7 changed files with 333 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_cd_tools_mod.F90
+13
View File
@@ -320,6 +320,19 @@ module psb_cd_tools_mod
module procedure psb_local_index, psb_local_index_v
end interface
interface psb_remap
subroutine psb_cd_remap(np_remap, desc_in, desc_out, info)
import :: psb_ipk_, psb_desc_type
implicit none
!....parameters...
integer(psb_ipk_), intent(in) :: np_remap
type(psb_desc_type), intent(inout) :: desc_in
type(psb_desc_type), intent(out) :: desc_out
integer(psb_ipk_), intent(out) :: info
end subroutine psb_cd_remap
end interface
contains
subroutine psb_get_boundary(bndel,desc,info)