added dist_graph_comm to create the distributed graph

6 years ago · d92653ef98
parent f956959b1b
commit d92653ef98
1 changed files with 237 additions and 236 deletions
--- a/base/modules/desc/psb_desc_mod.F90
+++ b/base/modules/desc/psb_desc_mod.F90
@ -216,6 +216,7 @@ module psb_desc_mod
    integer(psb_ipk_), allocatable   :: lprm(:)
    type(psb_desc_type), pointer     :: base_desc => null()
    integer(psb_ipk_), allocatable   :: idx_space(:)
    integer(psb_mpk_), allocatable   :: dist_graph_comm
  contains
    procedure, pass(desc) :: is_ok           => psb_is_ok_desc
    procedure, pass(desc) :: is_valid        => psb_is_valid_desc