From ffcf0806df8320b64bfc977d44c146a7c95d6d1d Mon Sep 17 00:00:00 2001 From: sfilippone Date: Mon, 14 Apr 2025 18:07:24 +0200 Subject: [PATCH] Fix descriptor init functions --- base/tools/psb_cd_inloc.f90 | 1 + base/tools/psb_cdals.f90 | 1 + base/tools/psb_cdalv.f90 | 1 + 3 files changed, 3 insertions(+) diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90 index eae2ace3..4d0ff7f6 100644 --- 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 diff --git a/base/tools/psb_cdals.f90 b/base/tools/psb_cdals.f90 index 2d7d2ac3..92ad3e94 100644 --- 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 diff --git a/base/tools/psb_cdalv.f90 b/base/tools/psb_cdalv.f90 index f847d992..2f740dc8 100644 --- 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