fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added dist_graph_comm to create the distributed graph

Browse Source
scr-persistent-collective
Soren Rasmussen 6 years ago
parent f956959b1b
commit d92653ef98
1 changed files with 237 additions and 236 deletions
Show Stats Download Patch File Download Diff File

3
base/modules/desc/psb_desc_mod.F90
Unescape Escape View File

@ -125,7 +125,7 @@ module psb_desc_mod
!| n_elements_recv index_v(p+n_elem_recv_) number of elements to receive. !| n_elements_recv index_v(p+n_elem_recv_) number of elements to receive.
!| elements_recv index_v(p+elem_recv_+i) indexes of local elements to !| elements_recv index_v(p+elem_recv_+i) indexes of local elements to
!| receive. these are stored in the !| receive. these are stored in the
!| array from location p+elem_recv_ to !| array from location p+elem_recv_ to
!| location p+elem_recv_+ !| location p+elem_recv_+
!| index_v(p+n_elem_recv_)-1. !| index_v(p+n_elem_recv_)-1.
!| n_elements_send index_v(p+n_elem_send_) number of elements to send. !| n_elements_send index_v(p+n_elem_send_) number of elements to send.
@ -216,6 +216,7 @@ module psb_desc_mod
integer(psb_ipk_), allocatable :: lprm(:) integer(psb_ipk_), allocatable :: lprm(:)
type(psb_desc_type), pointer :: base_desc => null() type(psb_desc_type), pointer :: base_desc => null()
integer(psb_ipk_), allocatable :: idx_space(:) integer(psb_ipk_), allocatable :: idx_space(:)
integer(psb_mpk_), allocatable :: dist_graph_comm
contains contains
procedure, pass(desc) :: is_ok => psb_is_ok_desc procedure, pass(desc) :: is_ok => psb_is_ok_desc
procedure, pass(desc) :: is_valid => psb_is_valid_desc procedure, pass(desc) :: is_valid => psb_is_valid_desc

Write Preview
Loading…
Cancel
Save