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

Fixed declaration and use of CONTEXT with new type.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-14 16:42:15 +01:00
parent 2009ed8dbe
commit b376d226cb
468 changed files with 3616 additions and 2324 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_cd_tools_mod.F90
+3 -2
View File
@@ -192,11 +192,12 @@ module psb_cd_tools_mod
subroutine psb_cdall(ictxt, 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) :: ictxt
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