mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-07 23:16:45 +00:00
Fix descriptor init functions
This commit is contained in:
@@ -43,6 +43,7 @@
|
||||
! info - integer. Eventually returns an error code
|
||||
subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
|
||||
use psb_base_mod
|
||||
use psb_desc_mod
|
||||
use psi_mod
|
||||
use psb_repl_map_mod
|
||||
use psb_list_map_mod
|
||||
|
||||
@@ -45,6 +45,7 @@
|
||||
! info - integer. Error code (if any).
|
||||
subroutine psb_cdals(m, n, parts, ctxt, desc, info)
|
||||
use psb_base_mod
|
||||
use psb_desc_mod
|
||||
use psi_mod
|
||||
use psb_repl_map_mod
|
||||
use psb_list_map_mod
|
||||
|
||||
@@ -46,6 +46,7 @@
|
||||
subroutine psb_cdalv(v, ctxt, desc, info, flag)
|
||||
use psb_base_mod
|
||||
use psi_mod
|
||||
use psb_desc_mod
|
||||
use psb_repl_map_mod
|
||||
use psb_glist_map_mod
|
||||
use psb_hash_map_mod
|
||||
|
||||
Reference in New Issue
Block a user