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

Merge branch 'new-context' into remap-coarse & fix

Browse Source 
# Conflicts:
#	base/modules/desc/psb_desc_mod.F90
#	base/modules/penv/psi_penv_mod.F90
This commit is contained in:
Salvatore Filippone
2020-11-19 14:38:48 +01:00
parent 4bc326d06b 9178d63ebd
commit 7124e8abdf
511 changed files with 11228 additions and 12970 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_cd_tools_mod.F90
+10 -4
View File
@@ -190,13 +190,14 @@ module psb_cd_tools_mod
interface psb_cdall
subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl,&
subroutine psb_cdall(ctxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl,&
& globalcheck,lidx,usehash)
import :: psb_ipk_, psb_lpk_, psb_desc_type, psb_parts
import :: psb_ipk_, psb_lpk_, psb_desc_type, psb_parts, psb_ctxt_type
implicit None
procedure(psb_parts) :: parts
integer(psb_lpk_), intent(in) :: mg,ng, vl(:)
integer(psb_ipk_), intent(in) :: ictxt, vg(:), lidx(:),nl
type(psb_ctxt_type) :: ctxt
integer(psb_ipk_), intent(in) :: vg(:), lidx(:),nl
integer(psb_ipk_), intent(in) :: flag
logical, intent(in) :: repl, globalcheck, usehash
integer(psb_ipk_), intent(out) :: info
@@ -352,7 +353,12 @@ contains
integer(psb_ipk_), intent(out) :: info
class(psb_i_base_vect_type), optional, intent(in) :: mold
call psb_icdasb(desc,info,ext_hv=.false.,mold=mold)
if (desc%indxmap%get_fmt() == 'NULL') then
! Do nothing
info = 0
else
call psb_icdasb(desc,info,ext_hv=.false.,mold=mold)
end if
end subroutine psb_cdasb