Fix descriptor init functions

1 year ago · ffcf0806df
parent 35ccb15494
commit ffcf0806df
3 changed files with 3 additions and 0 deletions
--- a/base/tools/psb_cd_inloc.f90
+++ b/base/tools/psb_cd_inloc.f90
@ -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
--- a/base/tools/psb_cdals.f90
+++ b/base/tools/psb_cdals.f90
@ -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
--- a/base/tools/psb_cdalv.f90
+++ b/base/tools/psb_cdalv.f90
@ -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