Fix descriptor init functions

This commit is contained in:
sfilippone
2025-04-14 18:07:24 +02:00
parent 35ccb15494
commit ffcf0806df
3 changed files with 3 additions and 0 deletions
+1
View File
@@ -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
+1
View File
@@ -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
+1
View File
@@ -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