diff --git a/base/internals/psi_graph_fnd_owner.F90 b/base/internals/psi_graph_fnd_owner.F90
index 966af403..e5eed8c6 100644
--- a/base/internals/psi_graph_fnd_owner.F90
+++ b/base/internals/psi_graph_fnd_owner.F90
@@ -41,6 +41,8 @@
 !                                       
 !    iprc(:)  - integer(psb_ipk_), allocatable   Output: process identifiers
 !                                                    for the corresponding indices
+!    ladj(:)  - integer(psb_ipk_), allocatable   Output: A list of adjacent processes
+!                                                    
 !    idxmap   - class(psb_indx_map).    The index map
 !    info     - integer.                return code.
 !
@@ -76,7 +78,7 @@
 !  thereby limiting the memory footprint to a predefined maximum
 !  (that the user can force with psb_cd_set_maxspace()).
 ! 
-subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info)
+subroutine psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info)
   use psb_serial_mod
   use psb_const_mod
   use psb_error_mod
@@ -93,13 +95,13 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info)
   include 'mpif.h'
 #endif
   integer(psb_lpk_), intent(in)      :: idx(:)
-  integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-  class(psb_indx_map), intent(inout) :: idxmap
-  integer(psb_ipk_), intent(out)     :: info
+  integer(psb_ipk_), allocatable, intent(out) ::  iprc(:), ladj(:)
+  class(psb_indx_map), intent(in) :: idxmap
+  integer(psb_ipk_), intent(out)  :: info
 
 
   integer(psb_lpk_), allocatable :: tidx(:)
-  integer(psb_ipk_), allocatable :: tprc(:), tsmpl(:), ladj(:)  
+  integer(psb_ipk_), allocatable :: tprc(:), tsmpl(:)
   integer(psb_mpk_) :: icomm, minfo
   integer(psb_ipk_) :: i,n_row,n_col,err_act,ip,j, nsampl_out,&
        & nv, n_answers, nqries, nsampl_in, locr_max, ist, iend,&
@@ -208,7 +210,7 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info)
     if (trace.and.(me == 0)) write(0,*) ' Initial sweep on user-defined topology',&
          & nsampl_in
     call psi_adj_fnd_sweep(idx,iprc,ladj,idxmap,nsampl_in,n_answers)  
-    call idxmap%xtnd_p_adjcncy(ladj) 
+
     nqries     = nv - n_answers
     nqries_max = nqries
     call psb_max(ctxt,nqries_max)
@@ -253,13 +255,12 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info)
     n_answers = n_answers + nlansw
     nqries    = nv - n_answers
     !
-    ! 3. Extract the resulting adjacency list and add it to the
-    !    indxmap;
+    ! 3. Extract the resulting adjacency list ? AND ADD IT TO THE EXISTING ONE ? 
     !
     ladj = tprc(1:nlansw)
     call psb_msort_unique(ladj,nadj)
     call psb_realloc(nadj,ladj,info)
-    call idxmap%xtnd_p_adjcncy(ladj) 
+    ! call idxmap%xtnd_p_adjcncy(ladj) 
     if (do_timings) call psb_toc(idx_loop_a2a)
     if (do_timings) call psb_tic(idx_loop_neigh)    
     !
@@ -368,7 +369,7 @@ contains
     integer(psb_ipk_), intent(in)    :: n_samples
     integer(psb_ipk_), intent(inout) :: iprc(:), n_answers
     integer(psb_ipk_), intent(in)    :: adj(:)
-    class(psb_indx_map), intent(inout) :: idxmap
+    class(psb_indx_map), intent(in)  :: idxmap
     !
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: ipnt, ns_in, ns_out, n_rem, me, np, isw, n_reml,iend, nv
diff --git a/base/internals/psi_indx_map_fnd_owner.F90 b/base/internals/psi_indx_map_fnd_owner.F90
index 0ecade3d..157b73a1 100644
--- a/base/internals/psi_indx_map_fnd_owner.F90
+++ b/base/internals/psi_indx_map_fnd_owner.F90
@@ -51,7 +51,7 @@
 !  2. Check if TEMPVG(:) is allocated, and use it; or
 !  3. Call the general method PSI_GRAPH_FND_OWNER. 
 ! 
-subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info)
+subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info,adj)
   use psb_serial_mod
   use psb_const_mod
   use psb_error_mod
@@ -66,15 +66,15 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info)
 #ifdef MPI_H
   include 'mpif.h'
 #endif
-  integer(psb_lpk_), intent(in)      :: idx(:)
+  integer(psb_lpk_), intent(in)    :: idx(:)
   integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-  class(psb_indx_map), intent(inout) :: idxmap
+  class(psb_indx_map), intent(in) :: idxmap
   integer(psb_ipk_), intent(out)     :: info
+  integer(psb_ipk_), optional, allocatable, intent(out) ::  adj(:)
 
-
-  integer(psb_ipk_), allocatable :: hhidx(:)
+  integer(psb_ipk_), allocatable :: hhidx(:), ladj(:) 
   integer(psb_mpk_) :: icomm, minfo
-  integer(psb_ipk_) :: i, err_act, hsize
+  integer(psb_ipk_) :: i, err_act, hsize, nadj
   integer(psb_lpk_) :: nv
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
@@ -131,7 +131,6 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info)
         iprc(i) = -1 
       end if
     end do
-
   else if (allocated(idxmap%tempvg)) then 
 !!$    write(0,*) me,trim(name),' indxmap%tempvg shortcut'
     ! Use temporary vector 
@@ -183,7 +182,7 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info)
             tidx(k2) = idx(k1)
           end if
         end do
-        call psi_graph_fnd_owner(tidx,tprc,idxmap,info)
+        call psi_graph_fnd_owner(tidx,tprc,ladj,idxmap,info)
         k2  = 0
         do k1 = 1, nv
           if (iprc(k1) < 0) then
@@ -198,12 +197,15 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info)
         end do
       end block
     else      
-      call psi_graph_fnd_owner(idx,iprc,idxmap,info)
+      call psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info)
     end if
-
-
+    
+  end if
+  if (present(adj)) then
+    adj = iprc
+    call psb_msort_unique(adj,nadj)
+    call psb_realloc(nadj,adj,info)
   end if
-  
   if (gettime) then 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
diff --git a/base/modules/desc/psb_gen_block_map_mod.F90 b/base/modules/desc/psb_gen_block_map_mod.F90
index 8daa038f..dfb47b61 100644
--- a/base/modules/desc/psb_gen_block_map_mod.F90
+++ b/base/modules/desc/psb_gen_block_map_mod.F90
@@ -1050,15 +1050,18 @@ contains
 
   end subroutine block_lg2lv2_ins
 
-  subroutine block_fnd_owner(idx,iprc,idxmap,info)
+  subroutine block_fnd_owner(idx,iprc,idxmap,info,adj)
     use psb_penv_mod
+    use psb_realloc_mod
+    use psb_sort_mod
     implicit none 
     integer(psb_lpk_), intent(in)           :: idx(:)
     integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-    class(psb_gen_block_map), intent(inout) :: idxmap
-    integer(psb_ipk_), intent(out)          :: info
+    class(psb_gen_block_map), intent(in) :: idxmap
+    integer(psb_ipk_), intent(out)       :: info
+    integer(psb_ipk_), optional, allocatable, intent(out) ::  adj(:)
     type(psb_ctxt_type) :: ctxt
-    integer(psb_ipk_) :: iam, np, nv, ip, i
+    integer(psb_ipk_) :: iam, np, nv, ip, i, nadj
     integer(psb_lpk_) :: tidx
     
     ctxt = idxmap%get_ctxt()
@@ -1073,7 +1076,11 @@ contains
       ip = gen_block_search(tidx-1,np+1,idxmap%vnl)
       iprc(i) = ip - 1
     end do
-
+    if (present(adj)) then 
+      adj = iprc
+      call psb_msort_unique(adj,nadj)
+      call psb_realloc(nadj,adj,info)
+    end if
   end subroutine block_fnd_owner
 
 
diff --git a/base/modules/desc/psb_glist_map_mod.f90 b/base/modules/desc/psb_glist_map_mod.f90
index c8ac8f99..4ddcdaca 100644
--- a/base/modules/desc/psb_glist_map_mod.f90
+++ b/base/modules/desc/psb_glist_map_mod.f90
@@ -150,16 +150,20 @@ contains
    
   end subroutine glist_initvg
 
-  subroutine glist_fnd_owner(idx,iprc,idxmap,info)
+  subroutine glist_fnd_owner(idx,iprc,idxmap,info,adj)
     use psb_penv_mod
     use psb_sort_mod
+    use psb_realloc_mod
     implicit none 
     integer(psb_lpk_), intent(in)       :: idx(:)
     integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-    class(psb_glist_map), intent(inout) :: idxmap
+    class(psb_glist_map), intent(in) :: idxmap
     integer(psb_ipk_), intent(out)      :: info
+    integer(psb_ipk_), optional, allocatable, intent(out) ::  adj(:)
+    
     type(psb_ctxt_type) :: ctxt
     integer(psb_mpk_)   :: iam, np
+    integer(psb_ipk_)   :: nadj
     integer(psb_lpk_)   :: nv, i, ngp
     
     ctxt = idxmap%get_ctxt()
@@ -180,6 +184,12 @@ contains
       end if
     end do
 
+    if (present(adj)) then 
+      adj = iprc
+      call psb_msort_unique(adj,nadj)
+      call psb_realloc(nadj,adj,info)
+    end if
+
   end subroutine glist_fnd_owner
 
   function glist_get_fmt() result(res)
diff --git a/base/modules/desc/psb_indx_map_mod.f90 b/base/modules/desc/psb_indx_map_mod.f90
index 79526d59..7753db23 100644
--- a/base/modules/desc/psb_indx_map_mod.f90
+++ b/base/modules/desc/psb_indx_map_mod.f90
@@ -268,13 +268,14 @@ module psb_indx_map_mod
   !!
 
   interface 
-    subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info)
+    subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info,adj)
       import :: psb_indx_map, psb_ipk_, psb_lpk_
       implicit none 
       integer(psb_lpk_), intent(in)      :: idx(:)
       integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-      class(psb_indx_map), intent(inout) :: idxmap
-      integer(psb_ipk_), intent(out)     :: info
+      class(psb_indx_map), intent(in) :: idxmap
+      integer(psb_ipk_), intent(out)  :: info
+      integer(psb_ipk_), optional, allocatable, intent(out) ::  adj(:)
     end subroutine psi_indx_map_fnd_owner
   end interface
 
@@ -303,13 +304,14 @@ module psb_indx_map_mod
   end interface
 
   interface 
-    subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info)
+    subroutine psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info)
       import :: psb_indx_map, psb_ipk_, psb_lpk_
       implicit none 
       integer(psb_lpk_), intent(in)      :: idx(:)
       integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-      class(psb_indx_map), intent(inout) :: idxmap
-      integer(psb_ipk_), intent(out)     :: info
+      integer(psb_ipk_), allocatable, intent(out) ::  ladj(:)
+      class(psb_indx_map), intent(in) :: idxmap
+      integer(psb_ipk_), intent(out)  :: info
     end subroutine psi_graph_fnd_owner
   end interface
 
@@ -1519,7 +1521,7 @@ contains
     use psb_error_mod
     use psb_realloc_mod
     implicit none 
-    class(psb_indx_map), intent(inout) :: idxmap
+    class(psb_indx_map), intent(in) :: idxmap
     integer(psb_ipk_), intent(in)  ::  xin
     integer(psb_ipk_), intent(out) ::  xout
     integer(psb_ipk_), intent(out)     :: info
@@ -1548,7 +1550,7 @@ contains
     use psb_error_mod
     use psb_realloc_mod
     implicit none 
-    class(psb_indx_map), intent(inout) :: idxmap
+    class(psb_indx_map), intent(in) :: idxmap
     integer(psb_ipk_), intent(in)  ::  xin(:)
     integer(psb_ipk_), intent(out) ::  xout(:)
     integer(psb_ipk_), intent(out)     :: info
@@ -1557,6 +1559,11 @@ contains
     nr = idxmap%local_rows
     nc = min(idxmap%local_cols, (nr+psb_size(idxmap%halo_owner)))
     sz = min(size(xin),size(xout))
+    if (.not.allocated(idxmap%halo_owner)) then
+      xout = -1
+      return
+    end if
+    
     do i = 1, sz
       xout(i) = -1          
       if ((nr<xin(i)).and.(xin(i) <= nc)) xout(i) = idxmap%halo_owner(xin(i)-nr)
diff --git a/base/modules/desc/psb_repl_map_mod.f90 b/base/modules/desc/psb_repl_map_mod.f90
index e0d352e2..fe51b7b1 100644
--- a/base/modules/desc/psb_repl_map_mod.f90
+++ b/base/modules/desc/psb_repl_map_mod.f90
@@ -696,13 +696,14 @@ contains
   end subroutine repl_g2lv2_ins
 
 
-  subroutine repl_fnd_owner(idx,iprc,idxmap,info)
+  subroutine repl_fnd_owner(idx,iprc,idxmap,info,adj)
     use psb_penv_mod
     implicit none 
     integer(psb_lpk_), intent(in)      :: idx(:)
     integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-    class(psb_repl_map), intent(inout) :: idxmap
-    integer(psb_ipk_), intent(out)     :: info
+    class(psb_repl_map), intent(in) :: idxmap
+    integer(psb_ipk_), intent(out)  :: info
+    integer(psb_ipk_), optional, allocatable, intent(out) ::  adj(:)
     integer(psb_ipk_)   :: nv
     type(psb_ctxt_type) :: ctxt
     integer(psb_mpk_)   :: iam, np
@@ -717,6 +718,9 @@ contains
       return
     end if
     iprc(1:nv) = iam 
+    if (present(adj)) then 
+      adj = (/ iam /) 
+    end if
 
   end subroutine repl_fnd_owner
 
diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90
index 879cec6c..cc29f049 100644
--- a/base/modules/psb_const_mod.F90
+++ b/base/modules/psb_const_mod.F90
@@ -136,10 +136,10 @@ module psb_const_mod
   !
   ! Version
   !
-  character(len=*), parameter    :: psb_version_string_ = "3.7.1"
+  character(len=*), parameter    :: psb_version_string_ = "3.8.0"
   integer(psb_ipk_), parameter   :: psb_version_major_  = 3
-  integer(psb_ipk_), parameter   :: psb_version_minor_  = 7
-  integer(psb_ipk_), parameter   :: psb_patchlevel_     = 1
+  integer(psb_ipk_), parameter   :: psb_version_minor_  = 8
+  integer(psb_ipk_), parameter   :: psb_patchlevel_     = 0
 
   !
   !     Handy & miscellaneous constants
@@ -204,6 +204,9 @@ module psb_const_mod
   integer(psb_ipk_), parameter :: psb_spmat_null_=0, psb_spmat_bld_=1
   integer(psb_ipk_), parameter :: psb_spmat_asb_=2, psb_spmat_upd_=4
 
+  integer(psb_ipk_), parameter :: psb_matbld_noremote_=0, psb_matbld_remote_=1
+
+  
   integer(psb_ipk_), parameter :: psb_ireg_flgs_=10, psb_ip2_=0
   integer(psb_ipk_), parameter :: psb_iflag_=2, psb_ichk_=3
   integer(psb_ipk_), parameter :: psb_nnzt_=4, psb_zero_=5,psb_ipc_=6
diff --git a/base/modules/serial/psb_c_mat_mod.F90 b/base/modules/serial/psb_c_mat_mod.F90
index 75699249..fd423de3 100644
--- a/base/modules/serial/psb_c_mat_mod.F90
+++ b/base/modules/serial/psb_c_mat_mod.F90
@@ -84,7 +84,9 @@ module psb_c_mat_mod
 
   type :: psb_cspmat_type
 
-    class(psb_c_base_sparse_mat), allocatable  :: a
+    class(psb_c_base_sparse_mat), allocatable  :: a   
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    type(psb_lc_coo_sparse_mat), allocatable  :: rmta
 
   contains
     ! Getters
@@ -109,6 +111,8 @@ module psb_c_mat_mod
     procedure, pass(a) :: is_repeatable_updates => psb_c_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_c_get_fmt
     procedure, pass(a) :: sizeof      => psb_c_sizeof
+    procedure, pass(a) :: is_remote_build => psb_c_is_remote_build
+    
 
     ! Setters
     procedure, pass(a) :: set_nrows    => psb_c_set_nrows
@@ -125,6 +129,7 @@ module psb_c_mat_mod
     procedure, pass(a) :: set_symmetric => psb_c_set_symmetric
     procedure, pass(a) :: set_unit     => psb_c_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_c_set_repeatable_updates
+    procedure, pass(a) :: set_remote_build => psb_c_set_remote_build
 
     ! Memory/data management
     procedure, pass(a) :: csall       => psb_c_csall
@@ -2292,7 +2297,25 @@ contains
 
   end function c_mat_is_sync
 
+  function psb_c_is_remote_build(a) result(res)
+    implicit none
+    class(psb_cspmat_type), intent(in) :: a
+    logical :: res
+    res = (a%remote_build == psb_matbld_remote_)
+  end function psb_c_is_remote_build
 
+  subroutine psb_c_set_remote_build(a,val)
+    implicit none
+    class(psb_cspmat_type), intent(inout) :: a
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      a%remote_build = val
+    else
+      a%remote_build = psb_matbld_remote_
+    end if
+  end subroutine psb_c_set_remote_build
+        
   function psb_c_is_repeatable_updates(a) result(res)
     implicit none
     class(psb_cspmat_type), intent(in) :: a
diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90
index ee6eef28..1a336d11 100644
--- a/base/modules/serial/psb_c_vect_mod.F90
+++ b/base/modules/serial/psb_c_vect_mod.F90
@@ -39,15 +39,27 @@
 !
 module psb_c_vect_mod
 
+  use psb_realloc_mod
   use psb_c_base_vect_mod
   use psb_i_vect_mod
 
   type psb_c_vect_type
     class(psb_c_base_vect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    complex(psb_spk_), allocatable :: rmtv(:)
+    integer(psb_lpk_), allocatable :: rmidx(:)
   contains
     procedure, pass(x) :: get_nrows => c_vect_get_nrows
     procedure, pass(x) :: sizeof   => c_vect_sizeof
     procedure, pass(x) :: get_fmt  => c_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => c_vect_is_remote_build
+    procedure, pass(x) :: set_remote_build => c_vect_set_remote_build
+    procedure, pass(x) :: get_dupl => c_vect_get_dupl
+    procedure, pass(x) :: set_dupl => c_vect_set_dupl 
+    procedure, pass(x) :: get_nrmv => c_vect_get_nrmv
+    procedure, pass(x) :: set_nrmv => c_vect_set_nrmv
     procedure, pass(x) :: all      => c_vect_all
     procedure, pass(x) :: reall    => c_vect_reall
     procedure, pass(x) :: zero     => c_vect_zero
@@ -145,7 +157,9 @@ module psb_c_vect_mod
        & c_vect_cnv, c_vect_set_scal, &
        & c_vect_set_vect, c_vect_clone, c_vect_sync, c_vect_is_host, &
        & c_vect_is_dev, c_vect_is_sync, c_vect_set_host, &
-       & c_vect_set_dev, c_vect_set_sync
+       & c_vect_set_dev, c_vect_set_sync, &
+       & c_vect_set_remote_build, c_is_remote_build, &
+       & c_vect_set_dupl, c_get_dupl, c_vect_set_nrmv, c_get_nrmv
 
   private ::  c_vect_dot_v, c_vect_dot_a, c_vect_axpby_v, c_vect_axpby_a, &
        & c_vect_mlt_v, c_vect_mlt_a, c_vect_mlt_a_2, c_vect_mlt_v_2, &
@@ -167,7 +181,60 @@ module psb_c_vect_mod
 
 contains
 
+  function c_vect_get_dupl(x) result(res)
+    implicit none
+    class(psb_c_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function c_vect_get_dupl
+
+  subroutine c_vect_set_dupl(x,val)
+    implicit none
+    class(psb_c_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine c_vect_set_dupl
+
+  function c_vect_get_nrmv(x) result(res)
+    implicit none
+    class(psb_c_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%nrmv
+  end function c_vect_get_nrmv
+
+  subroutine c_vect_set_nrmv(x,val)
+    implicit none
+    class(psb_c_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in) :: val
+
+    x%nrmv = val
+  end subroutine c_vect_set_nrmv
+        
+
+  function c_vect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_c_vect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function c_vect_is_remote_build
 
+  subroutine c_vect_set_remote_build(x,val)
+    implicit none
+    class(psb_c_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine c_vect_set_remote_build
+        
   subroutine  psb_c_set_vect_default(v)
     implicit none
     class(psb_c_base_vect_type), intent(in) :: v
@@ -365,8 +432,8 @@ contains
     implicit none
     integer(psb_ipk_), intent(in)           :: n
     class(psb_c_vect_type), intent(inout) :: x
-    class(psb_c_base_vect_type), intent(in), optional :: mold
     integer(psb_ipk_), intent(out)      :: info
+    class(psb_c_base_vect_type), intent(in), optional :: mold
 
     if (allocated(x%v)) &
          & call x%free(info)
@@ -381,7 +448,6 @@ contains
     else
       info = psb_err_alloc_dealloc_
     end if
-
   end subroutine c_vect_all
 
   subroutine c_vect_reall(n, x, info)
@@ -412,13 +478,13 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    integer(psb_ipk_), intent(in)              :: n
+    integer(psb_ipk_), intent(in)         :: n
     class(psb_c_vect_type), intent(inout) :: x
-    integer(psb_ipk_), intent(out)             :: info
-
-    if (allocated(x%v)) &
-         & call x%v%asb(n,info)
+    integer(psb_ipk_), intent(out)        :: info
 
+    if (allocated(x%v)) then
+      call x%v%asb(n,info)
+    end if
   end subroutine c_vect_asb
 
   subroutine c_vect_gthab(n,idx,alpha,x,beta,y)
@@ -469,44 +535,44 @@ contains
 
   end subroutine c_vect_free
 
-  subroutine c_vect_ins_a(n,irl,val,dupl,x,info)
+  subroutine c_vect_ins_a(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_c_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     complex(psb_spk_), intent(in)        :: val(:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine c_vect_ins_a
 
-  subroutine c_vect_ins_v(n,irl,val,dupl,x,info)
+  subroutine c_vect_ins_v(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_c_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     class(psb_i_vect_type), intent(inout)       :: irl
     class(psb_c_vect_type), intent(inout)       :: val
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl%v,val%v,dupl,info)
 
   end subroutine c_vect_ins_v
@@ -1184,7 +1250,6 @@ contains
 end module psb_c_vect_mod
 
 
-
 module psb_c_multivect_mod
 
   use psb_c_base_multivect_mod
@@ -1196,11 +1261,19 @@ module psb_c_multivect_mod
 
   type psb_c_multivect_type
     class(psb_c_base_multivect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    complex(psb_spk_), allocatable :: rmtv(:,:)
   contains
     procedure, pass(x) :: get_nrows => c_vect_get_nrows
     procedure, pass(x) :: get_ncols => c_vect_get_ncols
     procedure, pass(x) :: sizeof   => c_vect_sizeof
     procedure, pass(x) :: get_fmt  => c_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => c_mvect_is_remote_build
+    procedure, pass(x) :: set_remote_build => c_mvect_set_remote_build
+    procedure, pass(x) :: get_dupl => c_mvect_get_dupl
+    procedure, pass(x) :: set_dupl => c_mvect_set_dupl
 
     procedure, pass(x) :: all      => c_vect_all
     procedure, pass(x) :: reall    => c_vect_reall
@@ -1268,6 +1341,46 @@ module psb_c_multivect_mod
 
 contains
 
+  
+  function c_mvect_get_dupl(x) result(res)
+    implicit none
+    class(psb_c_multivect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function c_mvect_get_dupl
+
+  subroutine c_mvect_set_dupl(x,val)
+    implicit none
+    class(psb_c_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine c_mvect_set_dupl
+        
+
+  function c_mvect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_c_multivect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function c_mvect_is_remote_build
+
+  subroutine c_mvect_set_remote_build(x,val)
+    implicit none
+    class(psb_c_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine c_mvect_set_remote_build
+        
 
   subroutine  psb_c_set_multivect_default(v)
     implicit none
@@ -1572,23 +1685,23 @@ contains
 
   end subroutine c_vect_free
 
-  subroutine c_vect_ins(n,irl,val,dupl,x,info)
+  subroutine c_vect_ins(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_c_multivect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     complex(psb_spk_), intent(in)        :: val(:,:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine c_vect_ins
diff --git a/base/modules/serial/psb_d_mat_mod.F90 b/base/modules/serial/psb_d_mat_mod.F90
index ff51d1cb..8f967ce1 100644
--- a/base/modules/serial/psb_d_mat_mod.F90
+++ b/base/modules/serial/psb_d_mat_mod.F90
@@ -84,7 +84,9 @@ module psb_d_mat_mod
 
   type :: psb_dspmat_type
 
-    class(psb_d_base_sparse_mat), allocatable  :: a
+    class(psb_d_base_sparse_mat), allocatable  :: a   
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    type(psb_ld_coo_sparse_mat), allocatable  :: rmta
 
   contains
     ! Getters
@@ -109,6 +111,8 @@ module psb_d_mat_mod
     procedure, pass(a) :: is_repeatable_updates => psb_d_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_d_get_fmt
     procedure, pass(a) :: sizeof      => psb_d_sizeof
+    procedure, pass(a) :: is_remote_build => psb_d_is_remote_build
+    
 
     ! Setters
     procedure, pass(a) :: set_nrows    => psb_d_set_nrows
@@ -125,6 +129,7 @@ module psb_d_mat_mod
     procedure, pass(a) :: set_symmetric => psb_d_set_symmetric
     procedure, pass(a) :: set_unit     => psb_d_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_d_set_repeatable_updates
+    procedure, pass(a) :: set_remote_build => psb_d_set_remote_build
 
     ! Memory/data management
     procedure, pass(a) :: csall       => psb_d_csall
@@ -2292,7 +2297,25 @@ contains
 
   end function d_mat_is_sync
 
+  function psb_d_is_remote_build(a) result(res)
+    implicit none
+    class(psb_dspmat_type), intent(in) :: a
+    logical :: res
+    res = (a%remote_build == psb_matbld_remote_)
+  end function psb_d_is_remote_build
 
+  subroutine psb_d_set_remote_build(a,val)
+    implicit none
+    class(psb_dspmat_type), intent(inout) :: a
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      a%remote_build = val
+    else
+      a%remote_build = psb_matbld_remote_
+    end if
+  end subroutine psb_d_set_remote_build
+        
   function psb_d_is_repeatable_updates(a) result(res)
     implicit none
     class(psb_dspmat_type), intent(in) :: a
diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90
index c3cad97e..88fa3262 100644
--- a/base/modules/serial/psb_d_vect_mod.F90
+++ b/base/modules/serial/psb_d_vect_mod.F90
@@ -39,15 +39,27 @@
 !
 module psb_d_vect_mod
 
+  use psb_realloc_mod
   use psb_d_base_vect_mod
   use psb_i_vect_mod
 
   type psb_d_vect_type
     class(psb_d_base_vect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    real(psb_dpk_), allocatable :: rmtv(:)
+    integer(psb_lpk_), allocatable :: rmidx(:)
   contains
     procedure, pass(x) :: get_nrows => d_vect_get_nrows
     procedure, pass(x) :: sizeof   => d_vect_sizeof
     procedure, pass(x) :: get_fmt  => d_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => d_vect_is_remote_build
+    procedure, pass(x) :: set_remote_build => d_vect_set_remote_build
+    procedure, pass(x) :: get_dupl => d_vect_get_dupl
+    procedure, pass(x) :: set_dupl => d_vect_set_dupl 
+    procedure, pass(x) :: get_nrmv => d_vect_get_nrmv
+    procedure, pass(x) :: set_nrmv => d_vect_set_nrmv
     procedure, pass(x) :: all      => d_vect_all
     procedure, pass(x) :: reall    => d_vect_reall
     procedure, pass(x) :: zero     => d_vect_zero
@@ -152,7 +164,9 @@ module psb_d_vect_mod
        & d_vect_cnv, d_vect_set_scal, &
        & d_vect_set_vect, d_vect_clone, d_vect_sync, d_vect_is_host, &
        & d_vect_is_dev, d_vect_is_sync, d_vect_set_host, &
-       & d_vect_set_dev, d_vect_set_sync
+       & d_vect_set_dev, d_vect_set_sync, &
+       & d_vect_set_remote_build, d_is_remote_build, &
+       & d_vect_set_dupl, d_get_dupl, d_vect_set_nrmv, d_get_nrmv
 
   private ::  d_vect_dot_v, d_vect_dot_a, d_vect_axpby_v, d_vect_axpby_a, &
        & d_vect_mlt_v, d_vect_mlt_a, d_vect_mlt_a_2, d_vect_mlt_v_2, &
@@ -174,7 +188,60 @@ module psb_d_vect_mod
 
 contains
 
+  function d_vect_get_dupl(x) result(res)
+    implicit none
+    class(psb_d_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function d_vect_get_dupl
+
+  subroutine d_vect_set_dupl(x,val)
+    implicit none
+    class(psb_d_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine d_vect_set_dupl
+
+  function d_vect_get_nrmv(x) result(res)
+    implicit none
+    class(psb_d_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%nrmv
+  end function d_vect_get_nrmv
+
+  subroutine d_vect_set_nrmv(x,val)
+    implicit none
+    class(psb_d_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in) :: val
+
+    x%nrmv = val
+  end subroutine d_vect_set_nrmv
+        
+
+  function d_vect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_d_vect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function d_vect_is_remote_build
 
+  subroutine d_vect_set_remote_build(x,val)
+    implicit none
+    class(psb_d_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine d_vect_set_remote_build
+        
   subroutine  psb_d_set_vect_default(v)
     implicit none
     class(psb_d_base_vect_type), intent(in) :: v
@@ -372,8 +439,8 @@ contains
     implicit none
     integer(psb_ipk_), intent(in)           :: n
     class(psb_d_vect_type), intent(inout) :: x
-    class(psb_d_base_vect_type), intent(in), optional :: mold
     integer(psb_ipk_), intent(out)      :: info
+    class(psb_d_base_vect_type), intent(in), optional :: mold
 
     if (allocated(x%v)) &
          & call x%free(info)
@@ -388,7 +455,6 @@ contains
     else
       info = psb_err_alloc_dealloc_
     end if
-
   end subroutine d_vect_all
 
   subroutine d_vect_reall(n, x, info)
@@ -419,13 +485,13 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    integer(psb_ipk_), intent(in)              :: n
+    integer(psb_ipk_), intent(in)         :: n
     class(psb_d_vect_type), intent(inout) :: x
-    integer(psb_ipk_), intent(out)             :: info
-
-    if (allocated(x%v)) &
-         & call x%v%asb(n,info)
+    integer(psb_ipk_), intent(out)        :: info
 
+    if (allocated(x%v)) then
+      call x%v%asb(n,info)
+    end if
   end subroutine d_vect_asb
 
   subroutine d_vect_gthab(n,idx,alpha,x,beta,y)
@@ -476,44 +542,44 @@ contains
 
   end subroutine d_vect_free
 
-  subroutine d_vect_ins_a(n,irl,val,dupl,x,info)
+  subroutine d_vect_ins_a(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_d_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     real(psb_dpk_), intent(in)        :: val(:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine d_vect_ins_a
 
-  subroutine d_vect_ins_v(n,irl,val,dupl,x,info)
+  subroutine d_vect_ins_v(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_d_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     class(psb_i_vect_type), intent(inout)       :: irl
     class(psb_d_vect_type), intent(inout)       :: val
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl%v,val%v,dupl,info)
 
   end subroutine d_vect_ins_v
@@ -1263,7 +1329,6 @@ contains
 end module psb_d_vect_mod
 
 
-
 module psb_d_multivect_mod
 
   use psb_d_base_multivect_mod
@@ -1275,11 +1340,19 @@ module psb_d_multivect_mod
 
   type psb_d_multivect_type
     class(psb_d_base_multivect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    real(psb_dpk_), allocatable :: rmtv(:,:)
   contains
     procedure, pass(x) :: get_nrows => d_vect_get_nrows
     procedure, pass(x) :: get_ncols => d_vect_get_ncols
     procedure, pass(x) :: sizeof   => d_vect_sizeof
     procedure, pass(x) :: get_fmt  => d_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => d_mvect_is_remote_build
+    procedure, pass(x) :: set_remote_build => d_mvect_set_remote_build
+    procedure, pass(x) :: get_dupl => d_mvect_get_dupl
+    procedure, pass(x) :: set_dupl => d_mvect_set_dupl
 
     procedure, pass(x) :: all      => d_vect_all
     procedure, pass(x) :: reall    => d_vect_reall
@@ -1347,6 +1420,46 @@ module psb_d_multivect_mod
 
 contains
 
+  
+  function d_mvect_get_dupl(x) result(res)
+    implicit none
+    class(psb_d_multivect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function d_mvect_get_dupl
+
+  subroutine d_mvect_set_dupl(x,val)
+    implicit none
+    class(psb_d_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine d_mvect_set_dupl
+        
+
+  function d_mvect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_d_multivect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function d_mvect_is_remote_build
+
+  subroutine d_mvect_set_remote_build(x,val)
+    implicit none
+    class(psb_d_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine d_mvect_set_remote_build
+        
 
   subroutine  psb_d_set_multivect_default(v)
     implicit none
@@ -1651,23 +1764,23 @@ contains
 
   end subroutine d_vect_free
 
-  subroutine d_vect_ins(n,irl,val,dupl,x,info)
+  subroutine d_vect_ins(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_d_multivect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     real(psb_dpk_), intent(in)        :: val(:,:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine d_vect_ins
diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90
index 369aca6d..ab371bd5 100644
--- a/base/modules/serial/psb_i_vect_mod.F90
+++ b/base/modules/serial/psb_i_vect_mod.F90
@@ -39,14 +39,26 @@
 !
 module psb_i_vect_mod
 
+  use psb_realloc_mod
   use psb_i_base_vect_mod
 
   type psb_i_vect_type
     class(psb_i_base_vect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    integer(psb_ipk_), allocatable :: rmtv(:)
+    integer(psb_lpk_), allocatable :: rmidx(:)
   contains
     procedure, pass(x) :: get_nrows => i_vect_get_nrows
     procedure, pass(x) :: sizeof   => i_vect_sizeof
     procedure, pass(x) :: get_fmt  => i_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => i_vect_is_remote_build
+    procedure, pass(x) :: set_remote_build => i_vect_set_remote_build
+    procedure, pass(x) :: get_dupl => i_vect_get_dupl
+    procedure, pass(x) :: set_dupl => i_vect_set_dupl 
+    procedure, pass(x) :: get_nrmv => i_vect_get_nrmv
+    procedure, pass(x) :: set_nrmv => i_vect_set_nrmv
     procedure, pass(x) :: all      => i_vect_all
     procedure, pass(x) :: reall    => i_vect_reall
     procedure, pass(x) :: zero     => i_vect_zero
@@ -97,7 +109,9 @@ module psb_i_vect_mod
        & i_vect_cnv, i_vect_set_scal, &
        & i_vect_set_vect, i_vect_clone, i_vect_sync, i_vect_is_host, &
        & i_vect_is_dev, i_vect_is_sync, i_vect_set_host, &
-       & i_vect_set_dev, i_vect_set_sync
+       & i_vect_set_dev, i_vect_set_sync, &
+       & i_vect_set_remote_build, i_is_remote_build, &
+       & i_vect_set_dupl, i_get_dupl, i_vect_set_nrmv, i_get_nrmv
 
 
   class(psb_i_base_vect_type), allocatable, target,&
@@ -114,7 +128,60 @@ module psb_i_vect_mod
 
 contains
 
+  function i_vect_get_dupl(x) result(res)
+    implicit none
+    class(psb_i_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function i_vect_get_dupl
+
+  subroutine i_vect_set_dupl(x,val)
+    implicit none
+    class(psb_i_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine i_vect_set_dupl
+
+  function i_vect_get_nrmv(x) result(res)
+    implicit none
+    class(psb_i_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%nrmv
+  end function i_vect_get_nrmv
+
+  subroutine i_vect_set_nrmv(x,val)
+    implicit none
+    class(psb_i_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in) :: val
+
+    x%nrmv = val
+  end subroutine i_vect_set_nrmv
+        
+
+  function i_vect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_i_vect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function i_vect_is_remote_build
 
+  subroutine i_vect_set_remote_build(x,val)
+    implicit none
+    class(psb_i_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine i_vect_set_remote_build
+        
   subroutine  psb_i_set_vect_default(v)
     implicit none
     class(psb_i_base_vect_type), intent(in) :: v
@@ -312,8 +379,8 @@ contains
     implicit none
     integer(psb_ipk_), intent(in)           :: n
     class(psb_i_vect_type), intent(inout) :: x
-    class(psb_i_base_vect_type), intent(in), optional :: mold
     integer(psb_ipk_), intent(out)      :: info
+    class(psb_i_base_vect_type), intent(in), optional :: mold
 
     if (allocated(x%v)) &
          & call x%free(info)
@@ -328,7 +395,6 @@ contains
     else
       info = psb_err_alloc_dealloc_
     end if
-
   end subroutine i_vect_all
 
   subroutine i_vect_reall(n, x, info)
@@ -359,13 +425,13 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    integer(psb_ipk_), intent(in)              :: n
+    integer(psb_ipk_), intent(in)         :: n
     class(psb_i_vect_type), intent(inout) :: x
-    integer(psb_ipk_), intent(out)             :: info
-
-    if (allocated(x%v)) &
-         & call x%v%asb(n,info)
+    integer(psb_ipk_), intent(out)        :: info
 
+    if (allocated(x%v)) then
+      call x%v%asb(n,info)
+    end if
   end subroutine i_vect_asb
 
   subroutine i_vect_gthab(n,idx,alpha,x,beta,y)
@@ -416,44 +482,44 @@ contains
 
   end subroutine i_vect_free
 
-  subroutine i_vect_ins_a(n,irl,val,dupl,x,info)
+  subroutine i_vect_ins_a(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_i_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     integer(psb_ipk_), intent(in)        :: val(:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine i_vect_ins_a
 
-  subroutine i_vect_ins_v(n,irl,val,dupl,x,info)
+  subroutine i_vect_ins_v(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_i_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     class(psb_i_vect_type), intent(inout)       :: irl
     class(psb_i_vect_type), intent(inout)       :: val
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl%v,val%v,dupl,info)
 
   end subroutine i_vect_ins_v
@@ -559,7 +625,6 @@ contains
 end module psb_i_vect_mod
 
 
-
 module psb_i_multivect_mod
 
   use psb_i_base_multivect_mod
@@ -571,11 +636,19 @@ module psb_i_multivect_mod
 
   type psb_i_multivect_type
     class(psb_i_base_multivect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    integer(psb_ipk_), allocatable :: rmtv(:,:)
   contains
     procedure, pass(x) :: get_nrows => i_vect_get_nrows
     procedure, pass(x) :: get_ncols => i_vect_get_ncols
     procedure, pass(x) :: sizeof   => i_vect_sizeof
     procedure, pass(x) :: get_fmt  => i_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => i_mvect_is_remote_build
+    procedure, pass(x) :: set_remote_build => i_mvect_set_remote_build
+    procedure, pass(x) :: get_dupl => i_mvect_get_dupl
+    procedure, pass(x) :: set_dupl => i_mvect_set_dupl
 
     procedure, pass(x) :: all      => i_vect_all
     procedure, pass(x) :: reall    => i_vect_reall
@@ -625,6 +698,46 @@ module psb_i_multivect_mod
 
 contains
 
+  
+  function i_mvect_get_dupl(x) result(res)
+    implicit none
+    class(psb_i_multivect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function i_mvect_get_dupl
+
+  subroutine i_mvect_set_dupl(x,val)
+    implicit none
+    class(psb_i_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine i_mvect_set_dupl
+        
+
+  function i_mvect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_i_multivect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function i_mvect_is_remote_build
+
+  subroutine i_mvect_set_remote_build(x,val)
+    implicit none
+    class(psb_i_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine i_mvect_set_remote_build
+        
 
   subroutine  psb_i_set_multivect_default(v)
     implicit none
@@ -929,23 +1042,23 @@ contains
 
   end subroutine i_vect_free
 
-  subroutine i_vect_ins(n,irl,val,dupl,x,info)
+  subroutine i_vect_ins(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_i_multivect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     integer(psb_ipk_), intent(in)        :: val(:,:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine i_vect_ins
diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90
index 0c36df14..779d4723 100644
--- a/base/modules/serial/psb_l_vect_mod.F90
+++ b/base/modules/serial/psb_l_vect_mod.F90
@@ -39,15 +39,27 @@
 !
 module psb_l_vect_mod
 
+  use psb_realloc_mod
   use psb_l_base_vect_mod
   use psb_i_vect_mod
 
   type psb_l_vect_type
     class(psb_l_base_vect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    integer(psb_lpk_), allocatable :: rmtv(:)
+    integer(psb_lpk_), allocatable :: rmidx(:)
   contains
     procedure, pass(x) :: get_nrows => l_vect_get_nrows
     procedure, pass(x) :: sizeof   => l_vect_sizeof
     procedure, pass(x) :: get_fmt  => l_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => l_vect_is_remote_build
+    procedure, pass(x) :: set_remote_build => l_vect_set_remote_build
+    procedure, pass(x) :: get_dupl => l_vect_get_dupl
+    procedure, pass(x) :: set_dupl => l_vect_set_dupl 
+    procedure, pass(x) :: get_nrmv => l_vect_get_nrmv
+    procedure, pass(x) :: set_nrmv => l_vect_set_nrmv
     procedure, pass(x) :: all      => l_vect_all
     procedure, pass(x) :: reall    => l_vect_reall
     procedure, pass(x) :: zero     => l_vect_zero
@@ -98,7 +110,9 @@ module psb_l_vect_mod
        & l_vect_cnv, l_vect_set_scal, &
        & l_vect_set_vect, l_vect_clone, l_vect_sync, l_vect_is_host, &
        & l_vect_is_dev, l_vect_is_sync, l_vect_set_host, &
-       & l_vect_set_dev, l_vect_set_sync
+       & l_vect_set_dev, l_vect_set_sync, &
+       & l_vect_set_remote_build, l_is_remote_build, &
+       & l_vect_set_dupl, l_get_dupl, l_vect_set_nrmv, l_get_nrmv
 
 
   class(psb_l_base_vect_type), allocatable, target,&
@@ -115,7 +129,60 @@ module psb_l_vect_mod
 
 contains
 
+  function l_vect_get_dupl(x) result(res)
+    implicit none
+    class(psb_l_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function l_vect_get_dupl
+
+  subroutine l_vect_set_dupl(x,val)
+    implicit none
+    class(psb_l_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine l_vect_set_dupl
+
+  function l_vect_get_nrmv(x) result(res)
+    implicit none
+    class(psb_l_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%nrmv
+  end function l_vect_get_nrmv
+
+  subroutine l_vect_set_nrmv(x,val)
+    implicit none
+    class(psb_l_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in) :: val
+
+    x%nrmv = val
+  end subroutine l_vect_set_nrmv
+        
+
+  function l_vect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_l_vect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function l_vect_is_remote_build
 
+  subroutine l_vect_set_remote_build(x,val)
+    implicit none
+    class(psb_l_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine l_vect_set_remote_build
+        
   subroutine  psb_l_set_vect_default(v)
     implicit none
     class(psb_l_base_vect_type), intent(in) :: v
@@ -313,8 +380,8 @@ contains
     implicit none
     integer(psb_ipk_), intent(in)           :: n
     class(psb_l_vect_type), intent(inout) :: x
-    class(psb_l_base_vect_type), intent(in), optional :: mold
     integer(psb_ipk_), intent(out)      :: info
+    class(psb_l_base_vect_type), intent(in), optional :: mold
 
     if (allocated(x%v)) &
          & call x%free(info)
@@ -329,7 +396,6 @@ contains
     else
       info = psb_err_alloc_dealloc_
     end if
-
   end subroutine l_vect_all
 
   subroutine l_vect_reall(n, x, info)
@@ -360,13 +426,13 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    integer(psb_ipk_), intent(in)              :: n
+    integer(psb_ipk_), intent(in)         :: n
     class(psb_l_vect_type), intent(inout) :: x
-    integer(psb_ipk_), intent(out)             :: info
-
-    if (allocated(x%v)) &
-         & call x%v%asb(n,info)
+    integer(psb_ipk_), intent(out)        :: info
 
+    if (allocated(x%v)) then
+      call x%v%asb(n,info)
+    end if
   end subroutine l_vect_asb
 
   subroutine l_vect_gthab(n,idx,alpha,x,beta,y)
@@ -417,44 +483,44 @@ contains
 
   end subroutine l_vect_free
 
-  subroutine l_vect_ins_a(n,irl,val,dupl,x,info)
+  subroutine l_vect_ins_a(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_l_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     integer(psb_lpk_), intent(in)        :: val(:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine l_vect_ins_a
 
-  subroutine l_vect_ins_v(n,irl,val,dupl,x,info)
+  subroutine l_vect_ins_v(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_l_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     class(psb_i_vect_type), intent(inout)       :: irl
     class(psb_l_vect_type), intent(inout)       :: val
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl%v,val%v,dupl,info)
 
   end subroutine l_vect_ins_v
@@ -560,7 +626,6 @@ contains
 end module psb_l_vect_mod
 
 
-
 module psb_l_multivect_mod
 
   use psb_l_base_multivect_mod
@@ -572,11 +637,19 @@ module psb_l_multivect_mod
 
   type psb_l_multivect_type
     class(psb_l_base_multivect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    integer(psb_lpk_), allocatable :: rmtv(:,:)
   contains
     procedure, pass(x) :: get_nrows => l_vect_get_nrows
     procedure, pass(x) :: get_ncols => l_vect_get_ncols
     procedure, pass(x) :: sizeof   => l_vect_sizeof
     procedure, pass(x) :: get_fmt  => l_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => l_mvect_is_remote_build
+    procedure, pass(x) :: set_remote_build => l_mvect_set_remote_build
+    procedure, pass(x) :: get_dupl => l_mvect_get_dupl
+    procedure, pass(x) :: set_dupl => l_mvect_set_dupl
 
     procedure, pass(x) :: all      => l_vect_all
     procedure, pass(x) :: reall    => l_vect_reall
@@ -626,6 +699,46 @@ module psb_l_multivect_mod
 
 contains
 
+  
+  function l_mvect_get_dupl(x) result(res)
+    implicit none
+    class(psb_l_multivect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function l_mvect_get_dupl
+
+  subroutine l_mvect_set_dupl(x,val)
+    implicit none
+    class(psb_l_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine l_mvect_set_dupl
+        
+
+  function l_mvect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_l_multivect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function l_mvect_is_remote_build
+
+  subroutine l_mvect_set_remote_build(x,val)
+    implicit none
+    class(psb_l_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine l_mvect_set_remote_build
+        
 
   subroutine  psb_l_set_multivect_default(v)
     implicit none
@@ -930,23 +1043,23 @@ contains
 
   end subroutine l_vect_free
 
-  subroutine l_vect_ins(n,irl,val,dupl,x,info)
+  subroutine l_vect_ins(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_l_multivect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     integer(psb_lpk_), intent(in)        :: val(:,:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine l_vect_ins
diff --git a/base/modules/serial/psb_s_mat_mod.F90 b/base/modules/serial/psb_s_mat_mod.F90
index 849c64c3..43f1c619 100644
--- a/base/modules/serial/psb_s_mat_mod.F90
+++ b/base/modules/serial/psb_s_mat_mod.F90
@@ -84,7 +84,9 @@ module psb_s_mat_mod
 
   type :: psb_sspmat_type
 
-    class(psb_s_base_sparse_mat), allocatable  :: a
+    class(psb_s_base_sparse_mat), allocatable  :: a   
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    type(psb_ls_coo_sparse_mat), allocatable  :: rmta
 
   contains
     ! Getters
@@ -109,6 +111,8 @@ module psb_s_mat_mod
     procedure, pass(a) :: is_repeatable_updates => psb_s_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_s_get_fmt
     procedure, pass(a) :: sizeof      => psb_s_sizeof
+    procedure, pass(a) :: is_remote_build => psb_s_is_remote_build
+    
 
     ! Setters
     procedure, pass(a) :: set_nrows    => psb_s_set_nrows
@@ -125,6 +129,7 @@ module psb_s_mat_mod
     procedure, pass(a) :: set_symmetric => psb_s_set_symmetric
     procedure, pass(a) :: set_unit     => psb_s_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_s_set_repeatable_updates
+    procedure, pass(a) :: set_remote_build => psb_s_set_remote_build
 
     ! Memory/data management
     procedure, pass(a) :: csall       => psb_s_csall
@@ -2292,7 +2297,25 @@ contains
 
   end function s_mat_is_sync
 
+  function psb_s_is_remote_build(a) result(res)
+    implicit none
+    class(psb_sspmat_type), intent(in) :: a
+    logical :: res
+    res = (a%remote_build == psb_matbld_remote_)
+  end function psb_s_is_remote_build
 
+  subroutine psb_s_set_remote_build(a,val)
+    implicit none
+    class(psb_sspmat_type), intent(inout) :: a
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      a%remote_build = val
+    else
+      a%remote_build = psb_matbld_remote_
+    end if
+  end subroutine psb_s_set_remote_build
+        
   function psb_s_is_repeatable_updates(a) result(res)
     implicit none
     class(psb_sspmat_type), intent(in) :: a
diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90
index 8da759fc..7a54ecf0 100644
--- a/base/modules/serial/psb_s_vect_mod.F90
+++ b/base/modules/serial/psb_s_vect_mod.F90
@@ -39,15 +39,27 @@
 !
 module psb_s_vect_mod
 
+  use psb_realloc_mod
   use psb_s_base_vect_mod
   use psb_i_vect_mod
 
   type psb_s_vect_type
     class(psb_s_base_vect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    real(psb_spk_), allocatable :: rmtv(:)
+    integer(psb_lpk_), allocatable :: rmidx(:)
   contains
     procedure, pass(x) :: get_nrows => s_vect_get_nrows
     procedure, pass(x) :: sizeof   => s_vect_sizeof
     procedure, pass(x) :: get_fmt  => s_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => s_vect_is_remote_build
+    procedure, pass(x) :: set_remote_build => s_vect_set_remote_build
+    procedure, pass(x) :: get_dupl => s_vect_get_dupl
+    procedure, pass(x) :: set_dupl => s_vect_set_dupl 
+    procedure, pass(x) :: get_nrmv => s_vect_get_nrmv
+    procedure, pass(x) :: set_nrmv => s_vect_set_nrmv
     procedure, pass(x) :: all      => s_vect_all
     procedure, pass(x) :: reall    => s_vect_reall
     procedure, pass(x) :: zero     => s_vect_zero
@@ -152,7 +164,9 @@ module psb_s_vect_mod
        & s_vect_cnv, s_vect_set_scal, &
        & s_vect_set_vect, s_vect_clone, s_vect_sync, s_vect_is_host, &
        & s_vect_is_dev, s_vect_is_sync, s_vect_set_host, &
-       & s_vect_set_dev, s_vect_set_sync
+       & s_vect_set_dev, s_vect_set_sync, &
+       & s_vect_set_remote_build, s_is_remote_build, &
+       & s_vect_set_dupl, s_get_dupl, s_vect_set_nrmv, s_get_nrmv
 
   private ::  s_vect_dot_v, s_vect_dot_a, s_vect_axpby_v, s_vect_axpby_a, &
        & s_vect_mlt_v, s_vect_mlt_a, s_vect_mlt_a_2, s_vect_mlt_v_2, &
@@ -174,7 +188,60 @@ module psb_s_vect_mod
 
 contains
 
+  function s_vect_get_dupl(x) result(res)
+    implicit none
+    class(psb_s_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function s_vect_get_dupl
+
+  subroutine s_vect_set_dupl(x,val)
+    implicit none
+    class(psb_s_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine s_vect_set_dupl
+
+  function s_vect_get_nrmv(x) result(res)
+    implicit none
+    class(psb_s_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%nrmv
+  end function s_vect_get_nrmv
+
+  subroutine s_vect_set_nrmv(x,val)
+    implicit none
+    class(psb_s_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in) :: val
+
+    x%nrmv = val
+  end subroutine s_vect_set_nrmv
+        
+
+  function s_vect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_s_vect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function s_vect_is_remote_build
 
+  subroutine s_vect_set_remote_build(x,val)
+    implicit none
+    class(psb_s_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine s_vect_set_remote_build
+        
   subroutine  psb_s_set_vect_default(v)
     implicit none
     class(psb_s_base_vect_type), intent(in) :: v
@@ -372,8 +439,8 @@ contains
     implicit none
     integer(psb_ipk_), intent(in)           :: n
     class(psb_s_vect_type), intent(inout) :: x
-    class(psb_s_base_vect_type), intent(in), optional :: mold
     integer(psb_ipk_), intent(out)      :: info
+    class(psb_s_base_vect_type), intent(in), optional :: mold
 
     if (allocated(x%v)) &
          & call x%free(info)
@@ -388,7 +455,6 @@ contains
     else
       info = psb_err_alloc_dealloc_
     end if
-
   end subroutine s_vect_all
 
   subroutine s_vect_reall(n, x, info)
@@ -419,13 +485,13 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    integer(psb_ipk_), intent(in)              :: n
+    integer(psb_ipk_), intent(in)         :: n
     class(psb_s_vect_type), intent(inout) :: x
-    integer(psb_ipk_), intent(out)             :: info
-
-    if (allocated(x%v)) &
-         & call x%v%asb(n,info)
+    integer(psb_ipk_), intent(out)        :: info
 
+    if (allocated(x%v)) then
+      call x%v%asb(n,info)
+    end if
   end subroutine s_vect_asb
 
   subroutine s_vect_gthab(n,idx,alpha,x,beta,y)
@@ -476,44 +542,44 @@ contains
 
   end subroutine s_vect_free
 
-  subroutine s_vect_ins_a(n,irl,val,dupl,x,info)
+  subroutine s_vect_ins_a(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_s_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     real(psb_spk_), intent(in)        :: val(:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine s_vect_ins_a
 
-  subroutine s_vect_ins_v(n,irl,val,dupl,x,info)
+  subroutine s_vect_ins_v(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_s_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     class(psb_i_vect_type), intent(inout)       :: irl
     class(psb_s_vect_type), intent(inout)       :: val
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl%v,val%v,dupl,info)
 
   end subroutine s_vect_ins_v
@@ -1263,7 +1329,6 @@ contains
 end module psb_s_vect_mod
 
 
-
 module psb_s_multivect_mod
 
   use psb_s_base_multivect_mod
@@ -1275,11 +1340,19 @@ module psb_s_multivect_mod
 
   type psb_s_multivect_type
     class(psb_s_base_multivect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    real(psb_spk_), allocatable :: rmtv(:,:)
   contains
     procedure, pass(x) :: get_nrows => s_vect_get_nrows
     procedure, pass(x) :: get_ncols => s_vect_get_ncols
     procedure, pass(x) :: sizeof   => s_vect_sizeof
     procedure, pass(x) :: get_fmt  => s_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => s_mvect_is_remote_build
+    procedure, pass(x) :: set_remote_build => s_mvect_set_remote_build
+    procedure, pass(x) :: get_dupl => s_mvect_get_dupl
+    procedure, pass(x) :: set_dupl => s_mvect_set_dupl
 
     procedure, pass(x) :: all      => s_vect_all
     procedure, pass(x) :: reall    => s_vect_reall
@@ -1347,6 +1420,46 @@ module psb_s_multivect_mod
 
 contains
 
+  
+  function s_mvect_get_dupl(x) result(res)
+    implicit none
+    class(psb_s_multivect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function s_mvect_get_dupl
+
+  subroutine s_mvect_set_dupl(x,val)
+    implicit none
+    class(psb_s_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine s_mvect_set_dupl
+        
+
+  function s_mvect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_s_multivect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function s_mvect_is_remote_build
+
+  subroutine s_mvect_set_remote_build(x,val)
+    implicit none
+    class(psb_s_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine s_mvect_set_remote_build
+        
 
   subroutine  psb_s_set_multivect_default(v)
     implicit none
@@ -1651,23 +1764,23 @@ contains
 
   end subroutine s_vect_free
 
-  subroutine s_vect_ins(n,irl,val,dupl,x,info)
+  subroutine s_vect_ins(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_s_multivect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     real(psb_spk_), intent(in)        :: val(:,:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine s_vect_ins
diff --git a/base/modules/serial/psb_z_mat_mod.F90 b/base/modules/serial/psb_z_mat_mod.F90
index fc16ca80..c534cad5 100644
--- a/base/modules/serial/psb_z_mat_mod.F90
+++ b/base/modules/serial/psb_z_mat_mod.F90
@@ -84,7 +84,9 @@ module psb_z_mat_mod
 
   type :: psb_zspmat_type
 
-    class(psb_z_base_sparse_mat), allocatable  :: a
+    class(psb_z_base_sparse_mat), allocatable  :: a   
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    type(psb_lz_coo_sparse_mat), allocatable  :: rmta
 
   contains
     ! Getters
@@ -109,6 +111,8 @@ module psb_z_mat_mod
     procedure, pass(a) :: is_repeatable_updates => psb_z_is_repeatable_updates
     procedure, pass(a) :: get_fmt     => psb_z_get_fmt
     procedure, pass(a) :: sizeof      => psb_z_sizeof
+    procedure, pass(a) :: is_remote_build => psb_z_is_remote_build
+    
 
     ! Setters
     procedure, pass(a) :: set_nrows    => psb_z_set_nrows
@@ -125,6 +129,7 @@ module psb_z_mat_mod
     procedure, pass(a) :: set_symmetric => psb_z_set_symmetric
     procedure, pass(a) :: set_unit     => psb_z_set_unit
     procedure, pass(a) :: set_repeatable_updates => psb_z_set_repeatable_updates
+    procedure, pass(a) :: set_remote_build => psb_z_set_remote_build
 
     ! Memory/data management
     procedure, pass(a) :: csall       => psb_z_csall
@@ -2292,7 +2297,25 @@ contains
 
   end function z_mat_is_sync
 
+  function psb_z_is_remote_build(a) result(res)
+    implicit none
+    class(psb_zspmat_type), intent(in) :: a
+    logical :: res
+    res = (a%remote_build == psb_matbld_remote_)
+  end function psb_z_is_remote_build
 
+  subroutine psb_z_set_remote_build(a,val)
+    implicit none
+    class(psb_zspmat_type), intent(inout) :: a
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      a%remote_build = val
+    else
+      a%remote_build = psb_matbld_remote_
+    end if
+  end subroutine psb_z_set_remote_build
+        
   function psb_z_is_repeatable_updates(a) result(res)
     implicit none
     class(psb_zspmat_type), intent(in) :: a
diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90
index 35327ace..e8a34859 100644
--- a/base/modules/serial/psb_z_vect_mod.F90
+++ b/base/modules/serial/psb_z_vect_mod.F90
@@ -39,15 +39,27 @@
 !
 module psb_z_vect_mod
 
+  use psb_realloc_mod
   use psb_z_base_vect_mod
   use psb_i_vect_mod
 
   type psb_z_vect_type
     class(psb_z_base_vect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    complex(psb_dpk_), allocatable :: rmtv(:)
+    integer(psb_lpk_), allocatable :: rmidx(:)
   contains
     procedure, pass(x) :: get_nrows => z_vect_get_nrows
     procedure, pass(x) :: sizeof   => z_vect_sizeof
     procedure, pass(x) :: get_fmt  => z_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => z_vect_is_remote_build
+    procedure, pass(x) :: set_remote_build => z_vect_set_remote_build
+    procedure, pass(x) :: get_dupl => z_vect_get_dupl
+    procedure, pass(x) :: set_dupl => z_vect_set_dupl 
+    procedure, pass(x) :: get_nrmv => z_vect_get_nrmv
+    procedure, pass(x) :: set_nrmv => z_vect_set_nrmv
     procedure, pass(x) :: all      => z_vect_all
     procedure, pass(x) :: reall    => z_vect_reall
     procedure, pass(x) :: zero     => z_vect_zero
@@ -145,7 +157,9 @@ module psb_z_vect_mod
        & z_vect_cnv, z_vect_set_scal, &
        & z_vect_set_vect, z_vect_clone, z_vect_sync, z_vect_is_host, &
        & z_vect_is_dev, z_vect_is_sync, z_vect_set_host, &
-       & z_vect_set_dev, z_vect_set_sync
+       & z_vect_set_dev, z_vect_set_sync, &
+       & z_vect_set_remote_build, z_is_remote_build, &
+       & z_vect_set_dupl, z_get_dupl, z_vect_set_nrmv, z_get_nrmv
 
   private ::  z_vect_dot_v, z_vect_dot_a, z_vect_axpby_v, z_vect_axpby_a, &
        & z_vect_mlt_v, z_vect_mlt_a, z_vect_mlt_a_2, z_vect_mlt_v_2, &
@@ -167,7 +181,60 @@ module psb_z_vect_mod
 
 contains
 
+  function z_vect_get_dupl(x) result(res)
+    implicit none
+    class(psb_z_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function z_vect_get_dupl
+
+  subroutine z_vect_set_dupl(x,val)
+    implicit none
+    class(psb_z_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine z_vect_set_dupl
+
+  function z_vect_get_nrmv(x) result(res)
+    implicit none
+    class(psb_z_vect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%nrmv
+  end function z_vect_get_nrmv
+
+  subroutine z_vect_set_nrmv(x,val)
+    implicit none
+    class(psb_z_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in) :: val
+
+    x%nrmv = val
+  end subroutine z_vect_set_nrmv
+        
+
+  function z_vect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_z_vect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function z_vect_is_remote_build
 
+  subroutine z_vect_set_remote_build(x,val)
+    implicit none
+    class(psb_z_vect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine z_vect_set_remote_build
+        
   subroutine  psb_z_set_vect_default(v)
     implicit none
     class(psb_z_base_vect_type), intent(in) :: v
@@ -365,8 +432,8 @@ contains
     implicit none
     integer(psb_ipk_), intent(in)           :: n
     class(psb_z_vect_type), intent(inout) :: x
-    class(psb_z_base_vect_type), intent(in), optional :: mold
     integer(psb_ipk_), intent(out)      :: info
+    class(psb_z_base_vect_type), intent(in), optional :: mold
 
     if (allocated(x%v)) &
          & call x%free(info)
@@ -381,7 +448,6 @@ contains
     else
       info = psb_err_alloc_dealloc_
     end if
-
   end subroutine z_vect_all
 
   subroutine z_vect_reall(n, x, info)
@@ -412,13 +478,13 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    integer(psb_ipk_), intent(in)              :: n
+    integer(psb_ipk_), intent(in)         :: n
     class(psb_z_vect_type), intent(inout) :: x
-    integer(psb_ipk_), intent(out)             :: info
-
-    if (allocated(x%v)) &
-         & call x%v%asb(n,info)
+    integer(psb_ipk_), intent(out)        :: info
 
+    if (allocated(x%v)) then
+      call x%v%asb(n,info)
+    end if
   end subroutine z_vect_asb
 
   subroutine z_vect_gthab(n,idx,alpha,x,beta,y)
@@ -469,44 +535,44 @@ contains
 
   end subroutine z_vect_free
 
-  subroutine z_vect_ins_a(n,irl,val,dupl,x,info)
+  subroutine z_vect_ins_a(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_z_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     complex(psb_dpk_), intent(in)        :: val(:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine z_vect_ins_a
 
-  subroutine z_vect_ins_v(n,irl,val,dupl,x,info)
+  subroutine z_vect_ins_v(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_z_vect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     class(psb_i_vect_type), intent(inout)       :: irl
     class(psb_z_vect_type), intent(inout)       :: val
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl%v,val%v,dupl,info)
 
   end subroutine z_vect_ins_v
@@ -1184,7 +1250,6 @@ contains
 end module psb_z_vect_mod
 
 
-
 module psb_z_multivect_mod
 
   use psb_z_base_multivect_mod
@@ -1196,11 +1261,19 @@ module psb_z_multivect_mod
 
   type psb_z_multivect_type
     class(psb_z_base_multivect_type), allocatable :: v
+    integer(psb_ipk_) :: nrmv = 0
+    integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
+    complex(psb_dpk_), allocatable :: rmtv(:,:)
   contains
     procedure, pass(x) :: get_nrows => z_vect_get_nrows
     procedure, pass(x) :: get_ncols => z_vect_get_ncols
     procedure, pass(x) :: sizeof   => z_vect_sizeof
     procedure, pass(x) :: get_fmt  => z_vect_get_fmt
+    procedure, pass(x) :: is_remote_build => z_mvect_is_remote_build
+    procedure, pass(x) :: set_remote_build => z_mvect_set_remote_build
+    procedure, pass(x) :: get_dupl => z_mvect_get_dupl
+    procedure, pass(x) :: set_dupl => z_mvect_set_dupl
 
     procedure, pass(x) :: all      => z_vect_all
     procedure, pass(x) :: reall    => z_vect_reall
@@ -1268,6 +1341,46 @@ module psb_z_multivect_mod
 
 contains
 
+  
+  function z_mvect_get_dupl(x) result(res)
+    implicit none
+    class(psb_z_multivect_type), intent(in) :: x
+    integer(psb_ipk_) :: res
+    res = x%dupl
+  end function z_mvect_get_dupl
+
+  subroutine z_mvect_set_dupl(x,val)
+    implicit none
+    class(psb_z_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%dupl = val
+    else
+      x%dupl = psb_dupl_def_
+    end if
+  end subroutine z_mvect_set_dupl
+        
+
+  function z_mvect_is_remote_build(x) result(res)
+    implicit none
+    class(psb_z_multivect_type), intent(in) :: x
+    logical :: res
+    res = (x%remote_build == psb_matbld_remote_)
+  end function z_mvect_is_remote_build
+
+  subroutine z_mvect_set_remote_build(x,val)
+    implicit none
+    class(psb_z_multivect_type), intent(inout) :: x
+    integer(psb_ipk_), intent(in), optional :: val
+
+    if (present(val)) then
+      x%remote_build = val
+    else
+      x%remote_build = psb_matbld_remote_
+    end if
+  end subroutine z_mvect_set_remote_build
+        
 
   subroutine  psb_z_set_multivect_default(v)
     implicit none
@@ -1572,23 +1685,23 @@ contains
 
   end subroutine z_vect_free
 
-  subroutine z_vect_ins(n,irl,val,dupl,x,info)
+  subroutine z_vect_ins(n,irl,val,x,info)
     use psi_serial_mod
     implicit none
     class(psb_z_multivect_type), intent(inout)  :: x
-    integer(psb_ipk_), intent(in)               :: n, dupl
+    integer(psb_ipk_), intent(in)               :: n
     integer(psb_ipk_), intent(in)               :: irl(:)
     complex(psb_dpk_), intent(in)        :: val(:,:)
     integer(psb_ipk_), intent(out)              :: info
 
-    integer(psb_ipk_) :: i
+    integer(psb_ipk_) :: i, dupl
 
     info = 0
     if (.not.allocated(x%v)) then
       info = psb_err_invalid_vect_state_
       return
     end if
-
+    dupl = x%get_dupl()
     call  x%v%ins(n,irl,val,dupl,info)
 
   end subroutine z_vect_ins
diff --git a/base/modules/tools/psb_c_tools_mod.F90 b/base/modules/tools/psb_c_tools_mod.F90
index 378e146b..78ec8518 100644
--- a/base/modules/tools/psb_c_tools_mod.F90
+++ b/base/modules/tools/psb_c_tools_mod.F90
@@ -40,28 +40,31 @@ Module psb_c_tools_mod
   use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem
 
   interface  psb_geall
-    subroutine psb_calloc_vect(x, desc_a,info)
+    subroutine psb_calloc_vect(x, desc_a,info, dupl, bldmode)
       import
       implicit none
       type(psb_c_vect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_calloc_vect
-    subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb)
+    subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
       import
       implicit none
       type(psb_c_vect_type), allocatable, intent(out)  :: x(:)
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n, lb
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_calloc_vect_r2
-    subroutine psb_calloc_multivect(x, desc_a,info,n)
+    subroutine psb_calloc_multivect(x, desc_a,info,n, dupl, bldmode)
       import
       implicit none
       type(psb_c_multivect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_calloc_multivect
   end interface
 
@@ -123,7 +126,7 @@ Module psb_c_tools_mod
 
 
   interface psb_geins
-    subroutine psb_cins_vect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_cins_vect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -132,10 +135,9 @@ Module psb_c_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       complex(psb_spk_), intent(in)    :: val(:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_cins_vect
-    subroutine psb_cins_vect_v(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_cins_vect_v(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -144,10 +146,9 @@ Module psb_c_tools_mod
       type(psb_l_vect_type), intent(inout)       :: irw
       type(psb_c_vect_type), intent(inout)    :: val
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_cins_vect_v
-    subroutine psb_cins_vect_r2(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_cins_vect_r2(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -156,10 +157,9 @@ Module psb_c_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       complex(psb_spk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_cins_vect_r2
-    subroutine psb_cins_multivect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_cins_multivect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -168,7 +168,6 @@ Module psb_c_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       complex(psb_spk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_cins_multivect
   end interface
@@ -239,29 +238,55 @@ Module psb_c_tools_mod
 
 
   interface psb_spall
-    subroutine psb_cspalloc(a, desc_a, info, nnz)
+    subroutine psb_cspalloc(a, desc_a, info, nnz, dupl, bldmode)
       import
       implicit none
-      type(psb_desc_type), intent(in) :: desc_a
-      type(psb_cspmat_type), intent(inout) :: a
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), optional, intent(in)      :: nnz
+      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_cspmat_type), intent(inout)    :: a
+      integer(psb_ipk_), intent(out)          :: info
+      integer(psb_ipk_), optional, intent(in) :: nnz, bldmode
+      integer(psb_ipk_), optional, intent(in) :: dupl
     end subroutine psb_cspalloc
   end interface
 
   interface psb_spasb
-    subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl,mold)
+    subroutine psb_cspasb(a,desc_a, info, afmt, upd, mold)
       import
       implicit none
       type(psb_cspmat_type), intent (inout)   :: a
-      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_desc_type), intent(inout)        :: desc_a
       integer(psb_ipk_), intent(out)                    :: info
-      integer(psb_ipk_),optional, intent(in)            :: dupl, upd
+      integer(psb_ipk_),optional, intent(in)            :: upd
       character(len=*), optional, intent(in)  :: afmt
       class(psb_c_base_sparse_mat), intent(in), optional :: mold
     end subroutine psb_cspasb
   end interface
 
+  interface psb_remote_vect
+    subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info)
+      import
+      implicit none
+      integer(psb_ipk_), intent(in)  :: n
+      complex(psb_spk_),   intent(in)  :: v(:)
+      integer(psb_lpk_), intent(in)  :: iv(:)
+      type(psb_desc_type),intent(in) :: desc_a
+      complex(psb_spk_),   allocatable, intent(out)  :: x(:)
+      integer(psb_lpk_), allocatable, intent(out)  :: ix(:)
+      integer(psb_ipk_), intent(out)       :: info
+    end subroutine psb_c_remote_vect
+  end interface psb_remote_vect
+
+  interface psb_remote_mat
+    subroutine psb_lc_remote_mat(a,desc_a,b, info)
+      import
+      implicit none
+      type(psb_lc_coo_sparse_mat),Intent(inout)  :: a
+      type(psb_desc_type),intent(inout)         :: desc_a
+      type(psb_lc_coo_sparse_mat),Intent(inout)  :: b
+      integer(psb_ipk_), intent(out)            :: info
+    end subroutine psb_lc_remote_mat
+  end interface psb_remote_mat
+  
   interface psb_spfree
     subroutine psb_cspfree(a, desc_a,info)
       import
diff --git a/base/modules/tools/psb_d_tools_mod.F90 b/base/modules/tools/psb_d_tools_mod.F90
index 81c75ece..30510123 100644
--- a/base/modules/tools/psb_d_tools_mod.F90
+++ b/base/modules/tools/psb_d_tools_mod.F90
@@ -40,28 +40,31 @@ Module psb_d_tools_mod
   use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem
 
   interface  psb_geall
-    subroutine psb_dalloc_vect(x, desc_a,info)
+    subroutine psb_dalloc_vect(x, desc_a,info, dupl, bldmode)
       import
       implicit none
       type(psb_d_vect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_dalloc_vect
-    subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb)
+    subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
       import
       implicit none
       type(psb_d_vect_type), allocatable, intent(out)  :: x(:)
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n, lb
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_dalloc_vect_r2
-    subroutine psb_dalloc_multivect(x, desc_a,info,n)
+    subroutine psb_dalloc_multivect(x, desc_a,info,n, dupl, bldmode)
       import
       implicit none
       type(psb_d_multivect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_dalloc_multivect
   end interface
 
@@ -123,7 +126,7 @@ Module psb_d_tools_mod
 
 
   interface psb_geins
-    subroutine psb_dins_vect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_dins_vect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -132,10 +135,9 @@ Module psb_d_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       real(psb_dpk_), intent(in)    :: val(:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_dins_vect
-    subroutine psb_dins_vect_v(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_dins_vect_v(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -144,10 +146,9 @@ Module psb_d_tools_mod
       type(psb_l_vect_type), intent(inout)       :: irw
       type(psb_d_vect_type), intent(inout)    :: val
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_dins_vect_v
-    subroutine psb_dins_vect_r2(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_dins_vect_r2(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -156,10 +157,9 @@ Module psb_d_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       real(psb_dpk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_dins_vect_r2
-    subroutine psb_dins_multivect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_dins_multivect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -168,7 +168,6 @@ Module psb_d_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       real(psb_dpk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_dins_multivect
   end interface
@@ -239,29 +238,55 @@ Module psb_d_tools_mod
 
 
   interface psb_spall
-    subroutine psb_dspalloc(a, desc_a, info, nnz)
+    subroutine psb_dspalloc(a, desc_a, info, nnz, dupl, bldmode)
       import
       implicit none
-      type(psb_desc_type), intent(in) :: desc_a
-      type(psb_dspmat_type), intent(inout) :: a
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), optional, intent(in)      :: nnz
+      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_dspmat_type), intent(inout)    :: a
+      integer(psb_ipk_), intent(out)          :: info
+      integer(psb_ipk_), optional, intent(in) :: nnz, bldmode
+      integer(psb_ipk_), optional, intent(in) :: dupl
     end subroutine psb_dspalloc
   end interface
 
   interface psb_spasb
-    subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl,mold)
+    subroutine psb_dspasb(a,desc_a, info, afmt, upd, mold)
       import
       implicit none
       type(psb_dspmat_type), intent (inout)   :: a
-      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_desc_type), intent(inout)        :: desc_a
       integer(psb_ipk_), intent(out)                    :: info
-      integer(psb_ipk_),optional, intent(in)            :: dupl, upd
+      integer(psb_ipk_),optional, intent(in)            :: upd
       character(len=*), optional, intent(in)  :: afmt
       class(psb_d_base_sparse_mat), intent(in), optional :: mold
     end subroutine psb_dspasb
   end interface
 
+  interface psb_remote_vect
+    subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info)
+      import
+      implicit none
+      integer(psb_ipk_), intent(in)  :: n
+      real(psb_dpk_),   intent(in)  :: v(:)
+      integer(psb_lpk_), intent(in)  :: iv(:)
+      type(psb_desc_type),intent(in) :: desc_a
+      real(psb_dpk_),   allocatable, intent(out)  :: x(:)
+      integer(psb_lpk_), allocatable, intent(out)  :: ix(:)
+      integer(psb_ipk_), intent(out)       :: info
+    end subroutine psb_d_remote_vect
+  end interface psb_remote_vect
+
+  interface psb_remote_mat
+    subroutine psb_ld_remote_mat(a,desc_a,b, info)
+      import
+      implicit none
+      type(psb_ld_coo_sparse_mat),Intent(inout)  :: a
+      type(psb_desc_type),intent(inout)         :: desc_a
+      type(psb_ld_coo_sparse_mat),Intent(inout)  :: b
+      integer(psb_ipk_), intent(out)            :: info
+    end subroutine psb_ld_remote_mat
+  end interface psb_remote_mat
+  
   interface psb_spfree
     subroutine psb_dspfree(a, desc_a,info)
       import
diff --git a/base/modules/tools/psb_i_tools_mod.F90 b/base/modules/tools/psb_i_tools_mod.F90
index 5cc6e836..94fb04bc 100644
--- a/base/modules/tools/psb_i_tools_mod.F90
+++ b/base/modules/tools/psb_i_tools_mod.F90
@@ -37,28 +37,31 @@ Module psb_i_tools_mod
   use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem
 
   interface  psb_geall
-    subroutine psb_ialloc_vect(x, desc_a,info)
+    subroutine psb_ialloc_vect(x, desc_a,info, dupl, bldmode)
       import
       implicit none
       type(psb_i_vect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_ialloc_vect
-    subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb)
+    subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
       import
       implicit none
       type(psb_i_vect_type), allocatable, intent(out)  :: x(:)
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n, lb
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_ialloc_vect_r2
-    subroutine psb_ialloc_multivect(x, desc_a,info,n)
+    subroutine psb_ialloc_multivect(x, desc_a,info,n, dupl, bldmode)
       import
       implicit none
       type(psb_i_multivect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_ialloc_multivect
   end interface
 
@@ -120,7 +123,7 @@ Module psb_i_tools_mod
 
 
   interface psb_geins
-    subroutine psb_iins_vect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_iins_vect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -129,10 +132,9 @@ Module psb_i_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       integer(psb_ipk_), intent(in)    :: val(:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_iins_vect
-    subroutine psb_iins_vect_v(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_iins_vect_v(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -141,10 +143,9 @@ Module psb_i_tools_mod
       type(psb_l_vect_type), intent(inout)       :: irw
       type(psb_i_vect_type), intent(inout)    :: val
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_iins_vect_v
-    subroutine psb_iins_vect_r2(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_iins_vect_r2(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -153,10 +154,9 @@ Module psb_i_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       integer(psb_ipk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_iins_vect_r2
-    subroutine psb_iins_multivect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_iins_multivect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -165,7 +165,6 @@ Module psb_i_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       integer(psb_ipk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_iins_multivect
   end interface
diff --git a/base/modules/tools/psb_l_tools_mod.F90 b/base/modules/tools/psb_l_tools_mod.F90
index 56617798..61840af6 100644
--- a/base/modules/tools/psb_l_tools_mod.F90
+++ b/base/modules/tools/psb_l_tools_mod.F90
@@ -37,28 +37,31 @@ Module psb_l_tools_mod
   use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem
 
   interface  psb_geall
-    subroutine psb_lalloc_vect(x, desc_a,info)
+    subroutine psb_lalloc_vect(x, desc_a,info, dupl, bldmode)
       import
       implicit none
       type(psb_l_vect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_lalloc_vect
-    subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb)
+    subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
       import
       implicit none
       type(psb_l_vect_type), allocatable, intent(out)  :: x(:)
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n, lb
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_lalloc_vect_r2
-    subroutine psb_lalloc_multivect(x, desc_a,info,n)
+    subroutine psb_lalloc_multivect(x, desc_a,info,n, dupl, bldmode)
       import
       implicit none
       type(psb_l_multivect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_lalloc_multivect
   end interface
 
@@ -120,7 +123,7 @@ Module psb_l_tools_mod
 
 
   interface psb_geins
-    subroutine psb_lins_vect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_lins_vect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -129,10 +132,9 @@ Module psb_l_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       integer(psb_lpk_), intent(in)    :: val(:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_lins_vect
-    subroutine psb_lins_vect_v(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_lins_vect_v(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -141,10 +143,9 @@ Module psb_l_tools_mod
       type(psb_l_vect_type), intent(inout)       :: irw
       type(psb_l_vect_type), intent(inout)    :: val
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_lins_vect_v
-    subroutine psb_lins_vect_r2(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_lins_vect_r2(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -153,10 +154,9 @@ Module psb_l_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       integer(psb_lpk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_lins_vect_r2
-    subroutine psb_lins_multivect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_lins_multivect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -165,7 +165,6 @@ Module psb_l_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       integer(psb_lpk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_lins_multivect
   end interface
diff --git a/base/modules/tools/psb_s_tools_mod.F90 b/base/modules/tools/psb_s_tools_mod.F90
index fa82a53e..72033781 100644
--- a/base/modules/tools/psb_s_tools_mod.F90
+++ b/base/modules/tools/psb_s_tools_mod.F90
@@ -40,28 +40,31 @@ Module psb_s_tools_mod
   use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem
 
   interface  psb_geall
-    subroutine psb_salloc_vect(x, desc_a,info)
+    subroutine psb_salloc_vect(x, desc_a,info, dupl, bldmode)
       import
       implicit none
       type(psb_s_vect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_salloc_vect
-    subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb)
+    subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
       import
       implicit none
       type(psb_s_vect_type), allocatable, intent(out)  :: x(:)
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n, lb
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_salloc_vect_r2
-    subroutine psb_salloc_multivect(x, desc_a,info,n)
+    subroutine psb_salloc_multivect(x, desc_a,info,n, dupl, bldmode)
       import
       implicit none
       type(psb_s_multivect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_salloc_multivect
   end interface
 
@@ -123,7 +126,7 @@ Module psb_s_tools_mod
 
 
   interface psb_geins
-    subroutine psb_sins_vect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_sins_vect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -132,10 +135,9 @@ Module psb_s_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       real(psb_spk_), intent(in)    :: val(:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_sins_vect
-    subroutine psb_sins_vect_v(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_sins_vect_v(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -144,10 +146,9 @@ Module psb_s_tools_mod
       type(psb_l_vect_type), intent(inout)       :: irw
       type(psb_s_vect_type), intent(inout)    :: val
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_sins_vect_v
-    subroutine psb_sins_vect_r2(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_sins_vect_r2(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -156,10 +157,9 @@ Module psb_s_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       real(psb_spk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_sins_vect_r2
-    subroutine psb_sins_multivect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_sins_multivect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -168,7 +168,6 @@ Module psb_s_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       real(psb_spk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_sins_multivect
   end interface
@@ -239,29 +238,55 @@ Module psb_s_tools_mod
 
 
   interface psb_spall
-    subroutine psb_sspalloc(a, desc_a, info, nnz)
+    subroutine psb_sspalloc(a, desc_a, info, nnz, dupl, bldmode)
       import
       implicit none
-      type(psb_desc_type), intent(in) :: desc_a
-      type(psb_sspmat_type), intent(inout) :: a
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), optional, intent(in)      :: nnz
+      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_sspmat_type), intent(inout)    :: a
+      integer(psb_ipk_), intent(out)          :: info
+      integer(psb_ipk_), optional, intent(in) :: nnz, bldmode
+      integer(psb_ipk_), optional, intent(in) :: dupl
     end subroutine psb_sspalloc
   end interface
 
   interface psb_spasb
-    subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl,mold)
+    subroutine psb_sspasb(a,desc_a, info, afmt, upd, mold)
       import
       implicit none
       type(psb_sspmat_type), intent (inout)   :: a
-      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_desc_type), intent(inout)        :: desc_a
       integer(psb_ipk_), intent(out)                    :: info
-      integer(psb_ipk_),optional, intent(in)            :: dupl, upd
+      integer(psb_ipk_),optional, intent(in)            :: upd
       character(len=*), optional, intent(in)  :: afmt
       class(psb_s_base_sparse_mat), intent(in), optional :: mold
     end subroutine psb_sspasb
   end interface
 
+  interface psb_remote_vect
+    subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info)
+      import
+      implicit none
+      integer(psb_ipk_), intent(in)  :: n
+      real(psb_spk_),   intent(in)  :: v(:)
+      integer(psb_lpk_), intent(in)  :: iv(:)
+      type(psb_desc_type),intent(in) :: desc_a
+      real(psb_spk_),   allocatable, intent(out)  :: x(:)
+      integer(psb_lpk_), allocatable, intent(out)  :: ix(:)
+      integer(psb_ipk_), intent(out)       :: info
+    end subroutine psb_s_remote_vect
+  end interface psb_remote_vect
+
+  interface psb_remote_mat
+    subroutine psb_ls_remote_mat(a,desc_a,b, info)
+      import
+      implicit none
+      type(psb_ls_coo_sparse_mat),Intent(inout)  :: a
+      type(psb_desc_type),intent(inout)         :: desc_a
+      type(psb_ls_coo_sparse_mat),Intent(inout)  :: b
+      integer(psb_ipk_), intent(out)            :: info
+    end subroutine psb_ls_remote_mat
+  end interface psb_remote_mat
+  
   interface psb_spfree
     subroutine psb_sspfree(a, desc_a,info)
       import
diff --git a/base/modules/tools/psb_z_tools_mod.F90 b/base/modules/tools/psb_z_tools_mod.F90
index 233f2c20..c96737b1 100644
--- a/base/modules/tools/psb_z_tools_mod.F90
+++ b/base/modules/tools/psb_z_tools_mod.F90
@@ -40,28 +40,31 @@ Module psb_z_tools_mod
   use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem
 
   interface  psb_geall
-    subroutine psb_zalloc_vect(x, desc_a,info)
+    subroutine psb_zalloc_vect(x, desc_a,info, dupl, bldmode)
       import
       implicit none
       type(psb_z_vect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_zalloc_vect
-    subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb)
+    subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
       import
       implicit none
       type(psb_z_vect_type), allocatable, intent(out)  :: x(:)
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n, lb
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_zalloc_vect_r2
-    subroutine psb_zalloc_multivect(x, desc_a,info,n)
+    subroutine psb_zalloc_multivect(x, desc_a,info,n, dupl, bldmode)
       import
       implicit none
       type(psb_z_multivect_type), intent(out)  :: x
       type(psb_desc_type), intent(in) :: desc_a
       integer(psb_ipk_),intent(out)             :: info
       integer(psb_ipk_), optional, intent(in)   :: n
+      integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
     end subroutine psb_zalloc_multivect
   end interface
 
@@ -123,7 +126,7 @@ Module psb_z_tools_mod
 
 
   interface psb_geins
-    subroutine psb_zins_vect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_zins_vect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -132,10 +135,9 @@ Module psb_z_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       complex(psb_dpk_), intent(in)    :: val(:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_zins_vect
-    subroutine psb_zins_vect_v(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_zins_vect_v(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -144,10 +146,9 @@ Module psb_z_tools_mod
       type(psb_l_vect_type), intent(inout)       :: irw
       type(psb_z_vect_type), intent(inout)    :: val
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_zins_vect_v
-    subroutine psb_zins_vect_r2(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_zins_vect_r2(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -156,10 +157,9 @@ Module psb_z_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       complex(psb_dpk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_zins_vect_r2
-    subroutine psb_zins_multivect(m,irw,val,x,desc_a,info,dupl,local)
+    subroutine psb_zins_multivect(m,irw,val,x,desc_a,info,local)
       import
       implicit none
       integer(psb_ipk_), intent(in)              :: m
@@ -168,7 +168,6 @@ Module psb_z_tools_mod
       integer(psb_lpk_), intent(in)              :: irw(:)
       complex(psb_dpk_), intent(in)    :: val(:,:)
       integer(psb_ipk_), intent(out)             :: info
-      integer(psb_ipk_), optional, intent(in)    :: dupl
       logical, intent(in), optional        :: local
     end subroutine psb_zins_multivect
   end interface
@@ -239,29 +238,55 @@ Module psb_z_tools_mod
 
 
   interface psb_spall
-    subroutine psb_zspalloc(a, desc_a, info, nnz)
+    subroutine psb_zspalloc(a, desc_a, info, nnz, dupl, bldmode)
       import
       implicit none
-      type(psb_desc_type), intent(in) :: desc_a
-      type(psb_zspmat_type), intent(inout) :: a
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), optional, intent(in)      :: nnz
+      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_zspmat_type), intent(inout)    :: a
+      integer(psb_ipk_), intent(out)          :: info
+      integer(psb_ipk_), optional, intent(in) :: nnz, bldmode
+      integer(psb_ipk_), optional, intent(in) :: dupl
     end subroutine psb_zspalloc
   end interface
 
   interface psb_spasb
-    subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl,mold)
+    subroutine psb_zspasb(a,desc_a, info, afmt, upd, mold)
       import
       implicit none
       type(psb_zspmat_type), intent (inout)   :: a
-      type(psb_desc_type), intent(in)         :: desc_a
+      type(psb_desc_type), intent(inout)        :: desc_a
       integer(psb_ipk_), intent(out)                    :: info
-      integer(psb_ipk_),optional, intent(in)            :: dupl, upd
+      integer(psb_ipk_),optional, intent(in)            :: upd
       character(len=*), optional, intent(in)  :: afmt
       class(psb_z_base_sparse_mat), intent(in), optional :: mold
     end subroutine psb_zspasb
   end interface
 
+  interface psb_remote_vect
+    subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info)
+      import
+      implicit none
+      integer(psb_ipk_), intent(in)  :: n
+      complex(psb_dpk_),   intent(in)  :: v(:)
+      integer(psb_lpk_), intent(in)  :: iv(:)
+      type(psb_desc_type),intent(in) :: desc_a
+      complex(psb_dpk_),   allocatable, intent(out)  :: x(:)
+      integer(psb_lpk_), allocatable, intent(out)  :: ix(:)
+      integer(psb_ipk_), intent(out)       :: info
+    end subroutine psb_z_remote_vect
+  end interface psb_remote_vect
+
+  interface psb_remote_mat
+    subroutine psb_lz_remote_mat(a,desc_a,b, info)
+      import
+      implicit none
+      type(psb_lz_coo_sparse_mat),Intent(inout)  :: a
+      type(psb_desc_type),intent(inout)         :: desc_a
+      type(psb_lz_coo_sparse_mat),Intent(inout)  :: b
+      integer(psb_ipk_), intent(out)            :: info
+    end subroutine psb_lz_remote_mat
+  end interface psb_remote_mat
+  
   interface psb_spfree
     subroutine psb_zspfree(a, desc_a,info)
       import
diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index bd03b1b8..0127d00f 100644
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@@ -6121,7 +6121,6 @@ subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
 
   if (nz == 0) return
 
-
   nza  = a%get_nzeros()
   isza = a%get_size()
   if (a%is_bld()) then
diff --git a/base/serial/impl/psb_c_mat_impl.F90 b/base/serial/impl/psb_c_mat_impl.F90
index 088b012d..df5c4cd9 100644
--- a/base/serial/impl/psb_c_mat_impl.F90
+++ b/base/serial/impl/psb_c_mat_impl.F90
@@ -675,7 +675,12 @@ subroutine  psb_c_free(a)
     call a%a%free()
     deallocate(a%a)
   endif
-
+  if (allocated(a%rmta)) then
+    call a%rmta%free()
+    deallocate(a%rmta)
+  end if
+  a%remote_build = psb_matbld_noremote_
+  
 end subroutine psb_c_free
 
 
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index d4d88027..7e835261 100644
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@@ -6121,7 +6121,6 @@ subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
 
   if (nz == 0) return
 
-
   nza  = a%get_nzeros()
   isza = a%get_size()
   if (a%is_bld()) then
diff --git a/base/serial/impl/psb_d_mat_impl.F90 b/base/serial/impl/psb_d_mat_impl.F90
index b21fa40f..2a6fb9a5 100644
--- a/base/serial/impl/psb_d_mat_impl.F90
+++ b/base/serial/impl/psb_d_mat_impl.F90
@@ -675,7 +675,12 @@ subroutine  psb_d_free(a)
     call a%a%free()
     deallocate(a%a)
   endif
-
+  if (allocated(a%rmta)) then
+    call a%rmta%free()
+    deallocate(a%rmta)
+  end if
+  a%remote_build = psb_matbld_noremote_
+  
 end subroutine psb_d_free
 
 
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index 5ae9dd96..67725ffb 100644
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@@ -6121,7 +6121,6 @@ subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
 
   if (nz == 0) return
 
-
   nza  = a%get_nzeros()
   isza = a%get_size()
   if (a%is_bld()) then
diff --git a/base/serial/impl/psb_s_mat_impl.F90 b/base/serial/impl/psb_s_mat_impl.F90
index c624dc2f..ce7ce653 100644
--- a/base/serial/impl/psb_s_mat_impl.F90
+++ b/base/serial/impl/psb_s_mat_impl.F90
@@ -675,7 +675,12 @@ subroutine  psb_s_free(a)
     call a%a%free()
     deallocate(a%a)
   endif
-
+  if (allocated(a%rmta)) then
+    call a%rmta%free()
+    deallocate(a%rmta)
+  end if
+  a%remote_build = psb_matbld_noremote_
+  
 end subroutine psb_s_free
 
 
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index 49e6c7fe..158f1ffe 100644
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@@ -6121,7 +6121,6 @@ subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
 
   if (nz == 0) return
 
-
   nza  = a%get_nzeros()
   isza = a%get_size()
   if (a%is_bld()) then
diff --git a/base/serial/impl/psb_z_mat_impl.F90 b/base/serial/impl/psb_z_mat_impl.F90
index e008dfdb..2cebf9e7 100644
--- a/base/serial/impl/psb_z_mat_impl.F90
+++ b/base/serial/impl/psb_z_mat_impl.F90
@@ -675,7 +675,12 @@ subroutine  psb_z_free(a)
     call a%a%free()
     deallocate(a%a)
   endif
-
+  if (allocated(a%rmta)) then
+    call a%rmta%free()
+    deallocate(a%rmta)
+  end if
+  a%remote_build = psb_matbld_noremote_
+  
 end subroutine psb_z_free
 
 
diff --git a/base/tools/Makefile b/base/tools/Makefile
index 2c160616..ce13caed 100644
--- a/base/tools/Makefile
+++ b/base/tools/Makefile
@@ -30,7 +30,8 @@ FOBJS = psb_cdall.o psb_cdals.o psb_cdalv.o psb_cd_inloc.o psb_cdins.o psb_cdprt
 	psb_cgetelem.o psb_dgetelem.o psb_sgetelem.o psb_zgetelem.o   
 
 MPFOBJS = psb_icdasb.o psb_ssphalo.o  psb_dsphalo.o psb_csphalo.o psb_zsphalo.o  \
-	psb_dcdbldext.o psb_zcdbldext.o psb_scdbldext.o psb_ccdbldext.o
+	psb_dcdbldext.o psb_zcdbldext.o psb_scdbldext.o psb_ccdbldext.o \
+        psb_s_remote_mat.o psb_d_remote_mat.o psb_c_remote_mat.o psb_z_remote_mat.o
 
 LIBDIR=..
 INCDIR=..
diff --git a/base/tools/psb_c_remote_mat.F90 b/base/tools/psb_c_remote_mat.F90
new file mode 100644
index 00000000..18c7a91d
--- /dev/null
+++ b/base/tools/psb_c_remote_mat.F90
@@ -0,0 +1,436 @@
+!   
+!                Parallel Sparse BLAS  version 3.5
+!      (C) Copyright 2006-2018
+!        Salvatore Filippone    
+!        Alfredo Buttari      
+!   
+!    Redistribution and use in source and binary forms, with or without
+!    modification, are permitted provided that the following conditions
+!    are met:
+!      1. Redistributions of source code must retain the above copyright
+!         notice, this list of conditions and the following disclaimer.
+!      2. Redistributions in binary form must reproduce the above copyright
+!         notice, this list of conditions, and the following disclaimer in the
+!         documentation and/or other materials provided with the distribution.
+!      3. The name of the PSBLAS group or the names of its contributors may
+!         not be used to endorse or promote products derived from this
+!         software without specific written permission.
+!   
+!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+!    ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+!    TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+!    PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
+!    BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+!    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+!    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+!    INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+!    CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+!    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+!    POSSIBILITY OF SUCH DAMAGE.
+!   
+!    
+! File: psb_c_remote_mat.f90
+!
+! Subroutine: 
+!  This routine does the retrieval of remote matrix rows.                   
+!  Retrieval is done through GETROW, therefore it should work      
+!  for any matrix format in A; as for the output, default is CSR.
+!  
+!  There is also a specialized version lc_CSR whose interface
+!  is adapted for the needs of c_par_csr_spspmm. 
+!
+!  There are three possible exchange algorithms:
+!  1. Use MPI_Alltoallv
+!  2. Use psb_simple_a2av
+!  3. Use psb_simple_triad_a2av
+!  Default choice is 3. The MPI variant has proved to be inefficient;
+!  that is because it is not persistent, therefore you pay the initialization price
+!  every time, and it is not optimized for a sparse communication pattern,
+!  most MPI implementations assume that all communications are non-empty.
+!  The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic
+!  sequence of sends/receive that is quite efficient for a sparse communication
+!  pattern. To be refined/reviewed in the future to compare with neighbour
+!  persistent collectives. 
+! 
+! Arguments: 
+!    a        - type(psb_cspmat_type)   The local part of input matrix A
+!    desc_a   - type(psb_desc_type).  The communication descriptor.
+!    blck     - type(psb_cspmat_type)   The local part of output matrix BLCK
+!    info     - integer.                Return code
+!    rowcnv   - logical                 Should row/col indices be converted
+!    colcnv   - logical                 to/from global numbering when sent/received?
+!                                       default is .TRUE.
+!    rowscale - logical                 Should row/col indices on output be remapped
+!    colscale - logical                 from MIN:MAX  to 1:(MAX-MIN+1) ? 
+!                                       default is .FALSE. 
+!                                       (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.)
+!    data     - integer                 Which index list in desc_a should be used to retrieve
+!                                       rows, default psb_comm_halo_
+!                                       psb_comm_halo_    use halo_index
+!                                       psb_comm_ext_     use ext_index 
+!                                       psb_comm_ovrl_  DISABLED for this routine.
+!
+Subroutine psb_lc_remote_mat(a,desc_a,b,info)
+  use psb_base_mod, psb_protect_name => psb_lc_remote_mat
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+
+  Type(psb_lc_coo_sparse_mat),Intent(inout)  :: a
+  Type(psb_lc_coo_sparse_mat),Intent(inout)  :: b
+  Type(psb_desc_type), Intent(inout)         :: desc_a
+  integer(psb_ipk_), intent(out)                :: info
+
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, &
+       &     n_elem, j, ipx,idxs,idxr
+  integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, &
+       & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem
+  integer(psb_lpk_) :: nz,nouth
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: iasnd(:), jasnd(:)
+  complex(psb_spk_), allocatable :: valsnd(:)
+  type(psb_lc_coo_sparse_mat), allocatable :: acoo
+  class(psb_i_base_vect_type), pointer :: pdxv
+  integer(psb_ipk_), allocatable :: ila(:), iprc(:)
+  logical           :: rowcnv_,colcnv_,rowscale_,colscale_
+  character(len=5)  :: outfmt_
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_c_remote_mat'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+
+  call b%free() 
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), acoo,stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+
+  nz = a%get_nzeros()
+  !allocate(ila(nz))
+  !write(0,*) me,name,' size :',nz,size(ila)        
+  !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.)
+  !nouth = count(ila(1:nz)<0)
+  !write(0,*) me,name,' Count out of halo :',nouth
+  !call psb_max(ctxt,nouth)
+  !if ((nouth/=0).and.(me==0)) &
+  !     & write(0,*) 'Warning: would require reinit of DESC_A'
+
+  call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info)
+
+  icomm = desc_a%get_mpic()
+  sdsz(:)=0
+  rvsz(:)=0
+  sdsi(:)=0
+  rvsi(:)=0
+  ipx = 1
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter=1
+  idx = 0
+  idxs = 0
+  idxr = 0
+  do  i=1,nz
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs = 0
+  idxr = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr)
+  if (psb_errstatus_fatal()) then
+    write(0,*) 'Error from acoo%allocate '
+    info = 4010
+    goto 9999
+  end if
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),&
+       & ' Send:',sdsz(:),' Receive:',rvsz(:)
+  !write(debug_unit,*) me,' ',trim(name),': ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='ensure_size')
+    goto 9999
+  end if
+  do k=1, nz
+    proc = iprc(k)
+    sdsi(proc+1) = sdsi(proc+1) + 1
+    !rvsi(proc) = rvsi(proc) + 1 
+    iasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ia(k)
+    jasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ja(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_)
+    call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
+         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & acoo%val,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,&
+         & acoo%ia,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
+         & acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_spk_,&
+         & acoo%val,rvsz,brvindx,psb_mpi_c_spk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  call acoo%set_nzeros(iszr)
+  call acoo%mv_to_coo(b,info)
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & iasnd,jasnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_lc_remote_mat
+
+
+subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info)
+  use psb_base_mod, psb_protect_name => psb_c_remote_vect
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+  integer(psb_ipk_), intent(in)  :: n
+  complex(psb_spk_),   Intent(in)  :: v(:)
+  integer(psb_lpk_), Intent(in)  :: iv(:)
+  type(psb_desc_type),intent(in) :: desc_a
+  complex(psb_spk_),   allocatable, intent(out) :: x(:)
+  integer(psb_lpk_), allocatable, intent(out) :: ix(:)
+  integer(psb_ipk_), intent(out) :: info
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i,  &
+       &     j,  idxs,idxr, k, iszs, iszr
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: lsnd(:)
+  complex(psb_spk_), allocatable :: valsnd(:)
+  integer(psb_ipk_), allocatable :: iprc(:)
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_c_remote_vect'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt  = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+  call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info)
+
+  icomm   = desc_a%get_mpic()
+  sdsz(:) = 0
+  rvsz(:) = 0
+  sdsi(:) = 0
+  rvsi(:) = 0
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter = 1
+  idxs    = 0
+  idxr    = 0
+  do  i=1,n
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs  = 0
+  idxr  = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call psb_realloc(iszs,lsnd,info)
+  if (info == 0) call psb_realloc(iszs,valsnd,info)
+  if (info == 0) call psb_realloc(iszr,x,info)
+  if (info == 0) call psb_realloc(iszr,ix,info)
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='realloc')
+    goto 9999
+  end if
+  do k=1, n
+    proc           = iprc(k)
+    sdsi(proc+1)   = sdsi(proc+1) + 1
+    lsnd(bsdindx(proc+1)+sdsi(proc+1))   = iv(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & x,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,&
+         & ix,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_spk_,&
+         & x,rvsz,brvindx,psb_mpi_c_spk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & lsnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_c_remote_vect
diff --git a/base/tools/psb_callc.f90 b/base/tools/psb_callc.f90
index 530a43a2..272ece8b 100644
--- a/base/tools/psb_callc.f90
+++ b/base/tools/psb_callc.f90
@@ -40,7 +40,7 @@
 !    x      - the vector to be allocated.
 !    desc_a - the communication descriptor.
 !    info   - Return code
-subroutine psb_calloc_vect(x, desc_a,info)
+subroutine psb_calloc_vect(x, desc_a,info, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_calloc_vect
   use psi_mod
   implicit none
@@ -49,9 +49,11 @@ subroutine psb_calloc_vect(x, desc_a,info)
   type(psb_c_vect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   integer(psb_ipk_) :: np,me,nr,i,err_act
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
@@ -102,6 +104,25 @@ subroutine psb_calloc_vect(x, desc_a,info)
   endif
   call x%zero()
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  call x%set_nrmv(0)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    call psb_ensure_size(nrmt_,x%rmtv,info)
+    call psb_ensure_size(nrmt_,x%rmidx,info)
+  end if
+
   call psb_erractionrestore(err_act)
   return
 
@@ -110,6 +131,7 @@ subroutine psb_calloc_vect(x, desc_a,info)
   return
 
 end subroutine psb_calloc_vect
+
 ! Function: psb_calloc_vect_r2
 !    Allocates a vector of dense vectors for PSBLAS routines. 
 !    The descriptor may be in either the build or assembled state.
@@ -121,7 +143,7 @@ end subroutine psb_calloc_vect
 !    n      - optional number of columns.
 !    lb     - optional lower bound on column indices
 
-subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb)
+subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_calloc_vect_r2
   use psi_mod
   implicit none
@@ -131,10 +153,12 @@ subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n,lb
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -208,6 +232,26 @@ subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb)
       if (info /= 0) exit
     end do
   end if
+
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  
+  do i=lb_, lb_+n_-1
+    call x(i)%set_dupl(dupl_)
+    call x(i)%set_remote_build(bldmode_)
+    if (x(i)%is_remote_build()) then
+      nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+      allocate(x(i)%rmtv(nrmt_))
+    end if
+  end do
   if (psb_errstatus_fatal()) then 
     info=psb_err_alloc_request_
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
@@ -224,7 +268,7 @@ subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb)
 end subroutine psb_calloc_vect_r2
 
 
-subroutine psb_calloc_multivect(x, desc_a,info,n)
+subroutine psb_calloc_multivect(x, desc_a,info,n, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_calloc_multivect
   use psi_mod
   implicit none
@@ -234,10 +278,12 @@ subroutine psb_calloc_multivect(x, desc_a,info,n)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -306,6 +352,23 @@ subroutine psb_calloc_multivect(x, desc_a,info,n)
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
     goto 9999
   endif
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    allocate(x%rmtv(nrmt_,n_))
+  end if
+
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/tools/psb_casb.f90 b/base/tools/psb_casb.f90
index de2e3890..d43b062c 100644
--- a/base/tools/psb_casb.f90
+++ b/base/tools/psb_casb.f90
@@ -64,7 +64,7 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -83,7 +83,7 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
+  dupl_ = x%get_dupl()
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -104,6 +104,23 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch)
     call x%free(info)
     call x%bld(ncol,mold=mold)
   else
+    
+    if (x%is_remote_build()) then
+      block
+        integer(psb_lpk_), allocatable :: lvx(:)
+        complex(psb_spk_), allocatable  :: vx(:)
+        integer(psb_ipk_), allocatable :: ivx(:) 
+        integer(psb_ipk_) :: nrmv, nx, i
+
+        nrmv = x%get_nrmv()        
+        call psb_c_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info)
+        nx  = size(vx)
+        call psb_realloc(nx,ivx,info)
+        call desc_a%g2l(lvx,ivx,info,owned=.true.)
+        call x%ins(nx,ivx,vx,info)
+      end block
+    end if
+
     call x%asb(ncol,info)
     ! ..update halo elements..
     call psb_halo(x,desc_a,info)
@@ -140,7 +157,7 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, i, n 
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -159,7 +176,6 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -185,6 +201,7 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch)
 
   else
     do i=1, n
+      dupl_ = x(i)%get_dupl()
       call x(i)%asb(ncol,info)
       if (info /= 0) exit
       ! ..update halo elements..
@@ -225,7 +242,7 @@ subroutine psb_casb_multivect(x, desc_a, info, mold, scratch,n)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_
   logical :: scratch_
   
   integer(psb_ipk_) :: debug_level, debug_unit
@@ -271,6 +288,7 @@ subroutine psb_casb_multivect(x, desc_a, info, mold, scratch,n)
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol
 
+  dupl_ = x%get_dupl()
   if (scratch_) then 
     call x%free(info)
     call x%bld(ncol,n_,mold=mold)
diff --git a/base/tools/psb_cins.f90 b/base/tools/psb_cins.f90
index e874c315..180520a3 100644
--- a/base/tools/psb_cins.f90
+++ b/base/tools/psb_cins.f90
@@ -42,10 +42,7 @@
 !    x       - type(psb_c_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_cins_vect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_cins_vect
   use psi_mod
   implicit none
@@ -57,14 +54,14 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_c_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
+  integer(psb_ipk_) :: dupl_
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_,err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -112,7 +109,6 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local)
   endif
 
 
-
   allocate(irl(m),stat=info) 
   if (info /= psb_success_) then 
     info = psb_err_alloc_dealloc_
@@ -120,11 +116,6 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -136,11 +127,33 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
   end if
+  if (x%is_remote_build()) then
+    block
+      integer(psb_ipk_) :: j,k
+      k = x%get_nrmv()
+      do j=1,m
+        if (irl(j) < 0 ) then 
+          k = k + 1
+          call psb_ensure_size(k,x%rmtv,info)
+          if (info == 0) call psb_ensure_size(k,x%rmidx,info)
+          if (info /= 0) then
+            info = psb_err_alloc_dealloc_
+            call psb_errpush(info,name)
+            goto 9999
+          end if
+          x%rmtv(k)  = val(j)
+          x%rmidx(k) = irw(j)
+          call x%set_nrmv(k)
+        end if
+      end do
+    end block
+  end if
+            
   deallocate(irl)
 
   call psb_erractionrestore(err_act)
@@ -166,10 +179,7 @@ end subroutine psb_cins_vect
 !    x       - type(psb_c_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_cins_vect_v
   use psi_mod
   implicit none
@@ -185,14 +195,13 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_c_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_
+  integer(psb_ipk_) :: np, me
   integer(psb_ipk_), allocatable   :: irl(:)
   complex(psb_spk_), allocatable   :: lval(:)
   logical :: local_
@@ -239,14 +248,6 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call psb_errpush(info,name)
     goto 9999
   endif
-
-
-
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -260,7 +261,7 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.)
   end if
 
-  call x%ins(m,irl,lval,dupl_,info) 
+  call x%ins(m,irl,lval,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
@@ -275,7 +276,7 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_cins_vect_v
 
-subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_cins_vect_r2
   use psi_mod
   implicit none
@@ -291,14 +292,13 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_c_vect_type), intent(inout) :: x(:)
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols, n
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -353,11 +353,6 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -371,8 +366,9 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   end if
 
   do i=1,n
+
     if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_
-    if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) 
+    if (info == 0) call x(i)%ins(m,irl,val(:,i),info) 
     if (info /= 0) exit
   end do
   if (info /= 0) then 
@@ -390,7 +386,7 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_cins_vect_r2
 
-subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_cins_multivect
   use psi_mod
   implicit none
@@ -406,14 +402,13 @@ subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_c_multivect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -469,11 +464,6 @@ subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -485,7 +475,7 @@ subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90
index 69b9e1c2..7bec040c 100644
--- a/base/tools/psb_cspalloc.f90
+++ b/base/tools/psb_cspalloc.f90
@@ -41,21 +41,23 @@
 !    nnz      - integer(optional).             The number of nonzeroes in the matrix.
 !                                              (local, user estimate)
 !
-subroutine psb_cspalloc(a, desc_a, info, nnz)
+subroutine psb_cspalloc(a, desc_a, info, nnz, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_cspalloc
   implicit none
 
   !....parameters...
-  type(psb_desc_type), intent(in) :: desc_a
-  type(psb_cspmat_type), intent(inout) :: a
-  integer(psb_ipk_), intent(out)               :: info
-  integer(psb_ipk_), optional, intent(in)      :: nnz
+  type(psb_desc_type), intent(in)         :: desc_a
+  type(psb_cspmat_type), intent(inout)    :: a
+  integer(psb_ipk_), intent(out)          :: info
+  integer(psb_ipk_), optional, intent(in) :: nnz
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
-  integer(psb_lpk_) :: m, n
+  integer(psb_ipk_) :: dupl_, bldmode_
+  integer(psb_lpk_) :: m, n, nnzrmt_ 
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
 
@@ -96,7 +98,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
   else 
     nnz_ = max(1,5*loc_row)
   endif
-
+  
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name), &
        & ':allocating size:',loc_row,loc_col,nnz_
@@ -109,6 +111,24 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
     goto 9999
   end if
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call a%set_dupl(dupl_)
+  call a%set_remote_build(bldmode_)
+  if (a%is_remote_build()) then
+    allocate(a%rmta)
+    nnzrmt_ = max(100,(nnz_/100))
+    call a%rmta%allocate(m,n,nnzrmt_)
+  end if
+
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': ',  &
        & desc_a%get_dectype(),psb_desc_bld_
diff --git a/base/tools/psb_cspasb.f90 b/base/tools/psb_cspasb.f90
index 96ed7fe7..0c5f14ab 100644
--- a/base/tools/psb_cspasb.f90
+++ b/base/tools/psb_cspasb.f90
@@ -42,31 +42,29 @@
 !    upd      - character(optional).         How will the matrix be updated? 
 !                                            psb_upd_srch_    Simple strategy  
 !                                            psb_upd_perm_    Permutation(more memory)
-!    dupl     - integer(optional).           Duplicate coefficient handling:
-!                                            psb_dupl_ovwrt_     overwrite
-!                                            psb_dupl_add_       add 
-!                                            psb_dupl_err_       raise an error. 
 ! 
 !
-subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold)
+subroutine psb_cspasb(a,desc_a, info, afmt, upd, mold)
   use psb_base_mod, psb_protect_name => psb_cspasb
+  use psb_sort_mod
   use psi_mod
   implicit none
 
 
   !...Parameters....
-  type(psb_cspmat_type), intent (inout)  :: a
-  type(psb_desc_type), intent(in)         :: desc_a
-  integer(psb_ipk_), intent(out)                    :: info
-  integer(psb_ipk_),optional, intent(in)            :: dupl, upd
-  character(len=*), optional, intent(in)         :: afmt
+  type(psb_cspmat_type), intent (inout)    :: a
+  type(psb_desc_type), intent(inout)       :: desc_a
+  integer(psb_ipk_), intent(out)           :: info
+  integer(psb_ipk_), optional, intent(in)  :: upd
+  character(len=*), optional, intent(in)   :: afmt
   class(psb_c_base_sparse_mat), intent(in), optional :: mold
   !....Locals....
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, err_act
-  integer(psb_ipk_) :: n_row,n_col
+  integer(psb_ipk_) :: n_row,n_col, dupl_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)     :: name, ch_err
+  class(psb_i_base_vect_type), allocatable :: ivm
 
   info = psb_success_
   name = 'psb_spasb'
@@ -92,28 +90,79 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold)
     goto 9999
   end if
 
-
   if (debug_level >= psb_debug_ext_)&
        & write(debug_unit, *) me,' ',trim(name),&
        & '   Begin matrix assembly...'
 
   !check on errors encountered in psdspins
 
-
-  if (a%is_bld()) then 
+  if (a%is_bld()) then
+    dupl_ = a%get_dupl()
     !
     ! First case: we come from a fresh build. 
     ! 
-
-    n_row = desc_a%get_local_rows()
-    n_col = desc_a%get_local_cols()
-    call a%set_nrows(n_row)
-    call a%set_ncols(n_col)
-  end if
-
-  if (a%is_bld()) then 
-    call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_lc_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz  = a_add%get_nzeros()
+        nzt = nz
+        call psb_sum(ctxt,nzt)
+        if (nzt>0) then
+          allocate(ivm, mold=desc_a%v_halo_index%v)
+          call psb_cd_reinit(desc_a, info)
+        end if
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+        if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm)
+
+      end block
+    end if
+    call a%set_ncols(desc_a%get_local_cols())    
+    call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_)
   else if (a%is_upd()) then 
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_lc_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz = a_add%get_nzeros()
+!!$        write(0,*) me,name,' Nz to be added',nz
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+      end block
+    end if
     call a%asb(mold=mold)
   else
     info = psb_err_invalid_mat_state_
diff --git a/base/tools/psb_cspins.F90 b/base/tools/psb_cspins.F90
index 15ea556f..27cfbd8e 100644
--- a/base/tools/psb_cspins.F90
+++ b/base/tools/psb_cspins.F90
@@ -70,6 +70,10 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
   integer(psb_ipk_), parameter     :: relocsz=200
   logical                :: rebuild_, local_
   integer(psb_ipk_), allocatable   :: ila(:),jla(:)
+  integer(psb_ipk_)      :: i,k
+  integer(psb_lpk_)      :: nnl
+  integer(psb_lpk_), allocatable   :: lila(:),ljla(:)
+  complex(psb_spk_), allocatable     :: lval(:)
   character(len=20)  :: name
 
   info = psb_success_
@@ -147,6 +151,27 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
           call psb_errpush(info,name,a_err='a%csput')
           goto 9999
         end if
+
+        if (a%is_remote_build()) then 
+          nnl = count(ila(1:nz)<0)
+          if (nnl > 0) then 
+            !write(0,*) 'Check on insert ',nnl
+            allocate(lila(nnl),ljla(nnl),lval(nnl))
+            k = 0
+            do i=1,nz
+              if (ila(i)<0) then
+                k=k+1
+                lila(k) = ia(i)
+                ljla(k) = ja(i)
+                lval(k) = val(i)
+              end if
+            end do
+            if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+            call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+                 & 1_psb_lpk_,desc_a%get_global_rows(),info)
+          end if
+        end if
+          
       else
         info = psb_err_invalid_a_and_cd_state_
         call psb_errpush(info,name)
@@ -168,8 +193,9 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       ila(1:nz) = ia(1:nz)
       jla(1:nz) = ja(1:nz)
     else
-      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info)
-      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info)
+      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
+      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,&
+           & mask=(ila(1:nz)>0))
     end if
     call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info)
     if (info /= psb_success_) then
@@ -177,6 +203,25 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       call psb_errpush(info,name,a_err='a%csput')
       goto 9999
     end if
+    if (a%is_remote_build()) then 
+      nnl = count(ila(1:nz)<0)
+      if (nnl > 0) then 
+        !write(0,*) 'Check on insert ',nnl
+        allocate(lila(nnl),ljla(nnl),lval(nnl))
+        k = 0
+        do i=1,nz
+          if (ila(i)<0) then
+            k=k+1
+            lila(k) = ia(k)
+            ljla(k) = ja(k)
+            lval(k) = val(k)
+          end if
+        end do
+        if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+        call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+             & 1_psb_lpk_,desc_a%get_global_rows(),info)
+      end if
+    end if
   else
     info = psb_err_invalid_cd_state_
     call psb_errpush(info,name)
diff --git a/base/tools/psb_d_remote_mat.F90 b/base/tools/psb_d_remote_mat.F90
new file mode 100644
index 00000000..a5f12755
--- /dev/null
+++ b/base/tools/psb_d_remote_mat.F90
@@ -0,0 +1,436 @@
+!   
+!                Parallel Sparse BLAS  version 3.5
+!      (C) Copyright 2006-2018
+!        Salvatore Filippone    
+!        Alfredo Buttari      
+!   
+!    Redistribution and use in source and binary forms, with or without
+!    modification, are permitted provided that the following conditions
+!    are met:
+!      1. Redistributions of source code must retain the above copyright
+!         notice, this list of conditions and the following disclaimer.
+!      2. Redistributions in binary form must reproduce the above copyright
+!         notice, this list of conditions, and the following disclaimer in the
+!         documentation and/or other materials provided with the distribution.
+!      3. The name of the PSBLAS group or the names of its contributors may
+!         not be used to endorse or promote products derived from this
+!         software without specific written permission.
+!   
+!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+!    ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+!    TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+!    PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
+!    BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+!    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+!    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+!    INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+!    CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+!    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+!    POSSIBILITY OF SUCH DAMAGE.
+!   
+!    
+! File: psb_d_remote_mat.f90
+!
+! Subroutine: 
+!  This routine does the retrieval of remote matrix rows.                   
+!  Retrieval is done through GETROW, therefore it should work      
+!  for any matrix format in A; as for the output, default is CSR.
+!  
+!  There is also a specialized version ld_CSR whose interface
+!  is adapted for the needs of d_par_csr_spspmm. 
+!
+!  There are three possible exchange algorithms:
+!  1. Use MPI_Alltoallv
+!  2. Use psb_simple_a2av
+!  3. Use psb_simple_triad_a2av
+!  Default choice is 3. The MPI variant has proved to be inefficient;
+!  that is because it is not persistent, therefore you pay the initialization price
+!  every time, and it is not optimized for a sparse communication pattern,
+!  most MPI implementations assume that all communications are non-empty.
+!  The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic
+!  sequence of sends/receive that is quite efficient for a sparse communication
+!  pattern. To be refined/reviewed in the future to compare with neighbour
+!  persistent collectives. 
+! 
+! Arguments: 
+!    a        - type(psb_dspmat_type)   The local part of input matrix A
+!    desc_a   - type(psb_desc_type).  The communication descriptor.
+!    blck     - type(psb_dspmat_type)   The local part of output matrix BLCK
+!    info     - integer.                Return code
+!    rowcnv   - logical                 Should row/col indices be converted
+!    colcnv   - logical                 to/from global numbering when sent/received?
+!                                       default is .TRUE.
+!    rowscale - logical                 Should row/col indices on output be remapped
+!    colscale - logical                 from MIN:MAX  to 1:(MAX-MIN+1) ? 
+!                                       default is .FALSE. 
+!                                       (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.)
+!    data     - integer                 Which index list in desc_a should be used to retrieve
+!                                       rows, default psb_comm_halo_
+!                                       psb_comm_halo_    use halo_index
+!                                       psb_comm_ext_     use ext_index 
+!                                       psb_comm_ovrl_  DISABLED for this routine.
+!
+Subroutine psb_ld_remote_mat(a,desc_a,b,info)
+  use psb_base_mod, psb_protect_name => psb_ld_remote_mat
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+
+  Type(psb_ld_coo_sparse_mat),Intent(inout)  :: a
+  Type(psb_ld_coo_sparse_mat),Intent(inout)  :: b
+  Type(psb_desc_type), Intent(inout)         :: desc_a
+  integer(psb_ipk_), intent(out)                :: info
+
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, &
+       &     n_elem, j, ipx,idxs,idxr
+  integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, &
+       & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem
+  integer(psb_lpk_) :: nz,nouth
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: iasnd(:), jasnd(:)
+  real(psb_dpk_), allocatable :: valsnd(:)
+  type(psb_ld_coo_sparse_mat), allocatable :: acoo
+  class(psb_i_base_vect_type), pointer :: pdxv
+  integer(psb_ipk_), allocatable :: ila(:), iprc(:)
+  logical           :: rowcnv_,colcnv_,rowscale_,colscale_
+  character(len=5)  :: outfmt_
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_d_remote_mat'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+
+  call b%free() 
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), acoo,stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+
+  nz = a%get_nzeros()
+  !allocate(ila(nz))
+  !write(0,*) me,name,' size :',nz,size(ila)        
+  !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.)
+  !nouth = count(ila(1:nz)<0)
+  !write(0,*) me,name,' Count out of halo :',nouth
+  !call psb_max(ctxt,nouth)
+  !if ((nouth/=0).and.(me==0)) &
+  !     & write(0,*) 'Warning: would require reinit of DESC_A'
+
+  call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info)
+
+  icomm = desc_a%get_mpic()
+  sdsz(:)=0
+  rvsz(:)=0
+  sdsi(:)=0
+  rvsi(:)=0
+  ipx = 1
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter=1
+  idx = 0
+  idxs = 0
+  idxr = 0
+  do  i=1,nz
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs = 0
+  idxr = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr)
+  if (psb_errstatus_fatal()) then
+    write(0,*) 'Error from acoo%allocate '
+    info = 4010
+    goto 9999
+  end if
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),&
+       & ' Send:',sdsz(:),' Receive:',rvsz(:)
+  !write(debug_unit,*) me,' ',trim(name),': ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='ensure_size')
+    goto 9999
+  end if
+  do k=1, nz
+    proc = iprc(k)
+    sdsi(proc+1) = sdsi(proc+1) + 1
+    !rvsi(proc) = rvsi(proc) + 1 
+    iasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ia(k)
+    jasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ja(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_)
+    call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
+         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & acoo%val,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,&
+         & acoo%ia,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
+         & acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_dpk_,&
+         & acoo%val,rvsz,brvindx,psb_mpi_r_dpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  call acoo%set_nzeros(iszr)
+  call acoo%mv_to_coo(b,info)
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & iasnd,jasnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_ld_remote_mat
+
+
+subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info)
+  use psb_base_mod, psb_protect_name => psb_d_remote_vect
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+  integer(psb_ipk_), intent(in)  :: n
+  real(psb_dpk_),   Intent(in)  :: v(:)
+  integer(psb_lpk_), Intent(in)  :: iv(:)
+  type(psb_desc_type),intent(in) :: desc_a
+  real(psb_dpk_),   allocatable, intent(out) :: x(:)
+  integer(psb_lpk_), allocatable, intent(out) :: ix(:)
+  integer(psb_ipk_), intent(out) :: info
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i,  &
+       &     j,  idxs,idxr, k, iszs, iszr
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: lsnd(:)
+  real(psb_dpk_), allocatable :: valsnd(:)
+  integer(psb_ipk_), allocatable :: iprc(:)
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_d_remote_vect'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt  = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+  call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info)
+
+  icomm   = desc_a%get_mpic()
+  sdsz(:) = 0
+  rvsz(:) = 0
+  sdsi(:) = 0
+  rvsi(:) = 0
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter = 1
+  idxs    = 0
+  idxr    = 0
+  do  i=1,n
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs  = 0
+  idxr  = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call psb_realloc(iszs,lsnd,info)
+  if (info == 0) call psb_realloc(iszs,valsnd,info)
+  if (info == 0) call psb_realloc(iszr,x,info)
+  if (info == 0) call psb_realloc(iszr,ix,info)
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='realloc')
+    goto 9999
+  end if
+  do k=1, n
+    proc           = iprc(k)
+    sdsi(proc+1)   = sdsi(proc+1) + 1
+    lsnd(bsdindx(proc+1)+sdsi(proc+1))   = iv(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & x,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,&
+         & ix,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_dpk_,&
+         & x,rvsz,brvindx,psb_mpi_r_dpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & lsnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_d_remote_vect
diff --git a/base/tools/psb_dallc.f90 b/base/tools/psb_dallc.f90
index 7989929b..108e2000 100644
--- a/base/tools/psb_dallc.f90
+++ b/base/tools/psb_dallc.f90
@@ -40,7 +40,7 @@
 !    x      - the vector to be allocated.
 !    desc_a - the communication descriptor.
 !    info   - Return code
-subroutine psb_dalloc_vect(x, desc_a,info)
+subroutine psb_dalloc_vect(x, desc_a,info, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_dalloc_vect
   use psi_mod
   implicit none
@@ -49,9 +49,11 @@ subroutine psb_dalloc_vect(x, desc_a,info)
   type(psb_d_vect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   integer(psb_ipk_) :: np,me,nr,i,err_act
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
@@ -102,6 +104,25 @@ subroutine psb_dalloc_vect(x, desc_a,info)
   endif
   call x%zero()
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  call x%set_nrmv(0)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    call psb_ensure_size(nrmt_,x%rmtv,info)
+    call psb_ensure_size(nrmt_,x%rmidx,info)
+  end if
+
   call psb_erractionrestore(err_act)
   return
 
@@ -110,6 +131,7 @@ subroutine psb_dalloc_vect(x, desc_a,info)
   return
 
 end subroutine psb_dalloc_vect
+
 ! Function: psb_dalloc_vect_r2
 !    Allocates a vector of dense vectors for PSBLAS routines. 
 !    The descriptor may be in either the build or assembled state.
@@ -121,7 +143,7 @@ end subroutine psb_dalloc_vect
 !    n      - optional number of columns.
 !    lb     - optional lower bound on column indices
 
-subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb)
+subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_dalloc_vect_r2
   use psi_mod
   implicit none
@@ -131,10 +153,12 @@ subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n,lb
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -208,6 +232,26 @@ subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb)
       if (info /= 0) exit
     end do
   end if
+
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  
+  do i=lb_, lb_+n_-1
+    call x(i)%set_dupl(dupl_)
+    call x(i)%set_remote_build(bldmode_)
+    if (x(i)%is_remote_build()) then
+      nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+      allocate(x(i)%rmtv(nrmt_))
+    end if
+  end do
   if (psb_errstatus_fatal()) then 
     info=psb_err_alloc_request_
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
@@ -224,7 +268,7 @@ subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb)
 end subroutine psb_dalloc_vect_r2
 
 
-subroutine psb_dalloc_multivect(x, desc_a,info,n)
+subroutine psb_dalloc_multivect(x, desc_a,info,n, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_dalloc_multivect
   use psi_mod
   implicit none
@@ -234,10 +278,12 @@ subroutine psb_dalloc_multivect(x, desc_a,info,n)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -306,6 +352,23 @@ subroutine psb_dalloc_multivect(x, desc_a,info,n)
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
     goto 9999
   endif
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    allocate(x%rmtv(nrmt_,n_))
+  end if
+
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/tools/psb_dasb.f90 b/base/tools/psb_dasb.f90
index 5ebee093..f8225496 100644
--- a/base/tools/psb_dasb.f90
+++ b/base/tools/psb_dasb.f90
@@ -64,7 +64,7 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -83,7 +83,7 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
+  dupl_ = x%get_dupl()
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -104,6 +104,23 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch)
     call x%free(info)
     call x%bld(ncol,mold=mold)
   else
+    
+    if (x%is_remote_build()) then
+      block
+        integer(psb_lpk_), allocatable :: lvx(:)
+        real(psb_dpk_), allocatable  :: vx(:)
+        integer(psb_ipk_), allocatable :: ivx(:) 
+        integer(psb_ipk_) :: nrmv, nx, i
+
+        nrmv = x%get_nrmv()        
+        call psb_d_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info)
+        nx  = size(vx)
+        call psb_realloc(nx,ivx,info)
+        call desc_a%g2l(lvx,ivx,info,owned=.true.)
+        call x%ins(nx,ivx,vx,info)
+      end block
+    end if
+
     call x%asb(ncol,info)
     ! ..update halo elements..
     call psb_halo(x,desc_a,info)
@@ -140,7 +157,7 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, i, n 
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -159,7 +176,6 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -185,6 +201,7 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch)
 
   else
     do i=1, n
+      dupl_ = x(i)%get_dupl()
       call x(i)%asb(ncol,info)
       if (info /= 0) exit
       ! ..update halo elements..
@@ -225,7 +242,7 @@ subroutine psb_dasb_multivect(x, desc_a, info, mold, scratch,n)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_
   logical :: scratch_
   
   integer(psb_ipk_) :: debug_level, debug_unit
@@ -271,6 +288,7 @@ subroutine psb_dasb_multivect(x, desc_a, info, mold, scratch,n)
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol
 
+  dupl_ = x%get_dupl()
   if (scratch_) then 
     call x%free(info)
     call x%bld(ncol,n_,mold=mold)
diff --git a/base/tools/psb_dins.f90 b/base/tools/psb_dins.f90
index 3e873ded..d3529229 100644
--- a/base/tools/psb_dins.f90
+++ b/base/tools/psb_dins.f90
@@ -42,10 +42,7 @@
 !    x       - type(psb_d_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_dins_vect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_dins_vect
   use psi_mod
   implicit none
@@ -57,14 +54,14 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_d_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
+  integer(psb_ipk_) :: dupl_
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_,err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -112,7 +109,6 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local)
   endif
 
 
-
   allocate(irl(m),stat=info) 
   if (info /= psb_success_) then 
     info = psb_err_alloc_dealloc_
@@ -120,11 +116,6 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -136,11 +127,33 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
   end if
+  if (x%is_remote_build()) then
+    block
+      integer(psb_ipk_) :: j,k
+      k = x%get_nrmv()
+      do j=1,m
+        if (irl(j) < 0 ) then 
+          k = k + 1
+          call psb_ensure_size(k,x%rmtv,info)
+          if (info == 0) call psb_ensure_size(k,x%rmidx,info)
+          if (info /= 0) then
+            info = psb_err_alloc_dealloc_
+            call psb_errpush(info,name)
+            goto 9999
+          end if
+          x%rmtv(k)  = val(j)
+          x%rmidx(k) = irw(j)
+          call x%set_nrmv(k)
+        end if
+      end do
+    end block
+  end if
+            
   deallocate(irl)
 
   call psb_erractionrestore(err_act)
@@ -166,10 +179,7 @@ end subroutine psb_dins_vect
 !    x       - type(psb_d_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_dins_vect_v
   use psi_mod
   implicit none
@@ -185,14 +195,13 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_d_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_
+  integer(psb_ipk_) :: np, me
   integer(psb_ipk_), allocatable   :: irl(:)
   real(psb_dpk_), allocatable   :: lval(:)
   logical :: local_
@@ -239,14 +248,6 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call psb_errpush(info,name)
     goto 9999
   endif
-
-
-
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -260,7 +261,7 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.)
   end if
 
-  call x%ins(m,irl,lval,dupl_,info) 
+  call x%ins(m,irl,lval,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
@@ -275,7 +276,7 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_dins_vect_v
 
-subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_dins_vect_r2
   use psi_mod
   implicit none
@@ -291,14 +292,13 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_d_vect_type), intent(inout) :: x(:)
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols, n
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -353,11 +353,6 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -371,8 +366,9 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   end if
 
   do i=1,n
+
     if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_
-    if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) 
+    if (info == 0) call x(i)%ins(m,irl,val(:,i),info) 
     if (info /= 0) exit
   end do
   if (info /= 0) then 
@@ -390,7 +386,7 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_dins_vect_r2
 
-subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_dins_multivect
   use psi_mod
   implicit none
@@ -406,14 +402,13 @@ subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_d_multivect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -469,11 +464,6 @@ subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -485,7 +475,7 @@ subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90
index 56ad6c93..433d7129 100644
--- a/base/tools/psb_dspalloc.f90
+++ b/base/tools/psb_dspalloc.f90
@@ -41,21 +41,23 @@
 !    nnz      - integer(optional).             The number of nonzeroes in the matrix.
 !                                              (local, user estimate)
 !
-subroutine psb_dspalloc(a, desc_a, info, nnz)
+subroutine psb_dspalloc(a, desc_a, info, nnz, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_dspalloc
   implicit none
 
   !....parameters...
-  type(psb_desc_type), intent(in) :: desc_a
-  type(psb_dspmat_type), intent(inout) :: a
-  integer(psb_ipk_), intent(out)               :: info
-  integer(psb_ipk_), optional, intent(in)      :: nnz
+  type(psb_desc_type), intent(in)         :: desc_a
+  type(psb_dspmat_type), intent(inout)    :: a
+  integer(psb_ipk_), intent(out)          :: info
+  integer(psb_ipk_), optional, intent(in) :: nnz
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
-  integer(psb_lpk_) :: m, n
+  integer(psb_ipk_) :: dupl_, bldmode_
+  integer(psb_lpk_) :: m, n, nnzrmt_ 
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
 
@@ -96,7 +98,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
   else 
     nnz_ = max(1,5*loc_row)
   endif
-
+  
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name), &
        & ':allocating size:',loc_row,loc_col,nnz_
@@ -109,6 +111,24 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
     goto 9999
   end if
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call a%set_dupl(dupl_)
+  call a%set_remote_build(bldmode_)
+  if (a%is_remote_build()) then
+    allocate(a%rmta)
+    nnzrmt_ = max(100,(nnz_/100))
+    call a%rmta%allocate(m,n,nnzrmt_)
+  end if
+
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': ',  &
        & desc_a%get_dectype(),psb_desc_bld_
diff --git a/base/tools/psb_dspasb.f90 b/base/tools/psb_dspasb.f90
index 457553f7..3132f249 100644
--- a/base/tools/psb_dspasb.f90
+++ b/base/tools/psb_dspasb.f90
@@ -42,31 +42,29 @@
 !    upd      - character(optional).         How will the matrix be updated? 
 !                                            psb_upd_srch_    Simple strategy  
 !                                            psb_upd_perm_    Permutation(more memory)
-!    dupl     - integer(optional).           Duplicate coefficient handling:
-!                                            psb_dupl_ovwrt_     overwrite
-!                                            psb_dupl_add_       add 
-!                                            psb_dupl_err_       raise an error. 
 ! 
 !
-subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold)
+subroutine psb_dspasb(a,desc_a, info, afmt, upd, mold)
   use psb_base_mod, psb_protect_name => psb_dspasb
+  use psb_sort_mod
   use psi_mod
   implicit none
 
 
   !...Parameters....
-  type(psb_dspmat_type), intent (inout)  :: a
-  type(psb_desc_type), intent(in)         :: desc_a
-  integer(psb_ipk_), intent(out)                    :: info
-  integer(psb_ipk_),optional, intent(in)            :: dupl, upd
-  character(len=*), optional, intent(in)         :: afmt
+  type(psb_dspmat_type), intent (inout)    :: a
+  type(psb_desc_type), intent(inout)       :: desc_a
+  integer(psb_ipk_), intent(out)           :: info
+  integer(psb_ipk_), optional, intent(in)  :: upd
+  character(len=*), optional, intent(in)   :: afmt
   class(psb_d_base_sparse_mat), intent(in), optional :: mold
   !....Locals....
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, err_act
-  integer(psb_ipk_) :: n_row,n_col
+  integer(psb_ipk_) :: n_row,n_col, dupl_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)     :: name, ch_err
+  class(psb_i_base_vect_type), allocatable :: ivm
 
   info = psb_success_
   name = 'psb_spasb'
@@ -92,28 +90,79 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold)
     goto 9999
   end if
 
-
   if (debug_level >= psb_debug_ext_)&
        & write(debug_unit, *) me,' ',trim(name),&
        & '   Begin matrix assembly...'
 
   !check on errors encountered in psdspins
 
-
-  if (a%is_bld()) then 
+  if (a%is_bld()) then
+    dupl_ = a%get_dupl()
     !
     ! First case: we come from a fresh build. 
     ! 
-
-    n_row = desc_a%get_local_rows()
-    n_col = desc_a%get_local_cols()
-    call a%set_nrows(n_row)
-    call a%set_ncols(n_col)
-  end if
-
-  if (a%is_bld()) then 
-    call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_ld_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz  = a_add%get_nzeros()
+        nzt = nz
+        call psb_sum(ctxt,nzt)
+        if (nzt>0) then
+          allocate(ivm, mold=desc_a%v_halo_index%v)
+          call psb_cd_reinit(desc_a, info)
+        end if
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+        if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm)
+
+      end block
+    end if
+    call a%set_ncols(desc_a%get_local_cols())    
+    call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_)
   else if (a%is_upd()) then 
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_ld_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz = a_add%get_nzeros()
+!!$        write(0,*) me,name,' Nz to be added',nz
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+      end block
+    end if
     call a%asb(mold=mold)
   else
     info = psb_err_invalid_mat_state_
diff --git a/base/tools/psb_dspins.F90 b/base/tools/psb_dspins.F90
index 3e9ef0cc..2a70ab83 100644
--- a/base/tools/psb_dspins.F90
+++ b/base/tools/psb_dspins.F90
@@ -70,6 +70,10 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
   integer(psb_ipk_), parameter     :: relocsz=200
   logical                :: rebuild_, local_
   integer(psb_ipk_), allocatable   :: ila(:),jla(:)
+  integer(psb_ipk_)      :: i,k
+  integer(psb_lpk_)      :: nnl
+  integer(psb_lpk_), allocatable   :: lila(:),ljla(:)
+  real(psb_dpk_), allocatable     :: lval(:)
   character(len=20)  :: name
 
   info = psb_success_
@@ -147,6 +151,27 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
           call psb_errpush(info,name,a_err='a%csput')
           goto 9999
         end if
+
+        if (a%is_remote_build()) then 
+          nnl = count(ila(1:nz)<0)
+          if (nnl > 0) then 
+            !write(0,*) 'Check on insert ',nnl
+            allocate(lila(nnl),ljla(nnl),lval(nnl))
+            k = 0
+            do i=1,nz
+              if (ila(i)<0) then
+                k=k+1
+                lila(k) = ia(i)
+                ljla(k) = ja(i)
+                lval(k) = val(i)
+              end if
+            end do
+            if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+            call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+                 & 1_psb_lpk_,desc_a%get_global_rows(),info)
+          end if
+        end if
+          
       else
         info = psb_err_invalid_a_and_cd_state_
         call psb_errpush(info,name)
@@ -168,8 +193,9 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       ila(1:nz) = ia(1:nz)
       jla(1:nz) = ja(1:nz)
     else
-      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info)
-      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info)
+      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
+      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,&
+           & mask=(ila(1:nz)>0))
     end if
     call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info)
     if (info /= psb_success_) then
@@ -177,6 +203,25 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       call psb_errpush(info,name,a_err='a%csput')
       goto 9999
     end if
+    if (a%is_remote_build()) then 
+      nnl = count(ila(1:nz)<0)
+      if (nnl > 0) then 
+        !write(0,*) 'Check on insert ',nnl
+        allocate(lila(nnl),ljla(nnl),lval(nnl))
+        k = 0
+        do i=1,nz
+          if (ila(i)<0) then
+            k=k+1
+            lila(k) = ia(k)
+            ljla(k) = ja(k)
+            lval(k) = val(k)
+          end if
+        end do
+        if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+        call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+             & 1_psb_lpk_,desc_a%get_global_rows(),info)
+      end if
+    end if
   else
     info = psb_err_invalid_cd_state_
     call psb_errpush(info,name)
diff --git a/base/tools/psb_iallc.f90 b/base/tools/psb_iallc.f90
index ac4ee840..7ed69ed6 100644
--- a/base/tools/psb_iallc.f90
+++ b/base/tools/psb_iallc.f90
@@ -40,7 +40,7 @@
 !    x      - the vector to be allocated.
 !    desc_a - the communication descriptor.
 !    info   - Return code
-subroutine psb_ialloc_vect(x, desc_a,info)
+subroutine psb_ialloc_vect(x, desc_a,info, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_ialloc_vect
   use psi_mod
   implicit none
@@ -49,9 +49,11 @@ subroutine psb_ialloc_vect(x, desc_a,info)
   type(psb_i_vect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   integer(psb_ipk_) :: np,me,nr,i,err_act
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
@@ -102,6 +104,25 @@ subroutine psb_ialloc_vect(x, desc_a,info)
   endif
   call x%zero()
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  call x%set_nrmv(0)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    call psb_ensure_size(nrmt_,x%rmtv,info)
+    call psb_ensure_size(nrmt_,x%rmidx,info)
+  end if
+
   call psb_erractionrestore(err_act)
   return
 
@@ -110,6 +131,7 @@ subroutine psb_ialloc_vect(x, desc_a,info)
   return
 
 end subroutine psb_ialloc_vect
+
 ! Function: psb_ialloc_vect_r2
 !    Allocates a vector of dense vectors for PSBLAS routines. 
 !    The descriptor may be in either the build or assembled state.
@@ -121,7 +143,7 @@ end subroutine psb_ialloc_vect
 !    n      - optional number of columns.
 !    lb     - optional lower bound on column indices
 
-subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb)
+subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_ialloc_vect_r2
   use psi_mod
   implicit none
@@ -131,10 +153,12 @@ subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n,lb
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -208,6 +232,26 @@ subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb)
       if (info /= 0) exit
     end do
   end if
+
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  
+  do i=lb_, lb_+n_-1
+    call x(i)%set_dupl(dupl_)
+    call x(i)%set_remote_build(bldmode_)
+    if (x(i)%is_remote_build()) then
+      nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+      allocate(x(i)%rmtv(nrmt_))
+    end if
+  end do
   if (psb_errstatus_fatal()) then 
     info=psb_err_alloc_request_
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
@@ -224,7 +268,7 @@ subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb)
 end subroutine psb_ialloc_vect_r2
 
 
-subroutine psb_ialloc_multivect(x, desc_a,info,n)
+subroutine psb_ialloc_multivect(x, desc_a,info,n, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_ialloc_multivect
   use psi_mod
   implicit none
@@ -234,10 +278,12 @@ subroutine psb_ialloc_multivect(x, desc_a,info,n)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -306,6 +352,23 @@ subroutine psb_ialloc_multivect(x, desc_a,info,n)
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
     goto 9999
   endif
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    allocate(x%rmtv(nrmt_,n_))
+  end if
+
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/tools/psb_iasb.f90 b/base/tools/psb_iasb.f90
index d0cf2d83..5e09d331 100644
--- a/base/tools/psb_iasb.f90
+++ b/base/tools/psb_iasb.f90
@@ -64,7 +64,7 @@ subroutine psb_iasb_vect(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -83,7 +83,7 @@ subroutine psb_iasb_vect(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
+  dupl_ = x%get_dupl()
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -104,6 +104,23 @@ subroutine psb_iasb_vect(x, desc_a, info, mold, scratch)
     call x%free(info)
     call x%bld(ncol,mold=mold)
   else
+    
+    if (x%is_remote_build()) then
+      block
+        integer(psb_lpk_), allocatable :: lvx(:)
+        integer(psb_ipk_), allocatable  :: vx(:)
+        integer(psb_ipk_), allocatable :: ivx(:) 
+        integer(psb_ipk_) :: nrmv, nx, i
+
+        nrmv = x%get_nrmv()        
+        call psb_i_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info)
+        nx  = size(vx)
+        call psb_realloc(nx,ivx,info)
+        call desc_a%g2l(lvx,ivx,info,owned=.true.)
+        call x%ins(nx,ivx,vx,info)
+      end block
+    end if
+
     call x%asb(ncol,info)
     ! ..update halo elements..
     call psb_halo(x,desc_a,info)
@@ -140,7 +157,7 @@ subroutine psb_iasb_vect_r2(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, i, n 
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -159,7 +176,6 @@ subroutine psb_iasb_vect_r2(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -185,6 +201,7 @@ subroutine psb_iasb_vect_r2(x, desc_a, info, mold, scratch)
 
   else
     do i=1, n
+      dupl_ = x(i)%get_dupl()
       call x(i)%asb(ncol,info)
       if (info /= 0) exit
       ! ..update halo elements..
@@ -225,7 +242,7 @@ subroutine psb_iasb_multivect(x, desc_a, info, mold, scratch,n)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_
   logical :: scratch_
   
   integer(psb_ipk_) :: debug_level, debug_unit
@@ -271,6 +288,7 @@ subroutine psb_iasb_multivect(x, desc_a, info, mold, scratch,n)
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol
 
+  dupl_ = x%get_dupl()
   if (scratch_) then 
     call x%free(info)
     call x%bld(ncol,n_,mold=mold)
diff --git a/base/tools/psb_iins.f90 b/base/tools/psb_iins.f90
index c9c0ed9b..4fa53429 100644
--- a/base/tools/psb_iins.f90
+++ b/base/tools/psb_iins.f90
@@ -42,10 +42,7 @@
 !    x       - type(psb_i_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_iins_vect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_iins_vect
   use psi_mod
   implicit none
@@ -57,14 +54,14 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_i_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
+  integer(psb_ipk_) :: dupl_
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_,err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -112,7 +109,6 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local)
   endif
 
 
-
   allocate(irl(m),stat=info) 
   if (info /= psb_success_) then 
     info = psb_err_alloc_dealloc_
@@ -120,11 +116,6 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -136,11 +127,33 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
   end if
+  if (x%is_remote_build()) then
+    block
+      integer(psb_ipk_) :: j,k
+      k = x%get_nrmv()
+      do j=1,m
+        if (irl(j) < 0 ) then 
+          k = k + 1
+          call psb_ensure_size(k,x%rmtv,info)
+          if (info == 0) call psb_ensure_size(k,x%rmidx,info)
+          if (info /= 0) then
+            info = psb_err_alloc_dealloc_
+            call psb_errpush(info,name)
+            goto 9999
+          end if
+          x%rmtv(k)  = val(j)
+          x%rmidx(k) = irw(j)
+          call x%set_nrmv(k)
+        end if
+      end do
+    end block
+  end if
+            
   deallocate(irl)
 
   call psb_erractionrestore(err_act)
@@ -166,10 +179,7 @@ end subroutine psb_iins_vect
 !    x       - type(psb_i_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_iins_vect_v
   use psi_mod
   implicit none
@@ -185,14 +195,13 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_i_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_
+  integer(psb_ipk_) :: np, me
   integer(psb_ipk_), allocatable   :: irl(:)
   integer(psb_ipk_), allocatable   :: lval(:)
   logical :: local_
@@ -239,14 +248,6 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call psb_errpush(info,name)
     goto 9999
   endif
-
-
-
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -260,7 +261,7 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.)
   end if
 
-  call x%ins(m,irl,lval,dupl_,info) 
+  call x%ins(m,irl,lval,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
@@ -275,7 +276,7 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_iins_vect_v
 
-subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_iins_vect_r2
   use psi_mod
   implicit none
@@ -291,14 +292,13 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_i_vect_type), intent(inout) :: x(:)
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols, n
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -353,11 +353,6 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -371,8 +366,9 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   end if
 
   do i=1,n
+
     if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_
-    if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) 
+    if (info == 0) call x(i)%ins(m,irl,val(:,i),info) 
     if (info /= 0) exit
   end do
   if (info /= 0) then 
@@ -390,7 +386,7 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_iins_vect_r2
 
-subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_iins_multivect
   use psi_mod
   implicit none
@@ -406,14 +402,13 @@ subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_i_multivect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -469,11 +464,6 @@ subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -485,7 +475,7 @@ subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
diff --git a/base/tools/psb_lallc.f90 b/base/tools/psb_lallc.f90
index 85fd67e7..53857029 100644
--- a/base/tools/psb_lallc.f90
+++ b/base/tools/psb_lallc.f90
@@ -40,7 +40,7 @@
 !    x      - the vector to be allocated.
 !    desc_a - the communication descriptor.
 !    info   - Return code
-subroutine psb_lalloc_vect(x, desc_a,info)
+subroutine psb_lalloc_vect(x, desc_a,info, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_lalloc_vect
   use psi_mod
   implicit none
@@ -49,9 +49,11 @@ subroutine psb_lalloc_vect(x, desc_a,info)
   type(psb_l_vect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   integer(psb_ipk_) :: np,me,nr,i,err_act
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
@@ -102,6 +104,25 @@ subroutine psb_lalloc_vect(x, desc_a,info)
   endif
   call x%zero()
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  call x%set_nrmv(0)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    call psb_ensure_size(nrmt_,x%rmtv,info)
+    call psb_ensure_size(nrmt_,x%rmidx,info)
+  end if
+
   call psb_erractionrestore(err_act)
   return
 
@@ -110,6 +131,7 @@ subroutine psb_lalloc_vect(x, desc_a,info)
   return
 
 end subroutine psb_lalloc_vect
+
 ! Function: psb_lalloc_vect_r2
 !    Allocates a vector of dense vectors for PSBLAS routines. 
 !    The descriptor may be in either the build or assembled state.
@@ -121,7 +143,7 @@ end subroutine psb_lalloc_vect
 !    n      - optional number of columns.
 !    lb     - optional lower bound on column indices
 
-subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb)
+subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_lalloc_vect_r2
   use psi_mod
   implicit none
@@ -131,10 +153,12 @@ subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n,lb
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -208,6 +232,26 @@ subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb)
       if (info /= 0) exit
     end do
   end if
+
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  
+  do i=lb_, lb_+n_-1
+    call x(i)%set_dupl(dupl_)
+    call x(i)%set_remote_build(bldmode_)
+    if (x(i)%is_remote_build()) then
+      nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+      allocate(x(i)%rmtv(nrmt_))
+    end if
+  end do
   if (psb_errstatus_fatal()) then 
     info=psb_err_alloc_request_
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
@@ -224,7 +268,7 @@ subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb)
 end subroutine psb_lalloc_vect_r2
 
 
-subroutine psb_lalloc_multivect(x, desc_a,info,n)
+subroutine psb_lalloc_multivect(x, desc_a,info,n, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_lalloc_multivect
   use psi_mod
   implicit none
@@ -234,10 +278,12 @@ subroutine psb_lalloc_multivect(x, desc_a,info,n)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -306,6 +352,23 @@ subroutine psb_lalloc_multivect(x, desc_a,info,n)
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
     goto 9999
   endif
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    allocate(x%rmtv(nrmt_,n_))
+  end if
+
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/tools/psb_lasb.f90 b/base/tools/psb_lasb.f90
index 1618abdb..1110ee11 100644
--- a/base/tools/psb_lasb.f90
+++ b/base/tools/psb_lasb.f90
@@ -64,7 +64,7 @@ subroutine psb_lasb_vect(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -83,7 +83,7 @@ subroutine psb_lasb_vect(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
+  dupl_ = x%get_dupl()
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -104,6 +104,23 @@ subroutine psb_lasb_vect(x, desc_a, info, mold, scratch)
     call x%free(info)
     call x%bld(ncol,mold=mold)
   else
+    
+    if (x%is_remote_build()) then
+      block
+        integer(psb_lpk_), allocatable :: lvx(:)
+        integer(psb_lpk_), allocatable  :: vx(:)
+        integer(psb_ipk_), allocatable :: ivx(:) 
+        integer(psb_ipk_) :: nrmv, nx, i
+
+        nrmv = x%get_nrmv()        
+        call psb_l_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info)
+        nx  = size(vx)
+        call psb_realloc(nx,ivx,info)
+        call desc_a%g2l(lvx,ivx,info,owned=.true.)
+        call x%ins(nx,ivx,vx,info)
+      end block
+    end if
+
     call x%asb(ncol,info)
     ! ..update halo elements..
     call psb_halo(x,desc_a,info)
@@ -140,7 +157,7 @@ subroutine psb_lasb_vect_r2(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, i, n 
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -159,7 +176,6 @@ subroutine psb_lasb_vect_r2(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -185,6 +201,7 @@ subroutine psb_lasb_vect_r2(x, desc_a, info, mold, scratch)
 
   else
     do i=1, n
+      dupl_ = x(i)%get_dupl()
       call x(i)%asb(ncol,info)
       if (info /= 0) exit
       ! ..update halo elements..
@@ -225,7 +242,7 @@ subroutine psb_lasb_multivect(x, desc_a, info, mold, scratch,n)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_
   logical :: scratch_
   
   integer(psb_ipk_) :: debug_level, debug_unit
@@ -271,6 +288,7 @@ subroutine psb_lasb_multivect(x, desc_a, info, mold, scratch,n)
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol
 
+  dupl_ = x%get_dupl()
   if (scratch_) then 
     call x%free(info)
     call x%bld(ncol,n_,mold=mold)
diff --git a/base/tools/psb_lins.f90 b/base/tools/psb_lins.f90
index 42559a94..90da8111 100644
--- a/base/tools/psb_lins.f90
+++ b/base/tools/psb_lins.f90
@@ -42,10 +42,7 @@
 !    x       - type(psb_l_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_lins_vect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_lins_vect
   use psi_mod
   implicit none
@@ -57,14 +54,14 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_l_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
+  integer(psb_ipk_) :: dupl_
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_,err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -112,7 +109,6 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local)
   endif
 
 
-
   allocate(irl(m),stat=info) 
   if (info /= psb_success_) then 
     info = psb_err_alloc_dealloc_
@@ -120,11 +116,6 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -136,11 +127,33 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
   end if
+  if (x%is_remote_build()) then
+    block
+      integer(psb_ipk_) :: j,k
+      k = x%get_nrmv()
+      do j=1,m
+        if (irl(j) < 0 ) then 
+          k = k + 1
+          call psb_ensure_size(k,x%rmtv,info)
+          if (info == 0) call psb_ensure_size(k,x%rmidx,info)
+          if (info /= 0) then
+            info = psb_err_alloc_dealloc_
+            call psb_errpush(info,name)
+            goto 9999
+          end if
+          x%rmtv(k)  = val(j)
+          x%rmidx(k) = irw(j)
+          call x%set_nrmv(k)
+        end if
+      end do
+    end block
+  end if
+            
   deallocate(irl)
 
   call psb_erractionrestore(err_act)
@@ -166,10 +179,7 @@ end subroutine psb_lins_vect
 !    x       - type(psb_l_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_lins_vect_v
   use psi_mod
   implicit none
@@ -185,14 +195,13 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_l_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_
+  integer(psb_ipk_) :: np, me
   integer(psb_ipk_), allocatable   :: irl(:)
   integer(psb_lpk_), allocatable   :: lval(:)
   logical :: local_
@@ -239,14 +248,6 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call psb_errpush(info,name)
     goto 9999
   endif
-
-
-
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -260,7 +261,7 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.)
   end if
 
-  call x%ins(m,irl,lval,dupl_,info) 
+  call x%ins(m,irl,lval,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
@@ -275,7 +276,7 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_lins_vect_v
 
-subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_lins_vect_r2
   use psi_mod
   implicit none
@@ -291,14 +292,13 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_l_vect_type), intent(inout) :: x(:)
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols, n
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -353,11 +353,6 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -371,8 +366,9 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   end if
 
   do i=1,n
+
     if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_
-    if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) 
+    if (info == 0) call x(i)%ins(m,irl,val(:,i),info) 
     if (info /= 0) exit
   end do
   if (info /= 0) then 
@@ -390,7 +386,7 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_lins_vect_r2
 
-subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_lins_multivect
   use psi_mod
   implicit none
@@ -406,14 +402,13 @@ subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_l_multivect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -469,11 +464,6 @@ subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -485,7 +475,7 @@ subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
diff --git a/base/tools/psb_s_remote_mat.F90 b/base/tools/psb_s_remote_mat.F90
new file mode 100644
index 00000000..d0886304
--- /dev/null
+++ b/base/tools/psb_s_remote_mat.F90
@@ -0,0 +1,436 @@
+!   
+!                Parallel Sparse BLAS  version 3.5
+!      (C) Copyright 2006-2018
+!        Salvatore Filippone    
+!        Alfredo Buttari      
+!   
+!    Redistribution and use in source and binary forms, with or without
+!    modification, are permitted provided that the following conditions
+!    are met:
+!      1. Redistributions of source code must retain the above copyright
+!         notice, this list of conditions and the following disclaimer.
+!      2. Redistributions in binary form must reproduce the above copyright
+!         notice, this list of conditions, and the following disclaimer in the
+!         documentation and/or other materials provided with the distribution.
+!      3. The name of the PSBLAS group or the names of its contributors may
+!         not be used to endorse or promote products derived from this
+!         software without specific written permission.
+!   
+!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+!    ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+!    TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+!    PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
+!    BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+!    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+!    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+!    INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+!    CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+!    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+!    POSSIBILITY OF SUCH DAMAGE.
+!   
+!    
+! File: psb_s_remote_mat.f90
+!
+! Subroutine: 
+!  This routine does the retrieval of remote matrix rows.                   
+!  Retrieval is done through GETROW, therefore it should work      
+!  for any matrix format in A; as for the output, default is CSR.
+!  
+!  There is also a specialized version ls_CSR whose interface
+!  is adapted for the needs of s_par_csr_spspmm. 
+!
+!  There are three possible exchange algorithms:
+!  1. Use MPI_Alltoallv
+!  2. Use psb_simple_a2av
+!  3. Use psb_simple_triad_a2av
+!  Default choice is 3. The MPI variant has proved to be inefficient;
+!  that is because it is not persistent, therefore you pay the initialization price
+!  every time, and it is not optimized for a sparse communication pattern,
+!  most MPI implementations assume that all communications are non-empty.
+!  The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic
+!  sequence of sends/receive that is quite efficient for a sparse communication
+!  pattern. To be refined/reviewed in the future to compare with neighbour
+!  persistent collectives. 
+! 
+! Arguments: 
+!    a        - type(psb_sspmat_type)   The local part of input matrix A
+!    desc_a   - type(psb_desc_type).  The communication descriptor.
+!    blck     - type(psb_sspmat_type)   The local part of output matrix BLCK
+!    info     - integer.                Return code
+!    rowcnv   - logical                 Should row/col indices be converted
+!    colcnv   - logical                 to/from global numbering when sent/received?
+!                                       default is .TRUE.
+!    rowscale - logical                 Should row/col indices on output be remapped
+!    colscale - logical                 from MIN:MAX  to 1:(MAX-MIN+1) ? 
+!                                       default is .FALSE. 
+!                                       (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.)
+!    data     - integer                 Which index list in desc_a should be used to retrieve
+!                                       rows, default psb_comm_halo_
+!                                       psb_comm_halo_    use halo_index
+!                                       psb_comm_ext_     use ext_index 
+!                                       psb_comm_ovrl_  DISABLED for this routine.
+!
+Subroutine psb_ls_remote_mat(a,desc_a,b,info)
+  use psb_base_mod, psb_protect_name => psb_ls_remote_mat
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+
+  Type(psb_ls_coo_sparse_mat),Intent(inout)  :: a
+  Type(psb_ls_coo_sparse_mat),Intent(inout)  :: b
+  Type(psb_desc_type), Intent(inout)         :: desc_a
+  integer(psb_ipk_), intent(out)                :: info
+
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, &
+       &     n_elem, j, ipx,idxs,idxr
+  integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, &
+       & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem
+  integer(psb_lpk_) :: nz,nouth
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: iasnd(:), jasnd(:)
+  real(psb_spk_), allocatable :: valsnd(:)
+  type(psb_ls_coo_sparse_mat), allocatable :: acoo
+  class(psb_i_base_vect_type), pointer :: pdxv
+  integer(psb_ipk_), allocatable :: ila(:), iprc(:)
+  logical           :: rowcnv_,colcnv_,rowscale_,colscale_
+  character(len=5)  :: outfmt_
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_s_remote_mat'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+
+  call b%free() 
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), acoo,stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+
+  nz = a%get_nzeros()
+  !allocate(ila(nz))
+  !write(0,*) me,name,' size :',nz,size(ila)        
+  !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.)
+  !nouth = count(ila(1:nz)<0)
+  !write(0,*) me,name,' Count out of halo :',nouth
+  !call psb_max(ctxt,nouth)
+  !if ((nouth/=0).and.(me==0)) &
+  !     & write(0,*) 'Warning: would require reinit of DESC_A'
+
+  call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info)
+
+  icomm = desc_a%get_mpic()
+  sdsz(:)=0
+  rvsz(:)=0
+  sdsi(:)=0
+  rvsi(:)=0
+  ipx = 1
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter=1
+  idx = 0
+  idxs = 0
+  idxr = 0
+  do  i=1,nz
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs = 0
+  idxr = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr)
+  if (psb_errstatus_fatal()) then
+    write(0,*) 'Error from acoo%allocate '
+    info = 4010
+    goto 9999
+  end if
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),&
+       & ' Send:',sdsz(:),' Receive:',rvsz(:)
+  !write(debug_unit,*) me,' ',trim(name),': ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='ensure_size')
+    goto 9999
+  end if
+  do k=1, nz
+    proc = iprc(k)
+    sdsi(proc+1) = sdsi(proc+1) + 1
+    !rvsi(proc) = rvsi(proc) + 1 
+    iasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ia(k)
+    jasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ja(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_)
+    call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
+         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & acoo%val,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,&
+         & acoo%ia,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
+         & acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_spk_,&
+         & acoo%val,rvsz,brvindx,psb_mpi_r_spk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  call acoo%set_nzeros(iszr)
+  call acoo%mv_to_coo(b,info)
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & iasnd,jasnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_ls_remote_mat
+
+
+subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info)
+  use psb_base_mod, psb_protect_name => psb_s_remote_vect
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+  integer(psb_ipk_), intent(in)  :: n
+  real(psb_spk_),   Intent(in)  :: v(:)
+  integer(psb_lpk_), Intent(in)  :: iv(:)
+  type(psb_desc_type),intent(in) :: desc_a
+  real(psb_spk_),   allocatable, intent(out) :: x(:)
+  integer(psb_lpk_), allocatable, intent(out) :: ix(:)
+  integer(psb_ipk_), intent(out) :: info
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i,  &
+       &     j,  idxs,idxr, k, iszs, iszr
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: lsnd(:)
+  real(psb_spk_), allocatable :: valsnd(:)
+  integer(psb_ipk_), allocatable :: iprc(:)
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_s_remote_vect'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt  = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+  call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info)
+
+  icomm   = desc_a%get_mpic()
+  sdsz(:) = 0
+  rvsz(:) = 0
+  sdsi(:) = 0
+  rvsi(:) = 0
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter = 1
+  idxs    = 0
+  idxr    = 0
+  do  i=1,n
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs  = 0
+  idxr  = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call psb_realloc(iszs,lsnd,info)
+  if (info == 0) call psb_realloc(iszs,valsnd,info)
+  if (info == 0) call psb_realloc(iszr,x,info)
+  if (info == 0) call psb_realloc(iszr,ix,info)
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='realloc')
+    goto 9999
+  end if
+  do k=1, n
+    proc           = iprc(k)
+    sdsi(proc+1)   = sdsi(proc+1) + 1
+    lsnd(bsdindx(proc+1)+sdsi(proc+1))   = iv(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & x,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,&
+         & ix,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_spk_,&
+         & x,rvsz,brvindx,psb_mpi_r_spk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & lsnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_s_remote_vect
diff --git a/base/tools/psb_sallc.f90 b/base/tools/psb_sallc.f90
index 941ce917..951d8128 100644
--- a/base/tools/psb_sallc.f90
+++ b/base/tools/psb_sallc.f90
@@ -40,7 +40,7 @@
 !    x      - the vector to be allocated.
 !    desc_a - the communication descriptor.
 !    info   - Return code
-subroutine psb_salloc_vect(x, desc_a,info)
+subroutine psb_salloc_vect(x, desc_a,info, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_salloc_vect
   use psi_mod
   implicit none
@@ -49,9 +49,11 @@ subroutine psb_salloc_vect(x, desc_a,info)
   type(psb_s_vect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   integer(psb_ipk_) :: np,me,nr,i,err_act
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
@@ -102,6 +104,25 @@ subroutine psb_salloc_vect(x, desc_a,info)
   endif
   call x%zero()
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  call x%set_nrmv(0)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    call psb_ensure_size(nrmt_,x%rmtv,info)
+    call psb_ensure_size(nrmt_,x%rmidx,info)
+  end if
+
   call psb_erractionrestore(err_act)
   return
 
@@ -110,6 +131,7 @@ subroutine psb_salloc_vect(x, desc_a,info)
   return
 
 end subroutine psb_salloc_vect
+
 ! Function: psb_salloc_vect_r2
 !    Allocates a vector of dense vectors for PSBLAS routines. 
 !    The descriptor may be in either the build or assembled state.
@@ -121,7 +143,7 @@ end subroutine psb_salloc_vect
 !    n      - optional number of columns.
 !    lb     - optional lower bound on column indices
 
-subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb)
+subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_salloc_vect_r2
   use psi_mod
   implicit none
@@ -131,10 +153,12 @@ subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n,lb
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -208,6 +232,26 @@ subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb)
       if (info /= 0) exit
     end do
   end if
+
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  
+  do i=lb_, lb_+n_-1
+    call x(i)%set_dupl(dupl_)
+    call x(i)%set_remote_build(bldmode_)
+    if (x(i)%is_remote_build()) then
+      nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+      allocate(x(i)%rmtv(nrmt_))
+    end if
+  end do
   if (psb_errstatus_fatal()) then 
     info=psb_err_alloc_request_
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
@@ -224,7 +268,7 @@ subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb)
 end subroutine psb_salloc_vect_r2
 
 
-subroutine psb_salloc_multivect(x, desc_a,info,n)
+subroutine psb_salloc_multivect(x, desc_a,info,n, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_salloc_multivect
   use psi_mod
   implicit none
@@ -234,10 +278,12 @@ subroutine psb_salloc_multivect(x, desc_a,info,n)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -306,6 +352,23 @@ subroutine psb_salloc_multivect(x, desc_a,info,n)
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
     goto 9999
   endif
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    allocate(x%rmtv(nrmt_,n_))
+  end if
+
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/tools/psb_sasb.f90 b/base/tools/psb_sasb.f90
index ac3a0684..7238fecf 100644
--- a/base/tools/psb_sasb.f90
+++ b/base/tools/psb_sasb.f90
@@ -64,7 +64,7 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -83,7 +83,7 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
+  dupl_ = x%get_dupl()
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -104,6 +104,23 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch)
     call x%free(info)
     call x%bld(ncol,mold=mold)
   else
+    
+    if (x%is_remote_build()) then
+      block
+        integer(psb_lpk_), allocatable :: lvx(:)
+        real(psb_spk_), allocatable  :: vx(:)
+        integer(psb_ipk_), allocatable :: ivx(:) 
+        integer(psb_ipk_) :: nrmv, nx, i
+
+        nrmv = x%get_nrmv()        
+        call psb_s_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info)
+        nx  = size(vx)
+        call psb_realloc(nx,ivx,info)
+        call desc_a%g2l(lvx,ivx,info,owned=.true.)
+        call x%ins(nx,ivx,vx,info)
+      end block
+    end if
+
     call x%asb(ncol,info)
     ! ..update halo elements..
     call psb_halo(x,desc_a,info)
@@ -140,7 +157,7 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, i, n 
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -159,7 +176,6 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -185,6 +201,7 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch)
 
   else
     do i=1, n
+      dupl_ = x(i)%get_dupl()
       call x(i)%asb(ncol,info)
       if (info /= 0) exit
       ! ..update halo elements..
@@ -225,7 +242,7 @@ subroutine psb_sasb_multivect(x, desc_a, info, mold, scratch,n)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_
   logical :: scratch_
   
   integer(psb_ipk_) :: debug_level, debug_unit
@@ -271,6 +288,7 @@ subroutine psb_sasb_multivect(x, desc_a, info, mold, scratch,n)
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol
 
+  dupl_ = x%get_dupl()
   if (scratch_) then 
     call x%free(info)
     call x%bld(ncol,n_,mold=mold)
diff --git a/base/tools/psb_sins.f90 b/base/tools/psb_sins.f90
index cb878c64..ddead81f 100644
--- a/base/tools/psb_sins.f90
+++ b/base/tools/psb_sins.f90
@@ -42,10 +42,7 @@
 !    x       - type(psb_s_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_sins_vect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_sins_vect
   use psi_mod
   implicit none
@@ -57,14 +54,14 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_s_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
+  integer(psb_ipk_) :: dupl_
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_,err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -112,7 +109,6 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local)
   endif
 
 
-
   allocate(irl(m),stat=info) 
   if (info /= psb_success_) then 
     info = psb_err_alloc_dealloc_
@@ -120,11 +116,6 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -136,11 +127,33 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
   end if
+  if (x%is_remote_build()) then
+    block
+      integer(psb_ipk_) :: j,k
+      k = x%get_nrmv()
+      do j=1,m
+        if (irl(j) < 0 ) then 
+          k = k + 1
+          call psb_ensure_size(k,x%rmtv,info)
+          if (info == 0) call psb_ensure_size(k,x%rmidx,info)
+          if (info /= 0) then
+            info = psb_err_alloc_dealloc_
+            call psb_errpush(info,name)
+            goto 9999
+          end if
+          x%rmtv(k)  = val(j)
+          x%rmidx(k) = irw(j)
+          call x%set_nrmv(k)
+        end if
+      end do
+    end block
+  end if
+            
   deallocate(irl)
 
   call psb_erractionrestore(err_act)
@@ -166,10 +179,7 @@ end subroutine psb_sins_vect
 !    x       - type(psb_s_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_sins_vect_v
   use psi_mod
   implicit none
@@ -185,14 +195,13 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_s_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_
+  integer(psb_ipk_) :: np, me
   integer(psb_ipk_), allocatable   :: irl(:)
   real(psb_spk_), allocatable   :: lval(:)
   logical :: local_
@@ -239,14 +248,6 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call psb_errpush(info,name)
     goto 9999
   endif
-
-
-
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -260,7 +261,7 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.)
   end if
 
-  call x%ins(m,irl,lval,dupl_,info) 
+  call x%ins(m,irl,lval,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
@@ -275,7 +276,7 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_sins_vect_v
 
-subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_sins_vect_r2
   use psi_mod
   implicit none
@@ -291,14 +292,13 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_s_vect_type), intent(inout) :: x(:)
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols, n
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -353,11 +353,6 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -371,8 +366,9 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   end if
 
   do i=1,n
+
     if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_
-    if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) 
+    if (info == 0) call x(i)%ins(m,irl,val(:,i),info) 
     if (info /= 0) exit
   end do
   if (info /= 0) then 
@@ -390,7 +386,7 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_sins_vect_r2
 
-subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_sins_multivect
   use psi_mod
   implicit none
@@ -406,14 +402,13 @@ subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_s_multivect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -469,11 +464,6 @@ subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -485,7 +475,7 @@ subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90
index 15c3c538..8004e742 100644
--- a/base/tools/psb_sspalloc.f90
+++ b/base/tools/psb_sspalloc.f90
@@ -41,21 +41,23 @@
 !    nnz      - integer(optional).             The number of nonzeroes in the matrix.
 !                                              (local, user estimate)
 !
-subroutine psb_sspalloc(a, desc_a, info, nnz)
+subroutine psb_sspalloc(a, desc_a, info, nnz, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_sspalloc
   implicit none
 
   !....parameters...
-  type(psb_desc_type), intent(in) :: desc_a
-  type(psb_sspmat_type), intent(inout) :: a
-  integer(psb_ipk_), intent(out)               :: info
-  integer(psb_ipk_), optional, intent(in)      :: nnz
+  type(psb_desc_type), intent(in)         :: desc_a
+  type(psb_sspmat_type), intent(inout)    :: a
+  integer(psb_ipk_), intent(out)          :: info
+  integer(psb_ipk_), optional, intent(in) :: nnz
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
-  integer(psb_lpk_) :: m, n
+  integer(psb_ipk_) :: dupl_, bldmode_
+  integer(psb_lpk_) :: m, n, nnzrmt_ 
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
 
@@ -96,7 +98,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
   else 
     nnz_ = max(1,5*loc_row)
   endif
-
+  
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name), &
        & ':allocating size:',loc_row,loc_col,nnz_
@@ -109,6 +111,24 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
     goto 9999
   end if
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call a%set_dupl(dupl_)
+  call a%set_remote_build(bldmode_)
+  if (a%is_remote_build()) then
+    allocate(a%rmta)
+    nnzrmt_ = max(100,(nnz_/100))
+    call a%rmta%allocate(m,n,nnzrmt_)
+  end if
+
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': ',  &
        & desc_a%get_dectype(),psb_desc_bld_
diff --git a/base/tools/psb_sspasb.f90 b/base/tools/psb_sspasb.f90
index f4e6169d..cfa316eb 100644
--- a/base/tools/psb_sspasb.f90
+++ b/base/tools/psb_sspasb.f90
@@ -42,31 +42,29 @@
 !    upd      - character(optional).         How will the matrix be updated? 
 !                                            psb_upd_srch_    Simple strategy  
 !                                            psb_upd_perm_    Permutation(more memory)
-!    dupl     - integer(optional).           Duplicate coefficient handling:
-!                                            psb_dupl_ovwrt_     overwrite
-!                                            psb_dupl_add_       add 
-!                                            psb_dupl_err_       raise an error. 
 ! 
 !
-subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
+subroutine psb_sspasb(a,desc_a, info, afmt, upd, mold)
   use psb_base_mod, psb_protect_name => psb_sspasb
+  use psb_sort_mod
   use psi_mod
   implicit none
 
 
   !...Parameters....
-  type(psb_sspmat_type), intent (inout)  :: a
-  type(psb_desc_type), intent(in)         :: desc_a
-  integer(psb_ipk_), intent(out)                    :: info
-  integer(psb_ipk_),optional, intent(in)            :: dupl, upd
-  character(len=*), optional, intent(in)         :: afmt
+  type(psb_sspmat_type), intent (inout)    :: a
+  type(psb_desc_type), intent(inout)       :: desc_a
+  integer(psb_ipk_), intent(out)           :: info
+  integer(psb_ipk_), optional, intent(in)  :: upd
+  character(len=*), optional, intent(in)   :: afmt
   class(psb_s_base_sparse_mat), intent(in), optional :: mold
   !....Locals....
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, err_act
-  integer(psb_ipk_) :: n_row,n_col
+  integer(psb_ipk_) :: n_row,n_col, dupl_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)     :: name, ch_err
+  class(psb_i_base_vect_type), allocatable :: ivm
 
   info = psb_success_
   name = 'psb_spasb'
@@ -92,28 +90,79 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
     goto 9999
   end if
 
-
   if (debug_level >= psb_debug_ext_)&
        & write(debug_unit, *) me,' ',trim(name),&
        & '   Begin matrix assembly...'
 
   !check on errors encountered in psdspins
 
-
-  if (a%is_bld()) then 
+  if (a%is_bld()) then
+    dupl_ = a%get_dupl()
     !
     ! First case: we come from a fresh build. 
     ! 
-
-    n_row = desc_a%get_local_rows()
-    n_col = desc_a%get_local_cols()
-    call a%set_nrows(n_row)
-    call a%set_ncols(n_col)
-  end if
-
-  if (a%is_bld()) then 
-    call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_ls_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz  = a_add%get_nzeros()
+        nzt = nz
+        call psb_sum(ctxt,nzt)
+        if (nzt>0) then
+          allocate(ivm, mold=desc_a%v_halo_index%v)
+          call psb_cd_reinit(desc_a, info)
+        end if
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+        if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm)
+
+      end block
+    end if
+    call a%set_ncols(desc_a%get_local_cols())    
+    call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_)
   else if (a%is_upd()) then 
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_ls_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz = a_add%get_nzeros()
+!!$        write(0,*) me,name,' Nz to be added',nz
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+      end block
+    end if
     call a%asb(mold=mold)
   else
     info = psb_err_invalid_mat_state_
diff --git a/base/tools/psb_sspins.F90 b/base/tools/psb_sspins.F90
index 1fd6eed0..aee7a900 100644
--- a/base/tools/psb_sspins.F90
+++ b/base/tools/psb_sspins.F90
@@ -70,6 +70,10 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
   integer(psb_ipk_), parameter     :: relocsz=200
   logical                :: rebuild_, local_
   integer(psb_ipk_), allocatable   :: ila(:),jla(:)
+  integer(psb_ipk_)      :: i,k
+  integer(psb_lpk_)      :: nnl
+  integer(psb_lpk_), allocatable   :: lila(:),ljla(:)
+  real(psb_spk_), allocatable     :: lval(:)
   character(len=20)  :: name
 
   info = psb_success_
@@ -147,6 +151,27 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
           call psb_errpush(info,name,a_err='a%csput')
           goto 9999
         end if
+
+        if (a%is_remote_build()) then 
+          nnl = count(ila(1:nz)<0)
+          if (nnl > 0) then 
+            !write(0,*) 'Check on insert ',nnl
+            allocate(lila(nnl),ljla(nnl),lval(nnl))
+            k = 0
+            do i=1,nz
+              if (ila(i)<0) then
+                k=k+1
+                lila(k) = ia(i)
+                ljla(k) = ja(i)
+                lval(k) = val(i)
+              end if
+            end do
+            if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+            call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+                 & 1_psb_lpk_,desc_a%get_global_rows(),info)
+          end if
+        end if
+          
       else
         info = psb_err_invalid_a_and_cd_state_
         call psb_errpush(info,name)
@@ -168,8 +193,9 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       ila(1:nz) = ia(1:nz)
       jla(1:nz) = ja(1:nz)
     else
-      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info)
-      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info)
+      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
+      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,&
+           & mask=(ila(1:nz)>0))
     end if
     call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info)
     if (info /= psb_success_) then
@@ -177,6 +203,25 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       call psb_errpush(info,name,a_err='a%csput')
       goto 9999
     end if
+    if (a%is_remote_build()) then 
+      nnl = count(ila(1:nz)<0)
+      if (nnl > 0) then 
+        !write(0,*) 'Check on insert ',nnl
+        allocate(lila(nnl),ljla(nnl),lval(nnl))
+        k = 0
+        do i=1,nz
+          if (ila(i)<0) then
+            k=k+1
+            lila(k) = ia(k)
+            ljla(k) = ja(k)
+            lval(k) = val(k)
+          end if
+        end do
+        if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+        call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+             & 1_psb_lpk_,desc_a%get_global_rows(),info)
+      end if
+    end if
   else
     info = psb_err_invalid_cd_state_
     call psb_errpush(info,name)
diff --git a/base/tools/psb_z_remote_mat.F90 b/base/tools/psb_z_remote_mat.F90
new file mode 100644
index 00000000..fc23bd4a
--- /dev/null
+++ b/base/tools/psb_z_remote_mat.F90
@@ -0,0 +1,436 @@
+!   
+!                Parallel Sparse BLAS  version 3.5
+!      (C) Copyright 2006-2018
+!        Salvatore Filippone    
+!        Alfredo Buttari      
+!   
+!    Redistribution and use in source and binary forms, with or without
+!    modification, are permitted provided that the following conditions
+!    are met:
+!      1. Redistributions of source code must retain the above copyright
+!         notice, this list of conditions and the following disclaimer.
+!      2. Redistributions in binary form must reproduce the above copyright
+!         notice, this list of conditions, and the following disclaimer in the
+!         documentation and/or other materials provided with the distribution.
+!      3. The name of the PSBLAS group or the names of its contributors may
+!         not be used to endorse or promote products derived from this
+!         software without specific written permission.
+!   
+!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+!    ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+!    TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+!    PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
+!    BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+!    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+!    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+!    INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+!    CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+!    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+!    POSSIBILITY OF SUCH DAMAGE.
+!   
+!    
+! File: psb_z_remote_mat.f90
+!
+! Subroutine: 
+!  This routine does the retrieval of remote matrix rows.                   
+!  Retrieval is done through GETROW, therefore it should work      
+!  for any matrix format in A; as for the output, default is CSR.
+!  
+!  There is also a specialized version lz_CSR whose interface
+!  is adapted for the needs of z_par_csr_spspmm. 
+!
+!  There are three possible exchange algorithms:
+!  1. Use MPI_Alltoallv
+!  2. Use psb_simple_a2av
+!  3. Use psb_simple_triad_a2av
+!  Default choice is 3. The MPI variant has proved to be inefficient;
+!  that is because it is not persistent, therefore you pay the initialization price
+!  every time, and it is not optimized for a sparse communication pattern,
+!  most MPI implementations assume that all communications are non-empty.
+!  The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic
+!  sequence of sends/receive that is quite efficient for a sparse communication
+!  pattern. To be refined/reviewed in the future to compare with neighbour
+!  persistent collectives. 
+! 
+! Arguments: 
+!    a        - type(psb_zspmat_type)   The local part of input matrix A
+!    desc_a   - type(psb_desc_type).  The communication descriptor.
+!    blck     - type(psb_zspmat_type)   The local part of output matrix BLCK
+!    info     - integer.                Return code
+!    rowcnv   - logical                 Should row/col indices be converted
+!    colcnv   - logical                 to/from global numbering when sent/received?
+!                                       default is .TRUE.
+!    rowscale - logical                 Should row/col indices on output be remapped
+!    colscale - logical                 from MIN:MAX  to 1:(MAX-MIN+1) ? 
+!                                       default is .FALSE. 
+!                                       (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.)
+!    data     - integer                 Which index list in desc_a should be used to retrieve
+!                                       rows, default psb_comm_halo_
+!                                       psb_comm_halo_    use halo_index
+!                                       psb_comm_ext_     use ext_index 
+!                                       psb_comm_ovrl_  DISABLED for this routine.
+!
+Subroutine psb_lz_remote_mat(a,desc_a,b,info)
+  use psb_base_mod, psb_protect_name => psb_lz_remote_mat
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+
+  Type(psb_lz_coo_sparse_mat),Intent(inout)  :: a
+  Type(psb_lz_coo_sparse_mat),Intent(inout)  :: b
+  Type(psb_desc_type), Intent(inout)         :: desc_a
+  integer(psb_ipk_), intent(out)                :: info
+
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, &
+       &     n_elem, j, ipx,idxs,idxr
+  integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, &
+       & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem
+  integer(psb_lpk_) :: nz,nouth
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: iasnd(:), jasnd(:)
+  complex(psb_dpk_), allocatable :: valsnd(:)
+  type(psb_lz_coo_sparse_mat), allocatable :: acoo
+  class(psb_i_base_vect_type), pointer :: pdxv
+  integer(psb_ipk_), allocatable :: ila(:), iprc(:)
+  logical           :: rowcnv_,colcnv_,rowscale_,colscale_
+  character(len=5)  :: outfmt_
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_z_remote_mat'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+
+  call b%free() 
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), acoo,stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+
+  nz = a%get_nzeros()
+  !allocate(ila(nz))
+  !write(0,*) me,name,' size :',nz,size(ila)        
+  !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.)
+  !nouth = count(ila(1:nz)<0)
+  !write(0,*) me,name,' Count out of halo :',nouth
+  !call psb_max(ctxt,nouth)
+  !if ((nouth/=0).and.(me==0)) &
+  !     & write(0,*) 'Warning: would require reinit of DESC_A'
+
+  call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info)
+
+  icomm = desc_a%get_mpic()
+  sdsz(:)=0
+  rvsz(:)=0
+  sdsi(:)=0
+  rvsi(:)=0
+  ipx = 1
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter=1
+  idx = 0
+  idxs = 0
+  idxr = 0
+  do  i=1,nz
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs = 0
+  idxr = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr)
+  if (psb_errstatus_fatal()) then
+    write(0,*) 'Error from acoo%allocate '
+    info = 4010
+    goto 9999
+  end if
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),&
+       & ' Send:',sdsz(:),' Receive:',rvsz(:)
+  !write(debug_unit,*) me,' ',trim(name),': ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info
+  if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
+  !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='ensure_size')
+    goto 9999
+  end if
+  do k=1, nz
+    proc = iprc(k)
+    sdsi(proc+1) = sdsi(proc+1) + 1
+    !rvsi(proc) = rvsi(proc) + 1 
+    iasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ia(k)
+    jasnd(bsdindx(proc+1)+sdsi(proc+1))  = a%ja(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_)
+    call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
+         & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & acoo%val,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,&
+         & acoo%ia,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
+         & acoo%ja,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_dpk_,&
+         & acoo%val,rvsz,brvindx,psb_mpi_c_dpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  call acoo%set_nzeros(iszr)
+  call acoo%mv_to_coo(b,info)
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & iasnd,jasnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_lz_remote_mat
+
+
+subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info)
+  use psb_base_mod, psb_protect_name => psb_z_remote_vect
+
+#ifdef MPI_MOD
+  use mpi
+#endif
+  Implicit None
+#ifdef MPI_H
+  include 'mpif.h'
+#endif
+  integer(psb_ipk_), intent(in)  :: n
+  complex(psb_dpk_),   Intent(in)  :: v(:)
+  integer(psb_lpk_), Intent(in)  :: iv(:)
+  type(psb_desc_type),intent(in) :: desc_a
+  complex(psb_dpk_),   allocatable, intent(out) :: x(:)
+  integer(psb_lpk_), allocatable, intent(out) :: ix(:)
+  integer(psb_ipk_), intent(out) :: info
+  !     ...local scalars....
+  type(psb_ctxt_type) :: ctxt
+  integer(psb_ipk_) :: np,me
+  integer(psb_ipk_) :: counter, proc, i,  &
+       &     j,  idxs,idxr, k, iszs, iszr
+  integer(psb_ipk_) :: nrcvs, nsnds
+  integer(psb_mpk_) :: icomm, minfo
+  integer(psb_mpk_), allocatable  :: brvindx(:), &
+       & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) 
+  integer(psb_lpk_), allocatable  :: lsnd(:)
+  complex(psb_dpk_), allocatable :: valsnd(:)
+  integer(psb_ipk_), allocatable :: iprc(:)
+  integer(psb_ipk_) :: debug_level, debug_unit, err_act
+  character(len=20) :: name, ch_err
+
+  info=psb_success_
+  name='psb_z_remote_vect'
+  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if
+  debug_unit  = psb_get_debug_unit()
+  debug_level = psb_get_debug_level()
+
+  ctxt  = desc_a%get_context()
+  icomm = desc_a%get_mpic()
+
+  Call psb_info(ctxt, me, np)
+
+  if (debug_level >= psb_debug_outer_) &
+       & write(debug_unit,*) me,' ',trim(name),': Start'
+
+  Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),&
+       & bsdindx(np+1), stat=info)
+
+  if (info /= psb_success_) then
+    info=psb_err_alloc_dealloc_
+    call psb_errpush(info,name)
+    goto 9999
+  end if
+
+  call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info)
+
+  icomm   = desc_a%get_mpic()
+  sdsz(:) = 0
+  rvsz(:) = 0
+  sdsi(:) = 0
+  rvsi(:) = 0
+  brvindx(:) = 0
+  bsdindx(:) = 0
+  counter = 1
+  idxs    = 0
+  idxr    = 0
+  do  i=1,n
+    if (iprc(i) >=0) then
+      sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1
+    else
+      write(0,*)me,name,' Error from fnd_owner: ',iprc(i)
+    end if
+  end do
+  call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& 
+       & rvsz,1,psb_mpi_mpk_,icomm,minfo)
+  if (minfo /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='mpi_alltoall')
+    goto 9999
+  end if
+  !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:)        
+  nsnds = count(sdsz /= 0)
+  nrcvs = count(rvsz /= 0)
+  idxs  = 0
+  idxr  = 0
+  counter = 1
+  Do proc=0,np-1
+    bsdindx(proc+1) = idxs
+    idxs            = idxs + sdsz(proc+1)
+    brvindx(proc+1) = idxr
+    idxr     = idxr + rvsz(proc+1)
+  Enddo
+
+  iszs = sum(sdsz)
+  iszr = sum(rvsz)
+  call psb_realloc(iszs,lsnd,info)
+  if (info == 0) call psb_realloc(iszs,valsnd,info)
+  if (info == 0) call psb_realloc(iszr,x,info)
+  if (info == 0) call psb_realloc(iszr,ix,info)
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='realloc')
+    goto 9999
+  end if
+  do k=1, n
+    proc           = iprc(k)
+    sdsi(proc+1)   = sdsi(proc+1) + 1
+    lsnd(bsdindx(proc+1)+sdsi(proc+1))   = iv(k)
+    valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k)
+  end do
+  do proc=0,np-1
+    if (sdsi(proc+1) /= sdsz(proc+1)) &
+         & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1)
+  end do
+
+  select case(psb_get_sp_a2av_alg())
+  case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_)
+    call psb_simple_a2av(valsnd,sdsz,bsdindx,&
+         & x,rvsz,brvindx,ctxt,info)
+    if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,&
+         & ix,rvsz,brvindx,ctxt,info)
+  case(psb_sp_a2av_mpi_)
+
+    call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_dpk_,&
+         & x,rvsz,brvindx,psb_mpi_c_dpk_,icomm,minfo)
+    if (minfo == mpi_success) &
+         & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,&
+         & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo)
+    if (minfo /= mpi_success) info = minfo
+  case default
+    info = psb_err_internal_error_
+    call psb_errpush(info,name,a_err='wrong A2AV alg selector')
+    goto 9999
+  end select
+
+  if (info /= psb_success_) then
+    info=psb_err_from_subroutine_
+    call psb_errpush(info,name,a_err='alltoallv')
+    goto 9999
+  end if
+  
+  Deallocate(brvindx,bsdindx,rvsz,sdsz,&
+       & lsnd,valsnd,stat=info)
+  if (debug_level >= psb_debug_outer_)&
+       & write(debug_unit,*) me,' ',trim(name),': Done'
+
+  call psb_erractionrestore(err_act)
+  return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+  return
+
+End Subroutine psb_z_remote_vect
diff --git a/base/tools/psb_zallc.f90 b/base/tools/psb_zallc.f90
index fa84827e..be4d9089 100644
--- a/base/tools/psb_zallc.f90
+++ b/base/tools/psb_zallc.f90
@@ -40,7 +40,7 @@
 !    x      - the vector to be allocated.
 !    desc_a - the communication descriptor.
 !    info   - Return code
-subroutine psb_zalloc_vect(x, desc_a,info)
+subroutine psb_zalloc_vect(x, desc_a,info, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_zalloc_vect
   use psi_mod
   implicit none
@@ -49,9 +49,11 @@ subroutine psb_zalloc_vect(x, desc_a,info)
   type(psb_z_vect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   integer(psb_ipk_) :: np,me,nr,i,err_act
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
@@ -102,6 +104,25 @@ subroutine psb_zalloc_vect(x, desc_a,info)
   endif
   call x%zero()
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  call x%set_nrmv(0)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    call psb_ensure_size(nrmt_,x%rmtv,info)
+    call psb_ensure_size(nrmt_,x%rmidx,info)
+  end if
+
   call psb_erractionrestore(err_act)
   return
 
@@ -110,6 +131,7 @@ subroutine psb_zalloc_vect(x, desc_a,info)
   return
 
 end subroutine psb_zalloc_vect
+
 ! Function: psb_zalloc_vect_r2
 !    Allocates a vector of dense vectors for PSBLAS routines. 
 !    The descriptor may be in either the build or assembled state.
@@ -121,7 +143,7 @@ end subroutine psb_zalloc_vect
 !    n      - optional number of columns.
 !    lb     - optional lower bound on column indices
 
-subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb)
+subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_zalloc_vect_r2
   use psi_mod
   implicit none
@@ -131,10 +153,12 @@ subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n,lb
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -208,6 +232,26 @@ subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb)
       if (info /= 0) exit
     end do
   end if
+
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  
+  do i=lb_, lb_+n_-1
+    call x(i)%set_dupl(dupl_)
+    call x(i)%set_remote_build(bldmode_)
+    if (x(i)%is_remote_build()) then
+      nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+      allocate(x(i)%rmtv(nrmt_))
+    end if
+  end do
   if (psb_errstatus_fatal()) then 
     info=psb_err_alloc_request_
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
@@ -224,7 +268,7 @@ subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb)
 end subroutine psb_zalloc_vect_r2
 
 
-subroutine psb_zalloc_multivect(x, desc_a,info,n)
+subroutine psb_zalloc_multivect(x, desc_a,info,n, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_zalloc_multivect
   use psi_mod
   implicit none
@@ -234,10 +278,12 @@ subroutine psb_zalloc_multivect(x, desc_a,info,n)
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_
+  integer(psb_ipk_) :: dupl_, bldmode_, nrmt_
   integer(psb_ipk_) :: exch(1)
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)  :: name
@@ -306,6 +352,23 @@ subroutine psb_zalloc_multivect(x, desc_a,info,n)
     call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)')
     goto 9999
   endif
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call x%set_dupl(dupl_)
+  call x%set_remote_build(bldmode_)
+  if (x%is_remote_build()) then
+    nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows()))
+    allocate(x%rmtv(nrmt_,n_))
+  end if
+
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/tools/psb_zasb.f90 b/base/tools/psb_zasb.f90
index 34706841..11c08d6d 100644
--- a/base/tools/psb_zasb.f90
+++ b/base/tools/psb_zasb.f90
@@ -64,7 +64,7 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -83,7 +83,7 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
+  dupl_ = x%get_dupl()
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -104,6 +104,23 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch)
     call x%free(info)
     call x%bld(ncol,mold=mold)
   else
+    
+    if (x%is_remote_build()) then
+      block
+        integer(psb_lpk_), allocatable :: lvx(:)
+        complex(psb_dpk_), allocatable  :: vx(:)
+        integer(psb_ipk_), allocatable :: ivx(:) 
+        integer(psb_ipk_) :: nrmv, nx, i
+
+        nrmv = x%get_nrmv()        
+        call psb_z_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info)
+        nx  = size(vx)
+        call psb_realloc(nx,ivx,info)
+        call desc_a%g2l(lvx,ivx,info,owned=.true.)
+        call x%ins(nx,ivx,vx,info)
+      end block
+    end if
+
     call x%asb(ncol,info)
     ! ..update halo elements..
     call psb_halo(x,desc_a,info)
@@ -140,7 +157,7 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, i, n 
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_
   logical :: scratch_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)    :: name,ch_err
@@ -159,7 +176,6 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch)
   scratch_ = .false.
   if (present(scratch)) scratch_ = scratch
   call psb_info(ctxt, me, np)
-
   !     ....verify blacs grid correctness..
   if (np == -1) then
     info = psb_err_context_error_
@@ -185,6 +201,7 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch)
 
   else
     do i=1, n
+      dupl_ = x(i)%get_dupl()
       call x(i)%asb(ncol,info)
       if (info /= 0) exit
       ! ..update halo elements..
@@ -225,7 +242,7 @@ subroutine psb_zasb_multivect(x, desc_a, info, mold, scratch,n)
   ! local variables
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me
-  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_
+  integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_
   logical :: scratch_
   
   integer(psb_ipk_) :: debug_level, debug_unit
@@ -271,6 +288,7 @@ subroutine psb_zasb_multivect(x, desc_a, info, mold, scratch,n)
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol
 
+  dupl_ = x%get_dupl()
   if (scratch_) then 
     call x%free(info)
     call x%bld(ncol,n_,mold=mold)
diff --git a/base/tools/psb_zins.f90 b/base/tools/psb_zins.f90
index 19020379..43e5d5cd 100644
--- a/base/tools/psb_zins.f90
+++ b/base/tools/psb_zins.f90
@@ -42,10 +42,7 @@
 !    x       - type(psb_z_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_zins_vect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_zins_vect
   use psi_mod
   implicit none
@@ -57,14 +54,14 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_z_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
+  integer(psb_ipk_) :: dupl_
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_,err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -112,7 +109,6 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local)
   endif
 
 
-
   allocate(irl(m),stat=info) 
   if (info /= psb_success_) then 
     info = psb_err_alloc_dealloc_
@@ -120,11 +116,6 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -136,11 +127,33 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
   end if
+  if (x%is_remote_build()) then
+    block
+      integer(psb_ipk_) :: j,k
+      k = x%get_nrmv()
+      do j=1,m
+        if (irl(j) < 0 ) then 
+          k = k + 1
+          call psb_ensure_size(k,x%rmtv,info)
+          if (info == 0) call psb_ensure_size(k,x%rmidx,info)
+          if (info /= 0) then
+            info = psb_err_alloc_dealloc_
+            call psb_errpush(info,name)
+            goto 9999
+          end if
+          x%rmtv(k)  = val(j)
+          x%rmidx(k) = irw(j)
+          call x%set_nrmv(k)
+        end if
+      end do
+    end block
+  end if
+            
   deallocate(irl)
 
   call psb_erractionrestore(err_act)
@@ -166,10 +179,7 @@ end subroutine psb_zins_vect
 !    x       - type(psb_z_vect_type) The destination vector
 !    desc_a  - type(psb_desc_type).         The communication descriptor.
 !    info    - integer.                       return code
-!    dupl    - integer               What to do with duplicates: 
-!                                     psb_dupl_ovwrt_    overwrite
-!                                     psb_dupl_add_      add         
-subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_zins_vect_v
   use psi_mod
   implicit none
@@ -185,14 +195,13 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_z_vect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_
+  integer(psb_ipk_) :: np, me
   integer(psb_ipk_), allocatable   :: irl(:)
   complex(psb_dpk_), allocatable   :: lval(:)
   logical :: local_
@@ -239,14 +248,6 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call psb_errpush(info,name)
     goto 9999
   endif
-
-
-
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -260,7 +261,7 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
     call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.)
   end if
 
-  call x%ins(m,irl,lval,dupl_,info) 
+  call x%ins(m,irl,lval,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
@@ -275,7 +276,7 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_zins_vect_v
 
-subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_zins_vect_r2
   use psi_mod
   implicit none
@@ -291,14 +292,13 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_z_vect_type), intent(inout) :: x(:)
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols, n
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -353,11 +353,6 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -371,8 +366,9 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
   end if
 
   do i=1,n
+
     if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_
-    if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) 
+    if (info == 0) call x(i)%ins(m,irl,val(:,i),info) 
     if (info /= 0) exit
   end do
   if (info /= 0) then 
@@ -390,7 +386,7 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local)
 
 end subroutine psb_zins_vect_r2
 
-subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local)
+subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, local)
   use psb_base_mod, psb_protect_name => psb_zins_multivect
   use psi_mod
   implicit none
@@ -406,14 +402,13 @@ subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   type(psb_z_multivect_type), intent(inout) :: x
   type(psb_desc_type), intent(in)      :: desc_a
   integer(psb_ipk_), intent(out)                 :: info
-  integer(psb_ipk_), optional, intent(in)        :: dupl
   logical, intent(in), optional        :: local
 
   !locals.....
   integer(psb_ipk_) :: i, loc_rows,loc_cols
   integer(psb_lpk_) :: mglob
   type(psb_ctxt_type) :: ctxt
-  integer(psb_ipk_) :: np, me, dupl_, err_act
+  integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_), allocatable   :: irl(:)
   logical :: local_
   character(len=20)      :: name
@@ -469,11 +464,6 @@ subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local)
     goto 9999
   endif
 
-  if (present(dupl)) then 
-    dupl_ = dupl
-  else
-    dupl_ = psb_dupl_ovwrt_
-  endif
   if (present(local)) then 
     local_ = local
   else
@@ -485,7 +475,7 @@ subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local)
   else
     call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.)
   end if
-  call x%ins(m,irl,val,dupl_,info) 
+  call x%ins(m,irl,val,info) 
   if (info /= 0) then 
     call psb_errpush(info,name)
     goto 9999
diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90
index 16d48734..308774ef 100644
--- a/base/tools/psb_zspalloc.f90
+++ b/base/tools/psb_zspalloc.f90
@@ -41,21 +41,23 @@
 !    nnz      - integer(optional).             The number of nonzeroes in the matrix.
 !                                              (local, user estimate)
 !
-subroutine psb_zspalloc(a, desc_a, info, nnz)
+subroutine psb_zspalloc(a, desc_a, info, nnz, dupl, bldmode)
   use psb_base_mod, psb_protect_name => psb_zspalloc
   implicit none
 
   !....parameters...
-  type(psb_desc_type), intent(in) :: desc_a
-  type(psb_zspmat_type), intent(inout) :: a
-  integer(psb_ipk_), intent(out)               :: info
-  integer(psb_ipk_), optional, intent(in)      :: nnz
+  type(psb_desc_type), intent(in)         :: desc_a
+  type(psb_zspmat_type), intent(inout)    :: a
+  integer(psb_ipk_), intent(out)          :: info
+  integer(psb_ipk_), optional, intent(in) :: nnz
+  integer(psb_ipk_), optional, intent(in) :: dupl, bldmode
 
   !locals
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me, err_act
   integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
-  integer(psb_lpk_) :: m, n
+  integer(psb_ipk_) :: dupl_, bldmode_
+  integer(psb_lpk_) :: m, n, nnzrmt_ 
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
 
@@ -96,7 +98,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
   else 
     nnz_ = max(1,5*loc_row)
   endif
-
+  
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name), &
        & ':allocating size:',loc_row,loc_col,nnz_
@@ -109,6 +111,24 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
     goto 9999
   end if
 
+  if (present(bldmode)) then
+    bldmode_ = bldmode
+  else
+    bldmode_ = psb_matbld_noremote_
+  end if
+  if (present(dupl)) then
+    dupl_ = dupl 
+  else
+    dupl_ = psb_dupl_def_
+  end if
+  call a%set_dupl(dupl_)
+  call a%set_remote_build(bldmode_)
+  if (a%is_remote_build()) then
+    allocate(a%rmta)
+    nnzrmt_ = max(100,(nnz_/100))
+    call a%rmta%allocate(m,n,nnzrmt_)
+  end if
+
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': ',  &
        & desc_a%get_dectype(),psb_desc_bld_
diff --git a/base/tools/psb_zspasb.f90 b/base/tools/psb_zspasb.f90
index b5966110..aeeef94d 100644
--- a/base/tools/psb_zspasb.f90
+++ b/base/tools/psb_zspasb.f90
@@ -42,31 +42,29 @@
 !    upd      - character(optional).         How will the matrix be updated? 
 !                                            psb_upd_srch_    Simple strategy  
 !                                            psb_upd_perm_    Permutation(more memory)
-!    dupl     - integer(optional).           Duplicate coefficient handling:
-!                                            psb_dupl_ovwrt_     overwrite
-!                                            psb_dupl_add_       add 
-!                                            psb_dupl_err_       raise an error. 
 ! 
 !
-subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold)
+subroutine psb_zspasb(a,desc_a, info, afmt, upd, mold)
   use psb_base_mod, psb_protect_name => psb_zspasb
+  use psb_sort_mod
   use psi_mod
   implicit none
 
 
   !...Parameters....
-  type(psb_zspmat_type), intent (inout)  :: a
-  type(psb_desc_type), intent(in)         :: desc_a
-  integer(psb_ipk_), intent(out)                    :: info
-  integer(psb_ipk_),optional, intent(in)            :: dupl, upd
-  character(len=*), optional, intent(in)         :: afmt
+  type(psb_zspmat_type), intent (inout)    :: a
+  type(psb_desc_type), intent(inout)       :: desc_a
+  integer(psb_ipk_), intent(out)           :: info
+  integer(psb_ipk_), optional, intent(in)  :: upd
+  character(len=*), optional, intent(in)   :: afmt
   class(psb_z_base_sparse_mat), intent(in), optional :: mold
   !....Locals....
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np,me, err_act
-  integer(psb_ipk_) :: n_row,n_col
+  integer(psb_ipk_) :: n_row,n_col, dupl_
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)     :: name, ch_err
+  class(psb_i_base_vect_type), allocatable :: ivm
 
   info = psb_success_
   name = 'psb_spasb'
@@ -92,28 +90,79 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold)
     goto 9999
   end if
 
-
   if (debug_level >= psb_debug_ext_)&
        & write(debug_unit, *) me,' ',trim(name),&
        & '   Begin matrix assembly...'
 
   !check on errors encountered in psdspins
 
-
-  if (a%is_bld()) then 
+  if (a%is_bld()) then
+    dupl_ = a%get_dupl()
     !
     ! First case: we come from a fresh build. 
     ! 
-
-    n_row = desc_a%get_local_rows()
-    n_col = desc_a%get_local_cols()
-    call a%set_nrows(n_row)
-    call a%set_ncols(n_col)
-  end if
-
-  if (a%is_bld()) then 
-    call a%cscnv(info,type=afmt,dupl=dupl, mold=mold)
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_lz_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz  = a_add%get_nzeros()
+        nzt = nz
+        call psb_sum(ctxt,nzt)
+        if (nzt>0) then
+          allocate(ivm, mold=desc_a%v_halo_index%v)
+          call psb_cd_reinit(desc_a, info)
+        end if
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+        if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm)
+
+      end block
+    end if
+    call a%set_ncols(desc_a%get_local_cols())    
+    call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_)
   else if (a%is_upd()) then 
+    if (a%is_remote_build()) then 
+      !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros()
+      block
+        type(psb_lz_coo_sparse_mat) :: a_add
+        integer(psb_ipk_), allocatable :: ila(:), jla(:)
+        integer(psb_ipk_) :: nz, nzt,k
+        call psb_remote_mat(a%rmta,desc_a,a_add,info)
+        nz = a_add%get_nzeros()
+!!$        write(0,*) me,name,' Nz to be added',nz
+        if (nz > 0) then
+          !
+          ! Should we check for new indices here?
+          !
+          call psb_realloc(nz,ila,info)
+          call psb_realloc(nz,jla,info)
+          call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.)    
+          if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info)
+          !write(0,*) me,name,' Check before insert',a%get_nzeros()
+          n_row = desc_a%get_local_rows()
+          n_col = desc_a%get_local_cols()
+          call a%set_ncols(desc_a%get_local_cols())
+          call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info)
+          !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz
+        end if
+      end block
+    end if
     call a%asb(mold=mold)
   else
     info = psb_err_invalid_mat_state_
diff --git a/base/tools/psb_zspins.F90 b/base/tools/psb_zspins.F90
index 525ed415..abe64251 100644
--- a/base/tools/psb_zspins.F90
+++ b/base/tools/psb_zspins.F90
@@ -70,6 +70,10 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
   integer(psb_ipk_), parameter     :: relocsz=200
   logical                :: rebuild_, local_
   integer(psb_ipk_), allocatable   :: ila(:),jla(:)
+  integer(psb_ipk_)      :: i,k
+  integer(psb_lpk_)      :: nnl
+  integer(psb_lpk_), allocatable   :: lila(:),ljla(:)
+  complex(psb_dpk_), allocatable     :: lval(:)
   character(len=20)  :: name
 
   info = psb_success_
@@ -147,6 +151,27 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
           call psb_errpush(info,name,a_err='a%csput')
           goto 9999
         end if
+
+        if (a%is_remote_build()) then 
+          nnl = count(ila(1:nz)<0)
+          if (nnl > 0) then 
+            !write(0,*) 'Check on insert ',nnl
+            allocate(lila(nnl),ljla(nnl),lval(nnl))
+            k = 0
+            do i=1,nz
+              if (ila(i)<0) then
+                k=k+1
+                lila(k) = ia(i)
+                ljla(k) = ja(i)
+                lval(k) = val(i)
+              end if
+            end do
+            if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+            call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+                 & 1_psb_lpk_,desc_a%get_global_rows(),info)
+          end if
+        end if
+          
       else
         info = psb_err_invalid_a_and_cd_state_
         call psb_errpush(info,name)
@@ -168,8 +193,9 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       ila(1:nz) = ia(1:nz)
       jla(1:nz) = ja(1:nz)
     else
-      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info)
-      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info)
+      call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.)
+      if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,&
+           & mask=(ila(1:nz)>0))
     end if
     call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info)
     if (info /= psb_success_) then
@@ -177,6 +203,25 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
       call psb_errpush(info,name,a_err='a%csput')
       goto 9999
     end if
+    if (a%is_remote_build()) then 
+      nnl = count(ila(1:nz)<0)
+      if (nnl > 0) then 
+        !write(0,*) 'Check on insert ',nnl
+        allocate(lila(nnl),ljla(nnl),lval(nnl))
+        k = 0
+        do i=1,nz
+          if (ila(i)<0) then
+            k=k+1
+            lila(k) = ia(k)
+            ljla(k) = ja(k)
+            lval(k) = val(k)
+          end if
+        end do
+        if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl
+        call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),&
+             & 1_psb_lpk_,desc_a%get_global_rows(),info)
+      end if
+    end if
   else
     info = psb_err_invalid_cd_state_
     call psb_errpush(info,name)
diff --git a/cbind/base/psb_base_tools_cbind_mod.F90 b/cbind/base/psb_base_tools_cbind_mod.F90
index dc05fd66..7126ced8 100644
--- a/cbind/base/psb_base_tools_cbind_mod.F90
+++ b/cbind/base/psb_base_tools_cbind_mod.F90
@@ -100,6 +100,47 @@ contains
 
   end function psb_c_cdall_vl
 
+  function psb_c_cdall_vl_opt(nl,vl,cctxt,cdh) bind(c,name='psb_c_cdall_vl_opt') result(res)
+    implicit none
+
+    integer(psb_c_ipk_) :: res
+    type(psb_c_object_type), value :: cctxt
+    integer(psb_c_ipk_), value :: nl
+    integer(psb_c_lpk_)        :: vl(*)
+    type(psb_c_object_type) :: cdh
+    type(psb_desc_type), pointer :: descp
+    integer(psb_c_ipk_)           :: info, ixb
+    type(psb_ctxt_type) :: ctxt
+    ctxt = psb_c2f_ctxt(cctxt)
+
+    res = -1
+    if (nl <=0) then
+      write(0,*) 'Invalid size'
+      return
+    end if
+
+    if (c_associated(cdh%item)) then
+      call c_f_pointer(cdh%item,descp)
+      call descp%free(info)
+      if (info == 0) deallocate(descp,stat=info)
+      if (info /= 0) return
+    end if
+
+    allocate(descp,stat=info)
+    if (info < 0) return
+
+    ixb = psb_c_get_index_base()
+
+    if (ixb == 1) then
+      call psb_cdall(ctxt,descp,info,vl=vl(1:nl),globalcheck=.true.)
+    else
+      call psb_cdall(ctxt,descp,info,vl=(vl(1:nl)+(1-ixb)),globalcheck=.true.)
+    end if
+    cdh%item = c_loc(descp)
+    res = info
+
+  end function psb_c_cdall_vl_opt
+
   function psb_c_cdall_nl(nl,cctxt,cdh) bind(c,name='psb_c_cdall_nl') result(res)
     implicit none
 
diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h
index dd64d6e2..bff9633a 100644
--- a/cbind/base/psb_c_cbase.h
+++ b/cbind/base/psb_c_cbase.h
@@ -24,6 +24,7 @@ psb_i_t    psb_c_cvect_zero(psb_c_cvector *xh);
 psb_i_t   *psb_c_cvect_f_get_pnt(psb_c_cvector *xh);
 
 psb_i_t    psb_c_cgeall(psb_c_cvector *xh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_cgeall_remote(psb_c_cvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cgeins(psb_i_t nz, const psb_l_t *irw, const psb_c_t *val,
 		    psb_c_cvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_c_t *val,
@@ -35,6 +36,7 @@ psb_c_t    psb_c_cgetelem(psb_c_cvector *xh,psb_l_t index,psb_c_descriptor *cd);
 /* sparse matrices*/
 psb_c_cspmat* psb_c_new_cspmat();
 psb_i_t    psb_c_cspall(psb_c_cspmat *mh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_cspall_remote(psb_c_cspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cspasb(psb_c_cspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cspfree(psb_c_cspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_cspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl,
diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h
index 8c2c6a61..591f885b 100644
--- a/cbind/base/psb_c_dbase.h
+++ b/cbind/base/psb_c_dbase.h
@@ -24,6 +24,7 @@ psb_i_t    psb_c_dvect_zero(psb_c_dvector *xh);
 psb_d_t	  *psb_c_dvect_f_get_pnt( psb_c_dvector *xh);
 
 psb_i_t    psb_c_dgeall(psb_c_dvector *xh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_dgeall_remote(psb_c_dvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dgeins(psb_i_t nz, const psb_l_t *irw, const psb_d_t *val,
 		    psb_c_dvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_d_t *val,
@@ -35,6 +36,7 @@ psb_d_t    psb_c_dgetelem(psb_c_dvector *xh,psb_l_t index,psb_c_descriptor *cd);
 /* sparse matrices*/
 psb_c_dspmat* psb_c_new_dspmat();
 psb_i_t    psb_c_dspall(psb_c_dspmat *mh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_dspall_remote(psb_c_dspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dspasb(psb_c_dspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dspfree(psb_c_dspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_dspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl,
diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h
index b2e18ba5..68abefdd 100644
--- a/cbind/base/psb_c_sbase.h
+++ b/cbind/base/psb_c_sbase.h
@@ -24,6 +24,7 @@ psb_i_t    psb_c_svect_zero(psb_c_svector *xh);
 psb_s_t	  *psb_c_svect_f_get_pnt( psb_c_svector *xh);
 
 psb_i_t    psb_c_sgeall(psb_c_svector *xh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_sgeall_remote(psb_c_svector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sgeins(psb_i_t nz, const psb_l_t *irw, const psb_s_t *val,
 		    psb_c_svector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_s_t *val,
@@ -35,6 +36,7 @@ psb_s_t    psb_c_sgetelem(psb_c_svector *xh,psb_l_t index,psb_c_descriptor *cd);
 /* sparse matrices*/
 psb_c_sspmat* psb_c_new_sspmat();
 psb_i_t    psb_c_sspall(psb_c_sspmat *mh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_sspall_remote(psb_c_sspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sspasb(psb_c_sspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sspfree(psb_c_sspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_sspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl,
diff --git a/cbind/base/psb_c_tools_cbind_mod.F90 b/cbind/base/psb_c_tools_cbind_mod.F90
index 84fea6d7..8f64cbb0 100644
--- a/cbind/base/psb_c_tools_cbind_mod.F90
+++ b/cbind/base/psb_c_tools_cbind_mod.F90
@@ -5,10 +5,11 @@ module psb_c_tools_cbind_mod
   use psb_objhandle_mod
   use psb_base_string_cbind_mod
   use psb_base_tools_cbind_mod
-
+  
 contains
 
- function psb_c_cgeall(xh,cdh) bind(c) result(res)
+  ! Should define   geall_opt  with DUPL argument
+  function psb_c_cgeall(xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -37,6 +38,35 @@ contains
     return
   end function psb_c_cgeall
 
+  function psb_c_cgeall_remote(xh,cdh) bind(c) result(res)
+
+    implicit none
+    integer(psb_c_ipk_) :: res
+    type(psb_c_cvector) :: xh
+    type(psb_c_descriptor) :: cdh
+
+    type(psb_desc_type), pointer :: descp
+    type(psb_c_vect_type), pointer :: xp
+    integer(psb_c_ipk_)               :: info
+
+    res = -1
+
+    if (c_associated(cdh%item)) then
+      call c_f_pointer(cdh%item,descp)
+    else
+      return
+    end if
+    if (c_associated(xh%item)) then
+      return
+    end if
+    allocate(xp)
+    call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
+    xh%item = c_loc(xp)
+    res = min(0,info)
+
+    return
+  end function psb_c_cgeall_remote
+
   function psb_c_cgeasb(xh,cdh) bind(c) result(res)
 
     implicit none
@@ -101,7 +131,7 @@ contains
   end function psb_c_cgefree
 
 
- function psb_c_cgeins(nz,irw,val,xh,cdh) bind(c) result(res)
+  function psb_c_cgeins(nz,irw,val,xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -131,10 +161,10 @@ contains
     ixb = psb_c_get_index_base()
     if (ixb == 1) then
       call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     else
       call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     end if
 
     res = min(0,info)
@@ -142,20 +172,16 @@ contains
     return
   end function psb_c_cgeins
 
-
- function psb_c_cgeins_add(nz,irw,val,xh,cdh) bind(c) result(res)
+ function psb_c_cspall(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
-    integer(psb_c_ipk_), value :: nz
-    integer(psb_c_lpk_)       :: irw(*)
-    complex(c_float_complex)        :: val(*)
-    type(psb_c_cvector) :: xh
+    type(psb_c_cspmat) :: mh
     type(psb_c_descriptor) :: cdh
 
     type(psb_desc_type), pointer :: descp
-    type(psb_c_vect_type), pointer :: xp
-    integer(psb_c_ipk_)               :: ixb, info
+    type(psb_cspmat_type), pointer :: ap
+    integer(psb_c_ipk_)               :: info,n
 
     res = -1
     if (c_associated(cdh%item)) then
@@ -163,27 +189,19 @@ contains
     else
       return
     end if
-    if (c_associated(xh%item)) then
-      call c_f_pointer(xh%item,xp)
-    else
+    if (c_associated(mh%item)) then
       return
     end if
-
-    ixb = psb_c_get_index_base()
-    if (ixb == 1) then
-      call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    else
-      call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    end if
+    allocate(ap)
+    call psb_spall(ap,descp,info)
+    mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_cgeins_add
+  end function psb_c_cspall
 
 
- function psb_c_cspall(mh,cdh) bind(c) result(res)
+ function psb_c_cspall_remote(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -204,14 +222,12 @@ contains
       return
     end if
     allocate(ap)
-    call psb_spall(ap,descp,info)
+    call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_cspall
-
-
+  end function psb_c_cspall_remote
 
  function psb_c_cspasb(mh,cdh) bind(c) result(res)
 
@@ -241,7 +257,6 @@ contains
     return
   end function psb_c_cspasb
 
-
   function psb_c_cspfree(mh,cdh) bind(c) result(res)
 
     implicit none
@@ -275,7 +290,7 @@ contains
 
 #if 0
 
-  function psb_c_cspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res)
+  function psb_c_cspasb_opt(mh,cdh,afmt,upd) bind(c) result(res)
 
 #ifdef HAVE_LIBRSB
     use psb_c_rsb_mat_mod
@@ -284,7 +299,7 @@ contains
     integer(psb_c_ipk_) :: res
     integer(psb_c_ipk_), value :: cdh, mh,upd,dupl
     character(c_char)     :: afmt(*)
-    integer(psb_c_ipk_)    :: info,n, fdupl
+    integer(psb_c_ipk_)    :: info,n
     character(len=5)      :: fafmt
 #ifdef HAVE_LIBRSB
     type(psb_c_rsb_sparse_mat) :: arsb
@@ -301,11 +316,11 @@ contains
 #ifdef HAVE_LIBRSB
     case('RSB')
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & upd=upd,dupl=dupl,mold=arsb)
+           & upd=upd,mold=arsb)
 #endif
     case default
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & afmt=fafmt,upd=upd,dupl=dupl)
+           & afmt=fafmt,upd=upd)
     end select
 
     res = min(0,info)
diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h
index 16ee1ac4..9a27e9c0 100644
--- a/cbind/base/psb_c_zbase.h
+++ b/cbind/base/psb_c_zbase.h
@@ -24,6 +24,7 @@ psb_i_t    psb_c_zvect_zero(psb_c_zvector *xh);
 psb_z_t	  *psb_c_zvect_f_get_pnt( psb_c_zvector *xh);
 
 psb_i_t    psb_c_zgeall(psb_c_zvector *xh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_zgeall_remote(psb_c_zvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zgeins(psb_i_t nz, const psb_l_t *irw, const psb_z_t *val,
 		    psb_c_zvector *xh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_z_t *val,
@@ -35,6 +36,7 @@ psb_z_t    psb_c_zgetelem(psb_c_zvector *xh,psb_l_t index,psb_c_descriptor *cd);
 /* sparse matrices*/
 psb_c_zspmat* psb_c_new_zspmat();
 psb_i_t    psb_c_zspall(psb_c_zspmat *mh, psb_c_descriptor *cdh);
+psb_i_t    psb_c_zspall_remote(psb_c_zspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zspasb(psb_c_zspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zspfree(psb_c_zspmat *mh, psb_c_descriptor *cdh);
 psb_i_t    psb_c_zspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl,
diff --git a/cbind/base/psb_d_tools_cbind_mod.F90 b/cbind/base/psb_d_tools_cbind_mod.F90
index 08e214a5..67ae8b86 100644
--- a/cbind/base/psb_d_tools_cbind_mod.F90
+++ b/cbind/base/psb_d_tools_cbind_mod.F90
@@ -5,10 +5,11 @@ module psb_d_tools_cbind_mod
   use psb_objhandle_mod
   use psb_base_string_cbind_mod
   use psb_base_tools_cbind_mod
-
+  
 contains
 
- function psb_c_dgeall(xh,cdh) bind(c) result(res)
+  ! Should define   geall_opt  with DUPL argument
+  function psb_c_dgeall(xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -37,6 +38,35 @@ contains
     return
   end function psb_c_dgeall
 
+  function psb_c_dgeall_remote(xh,cdh) bind(c) result(res)
+
+    implicit none
+    integer(psb_c_ipk_) :: res
+    type(psb_c_dvector) :: xh
+    type(psb_c_descriptor) :: cdh
+
+    type(psb_desc_type), pointer :: descp
+    type(psb_d_vect_type), pointer :: xp
+    integer(psb_c_ipk_)               :: info
+
+    res = -1
+
+    if (c_associated(cdh%item)) then
+      call c_f_pointer(cdh%item,descp)
+    else
+      return
+    end if
+    if (c_associated(xh%item)) then
+      return
+    end if
+    allocate(xp)
+    call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
+    xh%item = c_loc(xp)
+    res = min(0,info)
+
+    return
+  end function psb_c_dgeall_remote
+
   function psb_c_dgeasb(xh,cdh) bind(c) result(res)
 
     implicit none
@@ -101,7 +131,7 @@ contains
   end function psb_c_dgefree
 
 
- function psb_c_dgeins(nz,irw,val,xh,cdh) bind(c) result(res)
+  function psb_c_dgeins(nz,irw,val,xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -131,10 +161,10 @@ contains
     ixb = psb_c_get_index_base()
     if (ixb == 1) then
       call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     else
       call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     end if
 
     res = min(0,info)
@@ -142,20 +172,16 @@ contains
     return
   end function psb_c_dgeins
 
-
- function psb_c_dgeins_add(nz,irw,val,xh,cdh) bind(c) result(res)
+ function psb_c_dspall(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
-    integer(psb_c_ipk_), value :: nz
-    integer(psb_c_lpk_)       :: irw(*)
-    real(c_double)        :: val(*)
-    type(psb_c_dvector) :: xh
+    type(psb_c_dspmat) :: mh
     type(psb_c_descriptor) :: cdh
 
     type(psb_desc_type), pointer :: descp
-    type(psb_d_vect_type), pointer :: xp
-    integer(psb_c_ipk_)               :: ixb, info
+    type(psb_dspmat_type), pointer :: ap
+    integer(psb_c_ipk_)               :: info,n
 
     res = -1
     if (c_associated(cdh%item)) then
@@ -163,27 +189,19 @@ contains
     else
       return
     end if
-    if (c_associated(xh%item)) then
-      call c_f_pointer(xh%item,xp)
-    else
+    if (c_associated(mh%item)) then
       return
     end if
-
-    ixb = psb_c_get_index_base()
-    if (ixb == 1) then
-      call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    else
-      call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    end if
+    allocate(ap)
+    call psb_spall(ap,descp,info)
+    mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_dgeins_add
+  end function psb_c_dspall
 
 
- function psb_c_dspall(mh,cdh) bind(c) result(res)
+ function psb_c_dspall_remote(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -204,14 +222,12 @@ contains
       return
     end if
     allocate(ap)
-    call psb_spall(ap,descp,info)
+    call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_dspall
-
-
+  end function psb_c_dspall_remote
 
  function psb_c_dspasb(mh,cdh) bind(c) result(res)
 
@@ -241,7 +257,6 @@ contains
     return
   end function psb_c_dspasb
 
-
   function psb_c_dspfree(mh,cdh) bind(c) result(res)
 
     implicit none
@@ -275,7 +290,7 @@ contains
 
 #if 0
 
-  function psb_c_dspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res)
+  function psb_c_dspasb_opt(mh,cdh,afmt,upd) bind(c) result(res)
 
 #ifdef HAVE_LIBRSB
     use psb_d_rsb_mat_mod
@@ -284,7 +299,7 @@ contains
     integer(psb_c_ipk_) :: res
     integer(psb_c_ipk_), value :: cdh, mh,upd,dupl
     character(c_char)     :: afmt(*)
-    integer(psb_c_ipk_)    :: info,n, fdupl
+    integer(psb_c_ipk_)    :: info,n
     character(len=5)      :: fafmt
 #ifdef HAVE_LIBRSB
     type(psb_d_rsb_sparse_mat) :: arsb
@@ -301,11 +316,11 @@ contains
 #ifdef HAVE_LIBRSB
     case('RSB')
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & upd=upd,dupl=dupl,mold=arsb)
+           & upd=upd,mold=arsb)
 #endif
     case default
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & afmt=fafmt,upd=upd,dupl=dupl)
+           & afmt=fafmt,upd=upd)
     end select
 
     res = min(0,info)
diff --git a/cbind/base/psb_s_tools_cbind_mod.F90 b/cbind/base/psb_s_tools_cbind_mod.F90
index d9584338..91d9b322 100644
--- a/cbind/base/psb_s_tools_cbind_mod.F90
+++ b/cbind/base/psb_s_tools_cbind_mod.F90
@@ -5,10 +5,11 @@ module psb_s_tools_cbind_mod
   use psb_objhandle_mod
   use psb_base_string_cbind_mod
   use psb_base_tools_cbind_mod
-
+  
 contains
 
- function psb_c_sgeall(xh,cdh) bind(c) result(res)
+  ! Should define   geall_opt  with DUPL argument
+  function psb_c_sgeall(xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -37,6 +38,35 @@ contains
     return
   end function psb_c_sgeall
 
+  function psb_c_sgeall_remote(xh,cdh) bind(c) result(res)
+
+    implicit none
+    integer(psb_c_ipk_) :: res
+    type(psb_c_svector) :: xh
+    type(psb_c_descriptor) :: cdh
+
+    type(psb_desc_type), pointer :: descp
+    type(psb_s_vect_type), pointer :: xp
+    integer(psb_c_ipk_)               :: info
+
+    res = -1
+
+    if (c_associated(cdh%item)) then
+      call c_f_pointer(cdh%item,descp)
+    else
+      return
+    end if
+    if (c_associated(xh%item)) then
+      return
+    end if
+    allocate(xp)
+    call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
+    xh%item = c_loc(xp)
+    res = min(0,info)
+
+    return
+  end function psb_c_sgeall_remote
+
   function psb_c_sgeasb(xh,cdh) bind(c) result(res)
 
     implicit none
@@ -101,7 +131,7 @@ contains
   end function psb_c_sgefree
 
 
- function psb_c_sgeins(nz,irw,val,xh,cdh) bind(c) result(res)
+  function psb_c_sgeins(nz,irw,val,xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -131,10 +161,10 @@ contains
     ixb = psb_c_get_index_base()
     if (ixb == 1) then
       call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     else
       call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     end if
 
     res = min(0,info)
@@ -142,20 +172,16 @@ contains
     return
   end function psb_c_sgeins
 
-
- function psb_c_sgeins_add(nz,irw,val,xh,cdh) bind(c) result(res)
+ function psb_c_sspall(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
-    integer(psb_c_ipk_), value :: nz
-    integer(psb_c_lpk_)       :: irw(*)
-    real(c_float)        :: val(*)
-    type(psb_c_svector) :: xh
+    type(psb_c_sspmat) :: mh
     type(psb_c_descriptor) :: cdh
 
     type(psb_desc_type), pointer :: descp
-    type(psb_s_vect_type), pointer :: xp
-    integer(psb_c_ipk_)               :: ixb, info
+    type(psb_sspmat_type), pointer :: ap
+    integer(psb_c_ipk_)               :: info,n
 
     res = -1
     if (c_associated(cdh%item)) then
@@ -163,27 +189,19 @@ contains
     else
       return
     end if
-    if (c_associated(xh%item)) then
-      call c_f_pointer(xh%item,xp)
-    else
+    if (c_associated(mh%item)) then
       return
     end if
-
-    ixb = psb_c_get_index_base()
-    if (ixb == 1) then
-      call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    else
-      call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    end if
+    allocate(ap)
+    call psb_spall(ap,descp,info)
+    mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_sgeins_add
+  end function psb_c_sspall
 
 
- function psb_c_sspall(mh,cdh) bind(c) result(res)
+ function psb_c_sspall_remote(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -204,14 +222,12 @@ contains
       return
     end if
     allocate(ap)
-    call psb_spall(ap,descp,info)
+    call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_sspall
-
-
+  end function psb_c_sspall_remote
 
  function psb_c_sspasb(mh,cdh) bind(c) result(res)
 
@@ -241,7 +257,6 @@ contains
     return
   end function psb_c_sspasb
 
-
   function psb_c_sspfree(mh,cdh) bind(c) result(res)
 
     implicit none
@@ -275,7 +290,7 @@ contains
 
 #if 0
 
-  function psb_c_sspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res)
+  function psb_c_sspasb_opt(mh,cdh,afmt,upd) bind(c) result(res)
 
 #ifdef HAVE_LIBRSB
     use psb_s_rsb_mat_mod
@@ -284,7 +299,7 @@ contains
     integer(psb_c_ipk_) :: res
     integer(psb_c_ipk_), value :: cdh, mh,upd,dupl
     character(c_char)     :: afmt(*)
-    integer(psb_c_ipk_)    :: info,n, fdupl
+    integer(psb_c_ipk_)    :: info,n
     character(len=5)      :: fafmt
 #ifdef HAVE_LIBRSB
     type(psb_s_rsb_sparse_mat) :: arsb
@@ -301,11 +316,11 @@ contains
 #ifdef HAVE_LIBRSB
     case('RSB')
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & upd=upd,dupl=dupl,mold=arsb)
+           & upd=upd,mold=arsb)
 #endif
     case default
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & afmt=fafmt,upd=upd,dupl=dupl)
+           & afmt=fafmt,upd=upd)
     end select
 
     res = min(0,info)
diff --git a/cbind/base/psb_z_tools_cbind_mod.F90 b/cbind/base/psb_z_tools_cbind_mod.F90
index 572eeb95..59d4cca8 100644
--- a/cbind/base/psb_z_tools_cbind_mod.F90
+++ b/cbind/base/psb_z_tools_cbind_mod.F90
@@ -5,10 +5,11 @@ module psb_z_tools_cbind_mod
   use psb_objhandle_mod
   use psb_base_string_cbind_mod
   use psb_base_tools_cbind_mod
-
+  
 contains
 
- function psb_c_zgeall(xh,cdh) bind(c) result(res)
+  ! Should define   geall_opt  with DUPL argument
+  function psb_c_zgeall(xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -37,6 +38,35 @@ contains
     return
   end function psb_c_zgeall
 
+  function psb_c_zgeall_remote(xh,cdh) bind(c) result(res)
+
+    implicit none
+    integer(psb_c_ipk_) :: res
+    type(psb_c_zvector) :: xh
+    type(psb_c_descriptor) :: cdh
+
+    type(psb_desc_type), pointer :: descp
+    type(psb_z_vect_type), pointer :: xp
+    integer(psb_c_ipk_)               :: info
+
+    res = -1
+
+    if (c_associated(cdh%item)) then
+      call c_f_pointer(cdh%item,descp)
+    else
+      return
+    end if
+    if (c_associated(xh%item)) then
+      return
+    end if
+    allocate(xp)
+    call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
+    xh%item = c_loc(xp)
+    res = min(0,info)
+
+    return
+  end function psb_c_zgeall_remote
+
   function psb_c_zgeasb(xh,cdh) bind(c) result(res)
 
     implicit none
@@ -101,7 +131,7 @@ contains
   end function psb_c_zgefree
 
 
- function psb_c_zgeins(nz,irw,val,xh,cdh) bind(c) result(res)
+  function psb_c_zgeins(nz,irw,val,xh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -131,10 +161,10 @@ contains
     ixb = psb_c_get_index_base()
     if (ixb == 1) then
       call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     else
       call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_ovwrt_)
+           & xp,descp,info)
     end if
 
     res = min(0,info)
@@ -142,20 +172,16 @@ contains
     return
   end function psb_c_zgeins
 
-
- function psb_c_zgeins_add(nz,irw,val,xh,cdh) bind(c) result(res)
+ function psb_c_zspall(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
-    integer(psb_c_ipk_), value :: nz
-    integer(psb_c_lpk_)       :: irw(*)
-    complex(c_double_complex)        :: val(*)
-    type(psb_c_zvector) :: xh
+    type(psb_c_zspmat) :: mh
     type(psb_c_descriptor) :: cdh
 
     type(psb_desc_type), pointer :: descp
-    type(psb_z_vect_type), pointer :: xp
-    integer(psb_c_ipk_)               :: ixb, info
+    type(psb_zspmat_type), pointer :: ap
+    integer(psb_c_ipk_)               :: info,n
 
     res = -1
     if (c_associated(cdh%item)) then
@@ -163,27 +189,19 @@ contains
     else
       return
     end if
-    if (c_associated(xh%item)) then
-      call c_f_pointer(xh%item,xp)
-    else
+    if (c_associated(mh%item)) then
       return
     end if
-
-    ixb = psb_c_get_index_base()
-    if (ixb == 1) then
-      call psb_geins(nz,irw(1:nz),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    else
-      call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),&
-           & xp,descp,info, dupl=psb_dupl_add_)
-    end if
+    allocate(ap)
+    call psb_spall(ap,descp,info)
+    mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_zgeins_add
+  end function psb_c_zspall
 
 
- function psb_c_zspall(mh,cdh) bind(c) result(res)
+ function psb_c_zspall_remote(mh,cdh) bind(c) result(res)
 
     implicit none
     integer(psb_c_ipk_) :: res
@@ -204,14 +222,12 @@ contains
       return
     end if
     allocate(ap)
-    call psb_spall(ap,descp,info)
+    call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     mh%item = c_loc(ap)
     res = min(0,info)
 
     return
-  end function psb_c_zspall
-
-
+  end function psb_c_zspall_remote
 
  function psb_c_zspasb(mh,cdh) bind(c) result(res)
 
@@ -241,7 +257,6 @@ contains
     return
   end function psb_c_zspasb
 
-
   function psb_c_zspfree(mh,cdh) bind(c) result(res)
 
     implicit none
@@ -275,7 +290,7 @@ contains
 
 #if 0
 
-  function psb_c_zspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res)
+  function psb_c_zspasb_opt(mh,cdh,afmt,upd) bind(c) result(res)
 
 #ifdef HAVE_LIBRSB
     use psb_z_rsb_mat_mod
@@ -284,7 +299,7 @@ contains
     integer(psb_c_ipk_) :: res
     integer(psb_c_ipk_), value :: cdh, mh,upd,dupl
     character(c_char)     :: afmt(*)
-    integer(psb_c_ipk_)    :: info,n, fdupl
+    integer(psb_c_ipk_)    :: info,n
     character(len=5)      :: fafmt
 #ifdef HAVE_LIBRSB
     type(psb_z_rsb_sparse_mat) :: arsb
@@ -301,11 +316,11 @@ contains
 #ifdef HAVE_LIBRSB
     case('RSB')
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & upd=upd,dupl=dupl,mold=arsb)
+           & upd=upd,mold=arsb)
 #endif
     case default
       call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,&
-           & afmt=fafmt,upd=upd,dupl=dupl)
+           & afmt=fafmt,upd=upd)
     end select
 
     res = min(0,info)
diff --git a/cbind/util/psb_c_cutil.h b/cbind/util/psb_c_cutil.h
index 4d2755d6..9da81aa1 100644
--- a/cbind/util/psb_c_cutil.h
+++ b/cbind/util/psb_c_cutil.h
@@ -8,6 +8,8 @@ extern "C" {
 
 /* I/O Routine */
 psb_i_t psb_c_cmm_mat_write(psb_c_cspmat *ah, char *matrixtitle, char *filename);
+psb_i_t psb_c_cglobal_mat_write(psb_c_cspmat *ah,psb_c_descriptor *cdh);
+psb_i_t psb_c_cglobal_vec_write(psb_c_cvector *vh,psb_c_descriptor *cdh);
 
 #ifdef __cplusplus
 }
diff --git a/cbind/util/psb_c_dutil.h b/cbind/util/psb_c_dutil.h
index 306d7310..144e156d 100644
--- a/cbind/util/psb_c_dutil.h
+++ b/cbind/util/psb_c_dutil.h
@@ -8,6 +8,8 @@ extern "C" {
 
 /* I/O Routine */
 psb_i_t psb_c_dmm_mat_write(psb_c_dspmat *ah, char *matrixtitle, char *filename);
+psb_i_t psb_c_dglobal_mat_write(psb_c_dspmat *ah,psb_c_descriptor *cdh);
+psb_i_t psb_c_dglobal_vec_write(psb_c_dvector *vh,psb_c_descriptor *cdh);
 
 #ifdef __cplusplus
 }
diff --git a/cbind/util/psb_c_sutil.h b/cbind/util/psb_c_sutil.h
index 9dd1ed54..a70097ed 100644
--- a/cbind/util/psb_c_sutil.h
+++ b/cbind/util/psb_c_sutil.h
@@ -8,6 +8,8 @@ extern "C" {
 
 /* I/O Routine */
 psb_i_t psb_c_smm_mat_write(psb_c_sspmat *ah, char *matrixtitle, char *filename);
+psb_i_t psb_c_sglobal_mat_write(psb_c_sspmat *ah,psb_c_descriptor *cdh);
+psb_i_t psb_c_sglobal_vec_write(psb_c_svector *vh,psb_c_descriptor *cdh);
 
 #ifdef __cplusplus
 }
diff --git a/cbind/util/psb_c_util_cbind_mod.f90 b/cbind/util/psb_c_util_cbind_mod.f90
index 3761cd08..ae3f6cf8 100644
--- a/cbind/util/psb_c_util_cbind_mod.f90
+++ b/cbind/util/psb_c_util_cbind_mod.f90
@@ -41,4 +41,91 @@ contains
 
     end function psb_c_cmm_mat_write
 
+    function psb_c_cglobal_mat_write(ah,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_cspmat)   :: ah 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_cspmat_type), pointer :: ap
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	type(psb_cspmat_type) :: aglobal
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: matrixname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(ah%item)) then
+          call c_f_pointer(ah%item,ap)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(aglobal,ap,descp,info)
+        if (iam == psb_root_) then
+	   write(matrixname,'("A-np-",I1,".mtx")') np
+      	   call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname))
+	end if
+
+	call psb_spfree(aglobal,descp,info)
+	res = info
+
+    end function psb_c_cglobal_mat_write
+
+  function psb_c_cglobal_vec_write(vh,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_cvector)  :: vh 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_c_vect_type), pointer :: vp
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	complex(psb_spk_), allocatable :: vglobal(:)
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: vecname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(vh%item)) then
+          call c_f_pointer(vh%item,vp)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(vglobal,vp,descp,info)
+        if (iam == psb_root_) then
+	   write(vecname,'("v-np-",I1,".mtx")') np
+      	   call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname))
+	end if
+
+	deallocate(vglobal,stat=info)
+	res = info
+
+    end function psb_c_cglobal_vec_write
+
+
 end module psb_cutil_cbind_mod
diff --git a/cbind/util/psb_c_zutil.h b/cbind/util/psb_c_zutil.h
index f5d0f225..4e308c36 100644
--- a/cbind/util/psb_c_zutil.h
+++ b/cbind/util/psb_c_zutil.h
@@ -8,6 +8,8 @@ extern "C" {
 
 /* I/O Routine */
 psb_i_t psb_c_zmm_mat_write(psb_c_zspmat *ah, char *matrixtitle, char *filename);
+psb_i_t psb_c_zglobal_mat_write(psb_c_zspmat *ah,psb_c_descriptor *cdh);
+psb_i_t psb_c_zglobal_vec_write(psb_c_zvector *vh,psb_c_descriptor *cdh);
 
 #ifdef __cplusplus
 }
diff --git a/cbind/util/psb_d_util_cbind_mod.f90 b/cbind/util/psb_d_util_cbind_mod.f90
index 245cff5e..29fec75b 100644
--- a/cbind/util/psb_d_util_cbind_mod.f90
+++ b/cbind/util/psb_d_util_cbind_mod.f90
@@ -41,4 +41,91 @@ contains
 
     end function psb_c_dmm_mat_write
 
+    function psb_c_dglobal_mat_write(ah,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_dspmat)   :: ah 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_dspmat_type), pointer :: ap
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	type(psb_dspmat_type) :: aglobal
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: matrixname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(ah%item)) then
+          call c_f_pointer(ah%item,ap)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(aglobal,ap,descp,info)
+        if (iam == psb_root_) then
+	   write(matrixname,'("A-np-",I1,".mtx")') np
+      	   call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname))
+	end if
+
+	call psb_spfree(aglobal,descp,info)
+	res = info
+
+    end function psb_c_dglobal_mat_write
+
+  function psb_c_dglobal_vec_write(vh,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_dvector)  :: vh 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_d_vect_type), pointer :: vp
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	real(psb_dpk_), allocatable :: vglobal(:)
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: vecname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(vh%item)) then
+          call c_f_pointer(vh%item,vp)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(vglobal,vp,descp,info)
+        if (iam == psb_root_) then
+	   write(vecname,'("v-np-",I1,".mtx")') np
+      	   call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname))
+	end if
+
+	deallocate(vglobal,stat=info)
+	res = info
+
+    end function psb_c_dglobal_vec_write
+
+
 end module psb_dutil_cbind_mod
diff --git a/cbind/util/psb_s_util_cbind_mod.f90 b/cbind/util/psb_s_util_cbind_mod.f90
index e857cde9..0dfe3ddc 100644
--- a/cbind/util/psb_s_util_cbind_mod.f90
+++ b/cbind/util/psb_s_util_cbind_mod.f90
@@ -41,4 +41,91 @@ contains
 
     end function psb_c_smm_mat_write
 
+    function psb_c_sglobal_mat_write(ah,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_sspmat)   :: ah 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_sspmat_type), pointer :: ap
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	type(psb_sspmat_type) :: aglobal
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: matrixname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(ah%item)) then
+          call c_f_pointer(ah%item,ap)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(aglobal,ap,descp,info)
+        if (iam == psb_root_) then
+	   write(matrixname,'("A-np-",I1,".mtx")') np
+      	   call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname))
+	end if
+
+	call psb_spfree(aglobal,descp,info)
+	res = info
+
+    end function psb_c_sglobal_mat_write
+
+  function psb_c_sglobal_vec_write(vh,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_svector)  :: vh 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_s_vect_type), pointer :: vp
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	real(psb_spk_), allocatable :: vglobal(:)
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: vecname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(vh%item)) then
+          call c_f_pointer(vh%item,vp)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(vglobal,vp,descp,info)
+        if (iam == psb_root_) then
+	   write(vecname,'("v-np-",I1,".mtx")') np
+      	   call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname))
+	end if
+
+	deallocate(vglobal,stat=info)
+	res = info
+
+    end function psb_c_sglobal_vec_write
+
+
 end module psb_sutil_cbind_mod
diff --git a/cbind/util/psb_z_util_cbind_mod.f90 b/cbind/util/psb_z_util_cbind_mod.f90
index e0b60005..792f836f 100644
--- a/cbind/util/psb_z_util_cbind_mod.f90
+++ b/cbind/util/psb_z_util_cbind_mod.f90
@@ -41,4 +41,91 @@ contains
 
     end function psb_c_zmm_mat_write
 
+    function psb_c_zglobal_mat_write(ah,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_zspmat)   :: ah 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_zspmat_type), pointer :: ap
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	type(psb_zspmat_type) :: aglobal
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: matrixname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(ah%item)) then
+          call c_f_pointer(ah%item,ap)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(aglobal,ap,descp,info)
+        if (iam == psb_root_) then
+	   write(matrixname,'("A-np-",I1,".mtx")') np
+      	   call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname))
+	end if
+
+	call psb_spfree(aglobal,descp,info)
+	res = info
+
+    end function psb_c_zglobal_mat_write
+
+  function psb_c_zglobal_vec_write(vh,cdh) bind(c) result(res)
+        use psb_base_mod
+        use psb_util_mod
+        use psb_base_string_cbind_mod
+        implicit none
+        integer(psb_c_ipk_) :: res
+
+        type(psb_c_zvector)  :: vh 
+        type(psb_c_descriptor) :: cdh
+
+	type(psb_z_vect_type), pointer :: vp
+	type(psb_desc_type), pointer :: descp
+	! Local variables
+	complex(psb_dpk_), allocatable :: vglobal(:)
+        integer(psb_ipk_) :: info, iam, np
+	type(psb_ctxt_type) :: ctxt
+	character(len=40)  :: vecname
+
+	res = -1
+    	if (c_associated(cdh%item)) then
+      	  call c_f_pointer(cdh%item,descp)
+    	else
+      	  return
+    	end if
+        if (c_associated(vh%item)) then
+          call c_f_pointer(vh%item,vp)
+        else
+         return
+        end if
+
+	ctxt = descp%get_ctxt()
+	call psb_info(ctxt,iam,np)
+	call psb_gather(vglobal,vp,descp,info)
+        if (iam == psb_root_) then
+	   write(vecname,'("v-np-",I1,".mtx")') np
+      	   call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname))
+	end if
+
+	deallocate(vglobal,stat=info)
+	res = info
+
+    end function psb_c_zglobal_vec_write
+
+
 end module psb_zutil_cbind_mod
diff --git a/docs/html/index.html b/docs/html/index.html
index 2906d9ce..c4f777e4 100644
--- a/docs/html/index.html
+++ b/docs/html/index.html
@@ -20,8 +20,8 @@ class="newline" /> <span
 class="cmbx-10">Salvatore Filippone</span><br 
 class="newline" /><span 
 class="cmbx-10">Alfredo Buttari  </span><br 
-class="newline" />Software version: 3.7.0.1<br 
-class="newline" />May 11th, 2021
+class="newline" />Software version: 3.8.0<br 
+class="newline" />May 1st, 2022
                                                                   
 
                                                                   
diff --git a/docs/html/userhtml.html b/docs/html/userhtml.html
index 2906d9ce..c4f777e4 100644
--- a/docs/html/userhtml.html
+++ b/docs/html/userhtml.html
@@ -20,8 +20,8 @@ class="newline" /> <span
 class="cmbx-10">Salvatore Filippone</span><br 
 class="newline" /><span 
 class="cmbx-10">Alfredo Buttari  </span><br 
-class="newline" />Software version: 3.7.0.1<br 
-class="newline" />May 11th, 2021
+class="newline" />Software version: 3.8.0<br 
+class="newline" />May 1st, 2022
                                                                   
 
                                                                   
diff --git a/docs/html/userhtmlsu36.html b/docs/html/userhtmlsu36.html
index 9616adcb..d9cadf8e 100644
--- a/docs/html/userhtmlsu36.html
+++ b/docs/html/userhtmlsu36.html
@@ -22,7 +22,7 @@ href="userhtmlsu32.html#userhtmlsu39.html" >up</a>] </p></div>
 
                                                                   
    <pre class="verbatim" id="verbatim-40">
-call&#x00A0;psb_spall(a,&#x00A0;desc_a,&#x00A0;info,&#x00A0;nnz)
+call&#x00A0;psb_spall(a,&#x00A0;desc_a,&#x00A0;info&#x00A0;[,&#x00A0;nnz,&#x00A0;dupl,&#x00A0;bldmode])
 </pre>
 <!--l. 551--><p class="nopar" >
 <!--l. 553--><p class="indent" >
@@ -61,12 +61,47 @@ class="newline" />Type: <span
 class="cmbx-10">optional</span>.<br 
 class="newline" />Intent: <span 
 class="cmbx-10">in</span>.<br 
-class="newline" />Specified as: an integer value.</dd></dl>
-<!--l. 569--><p class="indent" >
+class="newline" />Specified as: an integer value.
+     </dd><dt class="description">
+<span 
+class="cmbx-10">dupl</span> </dt><dd 
+class="description">How to handle duplicate coefficients.<br 
+class="newline" />Scope: <span 
+class="cmbx-10">global</span>.<br 
+class="newline" />Type: <span 
+class="cmbx-10">optional</span>.<br 
+class="newline" />Intent: <span 
+class="cmbx-10">in</span>.<br 
+class="newline" />Specified as: integer, possible values: <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_dupl_ovwrt_</span></span></span>, <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_dupl_add_</span></span></span>,
+     <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_dupl_err_</span></span></span>.
+     </dd><dt class="description">
+<span 
+class="cmbx-10">bldmode</span> </dt><dd 
+class="description">Whether to keep track of matrix entries that do not belong to the
+     current process.<br 
+class="newline" />Scope: <span 
+class="cmbx-10">global</span>.<br 
+class="newline" />Type: <span 
+class="cmbx-10">optional</span>.<br 
+class="newline" />Intent: <span 
+class="cmbx-10">in</span>.<br 
+class="newline" />Specified                                                                                 as:
+     an integer value <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_noremote_</span></span></span>, <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_remote_</span></span></span>. Default:
+     <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_noremote_</span></span></span>.</dd></dl>
+<!--l. 582--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
 class="description">
+                                                                  
+
+                                                                  
      </dd><dt class="description">
 <span 
 class="cmbx-10">a</span> </dt><dd 
@@ -93,14 +128,11 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 582--><p class="noindent" ><span 
+<!--l. 595--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
   class="enumerate" id="x47-84002x1">On exit from this routine the sparse matrix is in the build state.
-                                                                  
-
-                                                                  
      </li>
      <li 
   class="enumerate" id="x47-84004x2">The descriptor may be in either the build or assembled state.
@@ -110,19 +142,24 @@ class="cmbx-12">Notes</span>
 class="cmmi-10">nnz  </span>in  the
      assembled matrix may substantially improve performance in the matrix
      build  phase,  as  it  will  reduce  or  eliminate  the  need  for  (potentially
-     multiple) data reallocations.</li></ol>
+     multiple) data reallocations;
+     </li>
+     <li 
+  class="enumerate" id="x47-84008x4">Using  <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_remote_</span></span></span> is  likely  to  cause  a  runtime  overhead  at
+     assembly time;</li></ol>
                                                                   
 
                                                                   
                                                                   
 
                                                                   
-   <!--l. 598--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 613--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu40.html" >next</a>] [<a 
 href="userhtmlsu35.html" >prev</a>] [<a 
 href="userhtmlsu35.html#tailuserhtmlsu35.html" >prev-tail</a>] [<a 
 href="userhtmlsu36.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu39.html" >up</a>] </p></div>
-<!--l. 598--><p class="indent" >   <a 
+<!--l. 613--><p class="indent" >   <a 
  id="tailuserhtmlsu36.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu37.html b/docs/html/userhtmlsu37.html
index 709c8830..de5cfc00 100644
--- a/docs/html/userhtmlsu37.html
+++ b/docs/html/userhtmlsu37.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 599--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 614--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu41.html" >next</a>] [<a 
 href="userhtmlsu36.html" >prev</a>] [<a 
 href="userhtmlsu36.html#tailuserhtmlsu36.html" >prev-tail</a>] [<a 
@@ -25,8 +25,8 @@ href="userhtmlsu32.html#userhtmlsu40.html" >up</a>] </p></div>
 call&#x00A0;psb_spins(nz,&#x00A0;ia,&#x00A0;ja,&#x00A0;val,&#x00A0;a,&#x00A0;desc_a,&#x00A0;info&#x00A0;[,local])
 call&#x00A0;psb_spins(nr,&#x00A0;irw,&#x00A0;irp,&#x00A0;ja,&#x00A0;val,&#x00A0;a,&#x00A0;desc_a,&#x00A0;info&#x00A0;[,local])
 </pre>
-<!--l. 604--><p class="nopar" >
-<!--l. 606--><p class="indent" >
+<!--l. 619--><p class="nopar" >
+<!--l. 621--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -152,7 +152,7 @@ class="cmbx-10">optional</span>.<br
 class="newline" />Specified as: a logical value; default: <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">.false.</span></span></span>.
      </dd></dl>
-<!--l. 666--><p class="indent" >
+<!--l. 681--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -203,7 +203,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 685--><p class="noindent" ><span 
+<!--l. 700--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -234,14 +234,11 @@ class="cmmi-10">,ja</span>(<span
 class="cmmi-10">i</span>)<span 
 class="cmmi-10">,val</span>(<span 
 class="cmmi-10">i</span>),  for  <span 
-class="cmmi-10">i </span>=  1<span 
+class="cmmi-10">i  </span>=  1<span 
 class="cmmi-10">,</span><span 
 class="cmmi-10">&#x2026;</span><span 
-class="cmmi-10">,nz</span>;  these  triples  should
-     belong to the current process, i.e. <span 
-class="cmmi-10">ia</span>(<span 
-class="cmmi-10">i</span>) should be one of the local indices,
-     but are otherwise arbitrary;
+class="cmmi-10">,nz</span>;  these  triples  are
+     arbitrary;
      </li>
      <li 
   class="enumerate" id="x48-85012x6">In CSR format the coefficients to be inserted for each input row <span 
@@ -280,8 +277,13 @@ class="cmsy-10">-</span>1 should be one of the local indices, but are otherwise
      call, according to the application needs;
      </li>
      <li 
-  class="enumerate" id="x48-85018x9">Any coefficients from matrix rows not owned by the calling process are
-     silently ignored;
+  class="enumerate" id="x48-85018x9">Coefficients from matrix rows not owned by the calling process are treated
+     according to the value of <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">bldmode</span></span></span> specified at allocation time; if <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">bldmode</span></span></span>
+     was chosen as <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_remote_</span></span></span> the library will keep track of them,
+     otherwise they are silently ignored;
                                                                   
 
                                                                   
@@ -300,12 +302,12 @@ class="cmsy-10">-</span>1 should be one of the local indices, but are otherwise
                                                                   
 
                                                                   
-   <!--l. 724--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 741--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu41.html" >next</a>] [<a 
 href="userhtmlsu36.html" >prev</a>] [<a 
 href="userhtmlsu36.html#tailuserhtmlsu36.html" >prev-tail</a>] [<a 
 href="userhtmlsu37.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu40.html" >up</a>] </p></div>
-<!--l. 724--><p class="indent" >   <a 
+<!--l. 741--><p class="indent" >   <a 
  id="tailuserhtmlsu37.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu38.html b/docs/html/userhtmlsu38.html
index c254d15a..90d80eb0 100644
--- a/docs/html/userhtmlsu38.html
+++ b/docs/html/userhtmlsu38.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 724--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 741--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu42.html" >next</a>] [<a 
 href="userhtmlsu37.html" >prev</a>] [<a 
 href="userhtmlsu37.html#tailuserhtmlsu37.html" >prev-tail</a>] [<a 
@@ -22,10 +22,10 @@ href="userhtmlsu32.html#userhtmlsu41.html" >up</a>] </p></div>
 
                                                                   
    <pre class="verbatim" id="verbatim-42">
-call&#x00A0;psb_spasb(a,&#x00A0;desc_a,&#x00A0;info,&#x00A0;afmt,&#x00A0;upd,&#x00A0;dupl,&#x00A0;mold)
+call&#x00A0;psb_spasb(a,&#x00A0;desc_a,&#x00A0;info&#x00A0;[,&#x00A0;afmt,&#x00A0;upd,&#x00A0;&#x00A0;mold])
 </pre>
-<!--l. 728--><p class="nopar" >
-<!--l. 730--><p class="indent" >
+<!--l. 745--><p class="nopar" >
+<!--l. 747--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -44,7 +44,7 @@ class="cmbx-10">local</span>.<br
 class="newline" />Type:<span 
 class="cmbx-10">required</span>.<br 
 class="newline" />Intent: <span 
-class="cmbx-10">in</span>.<br 
+class="cmbx-10">in/out</span>.<br 
 class="newline" />Specified as: a structured data of type <a 
 href="userhtmlsu5.html#descdata"><span 
 class="cmtt-10">psb</span><span 
@@ -76,21 +76,6 @@ class="cmtt-10">psb_upd_srch_</span></span></span>, <span class="obeylines-h"><s
 class="cmtt-10">psb_upd_perm_</span></span></span>
      </dd><dt class="description">
 <span 
-class="cmbx-10">dupl</span> </dt><dd 
-class="description">How to handle duplicate coefficients.<br 
-class="newline" />Scope: <span 
-class="cmbx-10">global</span>.<br 
-class="newline" />Type: <span 
-class="cmbx-10">optional</span>.<br 
-class="newline" />Intent: <span 
-class="cmbx-10">in</span>.<br 
-class="newline" />Specified as: integer, possible values: <span class="obeylines-h"><span class="verb"><span 
-class="cmtt-10">psb_dupl_ovwrt_</span></span></span>, <span class="obeylines-h"><span class="verb"><span 
-class="cmtt-10">psb_dupl_add_</span></span></span>,
-     <span class="obeylines-h"><span class="verb"><span 
-class="cmtt-10">psb_dupl_err_</span></span></span>.
-     </dd><dt class="description">
-<span 
 class="cmbx-10">mold</span> </dt><dd 
 class="description">The desired dynamic type for the internal matrix storage.<br 
 class="newline" />Scope: <span 
@@ -106,10 +91,7 @@ class="cmtt-10">_T</span><span
 class="cmtt-10">_base</span><span 
 class="cmtt-10">_sparse</span><span 
 class="cmtt-10">_mat</span>.</dd></dl>
-<!--l. 761--><p class="indent" >
-                                                                  
-
-                                                                  
+<!--l. 772--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -129,6 +111,28 @@ href="userhtmlsu6.html#spdata"><span
 class="cmtt-10">psb</span><span 
 class="cmtt-10">_Tspmat</span><span 
 class="cmtt-10">_type</span></a>.
+                                                                  
+
+                                                                  
+     </dd><dt class="description">
+<span 
+class="cmbx-10">desc</span><span 
+class="cmbx-10">_a</span> </dt><dd 
+class="description">the communication descriptor.<br 
+class="newline" />Scope:<span 
+class="cmbx-10">local</span>.<br 
+class="newline" />Type:<span 
+class="cmbx-10">required</span>.<br 
+class="newline" />Intent: <span 
+class="cmbx-10">in/out</span>.<br 
+class="newline" />Specified as: a structured data of type <a 
+href="userhtmlsu5.html#descdata"><span 
+class="cmtt-10">psb</span><span 
+class="cmtt-10">_desc</span><span 
+class="cmtt-10">_type</span></a>. If the matrix was
+     allocated with <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">bldmode=psb_matbld_remote_</span></span></span>, then the descriptor will be
+     reassembled.
      </dd><dt class="description">
 <span 
 class="cmbx-10">info</span> </dt><dd 
@@ -140,7 +144,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 775--><p class="noindent" ><span 
+<!--l. 793--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -168,19 +172,29 @@ class="cmtt-10">psb_spins</span></span></span>
      </li>
      <li 
   class="enumerate" id="x49-86012x6">On exit from this routine the matrix is in the assembled state, and thus
-     is suitable for the computational routines.</li></ol>
+     is suitable for the computational routines;
+     </li>
+     <li 
+  class="enumerate" id="x49-86014x7">If  the  <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">bldmode=psb_matbld_remote_</span></span></span> value  was  specified  at  allocation
+     time,  contributions  defined  on  the  current  process  but  belonging  to  a
+     remote process will be handled accordingly. This is most likely to occur in
+     finite element applications, with <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">dupl=psb_dupl_add_</span></span></span>; it is necessary to
+     check for possible updates needed in the descriptor, hence there will be a
+     runtime overhead.</li></ol>
                                                                   
 
                                                                   
                                                                   
 
                                                                   
-   <!--l. 832--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 857--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu42.html" >next</a>] [<a 
 href="userhtmlsu37.html" >prev</a>] [<a 
 href="userhtmlsu37.html#tailuserhtmlsu37.html" >prev-tail</a>] [<a 
 href="userhtmlsu38.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu41.html" >up</a>] </p></div>
-<!--l. 832--><p class="indent" >   <a 
+<!--l. 857--><p class="indent" >   <a 
  id="tailuserhtmlsu38.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu39.html b/docs/html/userhtmlsu39.html
index db1b8f75..71b070cd 100644
--- a/docs/html/userhtmlsu39.html
+++ b/docs/html/userhtmlsu39.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 832--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 857--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu43.html" >next</a>] [<a 
 href="userhtmlsu38.html" >prev</a>] [<a 
 href="userhtmlsu38.html#tailuserhtmlsu38.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu42.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-43">
 call&#x00A0;psb_spfree(a,&#x00A0;desc_a,&#x00A0;info)
 </pre>
-<!--l. 836--><p class="nopar" >
-<!--l. 838--><p class="indent" >
+<!--l. 861--><p class="nopar" >
+<!--l. 863--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -65,7 +65,7 @@ href="userhtmlsu5.html#descdata"><span
 class="cmtt-10">psb</span><span 
 class="cmtt-10">_desc</span><span 
 class="cmtt-10">_type</span></a>.</dd></dl>
-<!--l. 853--><p class="indent" >
+<!--l. 878--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -87,12 +87,12 @@ class="newline" />An integer value; 0 means no error has been detected.</dd></dl
                                                                   
 
                                                                   
-   <!--l. 868--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 893--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu43.html" >next</a>] [<a 
 href="userhtmlsu38.html" >prev</a>] [<a 
 href="userhtmlsu38.html#tailuserhtmlsu38.html" >prev-tail</a>] [<a 
 href="userhtmlsu39.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu42.html" >up</a>] </p></div>
-<!--l. 868--><p class="indent" >   <a 
+<!--l. 893--><p class="indent" >   <a 
  id="tailuserhtmlsu39.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu40.html b/docs/html/userhtmlsu40.html
index 1cff4439..7485edd3 100644
--- a/docs/html/userhtmlsu40.html
+++ b/docs/html/userhtmlsu40.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 869--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 894--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu44.html" >next</a>] [<a 
 href="userhtmlsu39.html" >prev</a>] [<a 
 href="userhtmlsu39.html#tailuserhtmlsu39.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu43.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-44">
 call&#x00A0;psb_sprn(a,&#x00A0;decsc_a,&#x00A0;info,&#x00A0;clear)
 </pre>
-<!--l. 873--><p class="nopar" >
-<!--l. 875--><p class="indent" >
+<!--l. 898--><p class="nopar" >
+<!--l. 900--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -76,7 +76,7 @@ class="cmbx-10">optional</span>.<br
 class="newline" />Intent: <span 
 class="cmbx-10">in</span>.<br 
 class="newline" />Default: true.</dd></dl>
-<!--l. 895--><p class="indent" >
+<!--l. 920--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -92,7 +92,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 903--><p class="noindent" ><span 
+<!--l. 928--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -103,12 +103,12 @@ class="cmbx-12">Notes</span>
                                                                   
 
                                                                   
-   <!--l. 956--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 981--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu44.html" >next</a>] [<a 
 href="userhtmlsu39.html" >prev</a>] [<a 
 href="userhtmlsu39.html#tailuserhtmlsu39.html" >prev-tail</a>] [<a 
 href="userhtmlsu40.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu43.html" >up</a>] </p></div>
-<!--l. 956--><p class="indent" >   <a 
+<!--l. 981--><p class="indent" >   <a 
  id="tailuserhtmlsu40.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu41.html b/docs/html/userhtmlsu41.html
index b0478a11..af11ac05 100644
--- a/docs/html/userhtmlsu41.html
+++ b/docs/html/userhtmlsu41.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 956--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 981--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu45.html" >next</a>] [<a 
 href="userhtmlsu40.html" >prev</a>] [<a 
 href="userhtmlsu40.html#tailuserhtmlsu40.html" >prev-tail</a>] [<a 
@@ -22,10 +22,10 @@ href="userhtmlsu32.html#userhtmlsu44.html" >up</a>] </p></div>
 
                                                                   
    <pre class="verbatim" id="verbatim-45">
-call&#x00A0;psb_geall(x,&#x00A0;desc_a,&#x00A0;info,&#x00A0;n,&#x00A0;lb)
+call&#x00A0;psb_geall(x,&#x00A0;desc_a,&#x00A0;info[,&#x00A0;dupl,&#x00A0;bldmode,&#x00A0;n,&#x00A0;lb])
 </pre>
-<!--l. 961--><p class="nopar" >
-<!--l. 963--><p class="indent" >
+<!--l. 986--><p class="nopar" >
+<!--l. 988--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -77,8 +77,40 @@ class="newline" />Intent: <span
 class="cmbx-10">in</span>.<br 
 class="newline" />Specified as: Integer scalar, default 1. It is not a valid argument if <span 
 class="cmmi-10">x </span>is a
-     rank-1 array.</dd></dl>
-<!--l. 985--><p class="indent" >
+     rank-1 array.
+     </dd><dt class="description">
+<span 
+class="cmbx-10">dupl</span> </dt><dd 
+class="description">How to handle duplicate coefficients.<br 
+class="newline" />Scope: <span 
+class="cmbx-10">global</span>.<br 
+class="newline" />Type: <span 
+class="cmbx-10">optional</span>.<br 
+class="newline" />Intent: <span 
+class="cmbx-10">in</span>.<br 
+class="newline" />Specified as: integer, possible values: <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_dupl_ovwrt_</span></span></span>, <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_dupl_add_</span></span></span>;
+     <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_dupl_err_</span></span></span> has no effect.
+     </dd><dt class="description">
+<span 
+class="cmbx-10">bldmode</span> </dt><dd 
+class="description">Whether to keep track of matrix entries that do not belong to the
+     current process.<br 
+class="newline" />Scope: <span 
+class="cmbx-10">global</span>.<br 
+class="newline" />Type: <span 
+class="cmbx-10">optional</span>.<br 
+class="newline" />Intent: <span 
+class="cmbx-10">in</span>.<br 
+class="newline" />Specified                                                                                 as:
+     an integer value <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_noremote_</span></span></span>, <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_remote_</span></span></span>. Default:
+     <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_noremote_</span></span></span>.</dd></dl>
+<!--l. 1023--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -101,9 +133,6 @@ class="cmtt-10">_T</span><span
 class="cmtt-10">_vect</span><span 
 class="cmtt-10">_type</span></a>, of type real, complex or integer.<br 
 class="newline" />
-                                                                  
-
-                                                                  
      </dd><dt class="description">
 <span 
 class="cmbx-10">info</span> </dt><dd 
@@ -115,18 +144,25 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
+<!--l. 1038--><p class="noindent" ><span 
+class="cmbx-12">Notes</span>
+     <ol  class="enumerate1" >
+     <li 
+  class="enumerate" id="x52-89002x1">Using  <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_matbld_remote_</span></span></span> is  likely  to  cause  a  runtime  overhead  at
+     assembly time;</li></ol>
                                                                   
 
                                                                   
                                                                   
 
                                                                   
-   <!--l. 1004--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1047--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu45.html" >next</a>] [<a 
 href="userhtmlsu40.html" >prev</a>] [<a 
 href="userhtmlsu40.html#tailuserhtmlsu40.html" >prev-tail</a>] [<a 
 href="userhtmlsu41.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu44.html" >up</a>] </p></div>
-<!--l. 1004--><p class="indent" >   <a 
+<!--l. 1047--><p class="indent" >   <a 
  id="tailuserhtmlsu41.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu42.html b/docs/html/userhtmlsu42.html
index d99372bc..eef5ec20 100644
--- a/docs/html/userhtmlsu42.html
+++ b/docs/html/userhtmlsu42.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1004--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1047--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu46.html" >next</a>] [<a 
 href="userhtmlsu41.html" >prev</a>] [<a 
 href="userhtmlsu41.html#tailuserhtmlsu41.html" >prev-tail</a>] [<a 
@@ -22,10 +22,10 @@ href="userhtmlsu32.html#userhtmlsu45.html" >up</a>] </p></div>
 
                                                                   
    <pre class="verbatim" id="verbatim-46">
-call&#x00A0;psb_geins(m,&#x00A0;irw,&#x00A0;val,&#x00A0;x,&#x00A0;desc_a,&#x00A0;info&#x00A0;[,dupl,local])
+call&#x00A0;psb_geins(m,&#x00A0;irw,&#x00A0;val,&#x00A0;x,&#x00A0;desc_a,&#x00A0;info&#x00A0;[,local])
 </pre>
-<!--l. 1009--><p class="nopar" >
-<!--l. 1011--><p class="indent" >
+<!--l. 1052--><p class="nopar" >
+<!--l. 1054--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -89,22 +89,6 @@ href="userhtmlsu5.html#descdata"><span
 class="cmtt-10">psb</span><span 
 class="cmtt-10">_desc</span><span 
 class="cmtt-10">_type</span></a>.
-     </dd><dt class="description">
-<span 
-class="cmbx-10">dupl</span> </dt><dd 
-class="description">How to handle duplicate coefficients.<br 
-class="newline" />Scope: <span 
-class="cmbx-10">global</span>.<br 
-class="newline" />Type: <span 
-class="cmbx-10">optional</span>.<br 
-class="newline" />Intent: <span 
-class="cmbx-10">in</span>.<br 
-class="newline" />Specified as: integer, possible values: <span class="obeylines-h"><span class="verb"><span 
-class="cmtt-10">psb_dupl_ovwrt_</span></span></span>, <span class="obeylines-h"><span class="verb"><span 
-class="cmtt-10">psb_dupl_add_</span></span></span>.
-                                                                  
-
-                                                                  
      </dd><dt class="description">
 <span 
 class="cmbx-10">local</span> </dt><dd 
@@ -118,7 +102,10 @@ class="cmbx-10">optional</span>.<br
 class="newline" />Specified as: a logical value; default: <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">.false.</span></span></span>.
      </dd></dl>
-<!--l. 1051--><p class="indent" >
+<!--l. 1088--><p class="indent" >
+                                                                  
+
+                                                                  
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -152,7 +139,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 1066--><p class="noindent" ><span 
+<!--l. 1103--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -167,12 +154,12 @@ class="cmbx-12">Notes</span>
                                                                   
 
                                                                   
-   <!--l. 1077--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1114--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu46.html" >next</a>] [<a 
 href="userhtmlsu41.html" >prev</a>] [<a 
 href="userhtmlsu41.html#tailuserhtmlsu41.html" >prev-tail</a>] [<a 
 href="userhtmlsu42.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu45.html" >up</a>] </p></div>
-<!--l. 1077--><p class="indent" >   <a 
+<!--l. 1114--><p class="indent" >   <a 
  id="tailuserhtmlsu42.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu43.html b/docs/html/userhtmlsu43.html
index 084b019a..3b155296 100644
--- a/docs/html/userhtmlsu43.html
+++ b/docs/html/userhtmlsu43.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1077--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1114--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu47.html" >next</a>] [<a 
 href="userhtmlsu42.html" >prev</a>] [<a 
 href="userhtmlsu42.html#tailuserhtmlsu42.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu46.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-47">
 call&#x00A0;psb_geasb(x,&#x00A0;desc_a,&#x00A0;info,&#x00A0;mold)
 </pre>
-<!--l. 1082--><p class="nopar" >
-<!--l. 1084--><p class="indent" >
+<!--l. 1119--><p class="nopar" >
+<!--l. 1121--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -75,7 +75,7 @@ class="cmtt-10">psb</span><span
 class="cmtt-10">_T</span><span 
 class="cmtt-10">_vect</span><span 
 class="cmtt-10">_type</span></a>.</dd></dl>
-<!--l. 1100--><p class="indent" >
+<!--l. 1137--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -109,15 +109,36 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
+<!--l. 1153--><p class="noindent" ><span 
+class="cmbx-12">Notes</span>
                                                                   
 
                                                                   
-<!--l. 1117--><div class="crosslinks"><p class="noindent">[<a 
+     <ol  class="enumerate1" >
+     <li 
+  class="enumerate" id="x54-91002x1">On entry to this routine the descriptor must be in the assembled state,
+     i.e. <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">psb_cdasb</span></span></span> must already have been called.
+     </li>
+     <li 
+  class="enumerate" id="x54-91004x2">If  the  <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">bldmode=psb_matbld_remote_</span></span></span> value  was  specified  at  allocation
+     time,  contributions  defined  on  the  current  process  but  belonging  to  a
+     remote process will be handled accordingly. This is most likely to occur in
+     finite element applications, with <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">dupl=psb_dupl_add_</span></span></span>.</li></ol>
+                                                                  
+
+                                                                  
+                                                                  
+
+                                                                  
+   <!--l. 1169--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu47.html" >next</a>] [<a 
 href="userhtmlsu42.html" >prev</a>] [<a 
 href="userhtmlsu42.html#tailuserhtmlsu42.html" >prev-tail</a>] [<a 
 href="userhtmlsu43.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu46.html" >up</a>] </p></div>
-<!--l. 1117--><p class="indent" >   <a 
+<!--l. 1169--><p class="indent" >   <a 
  id="tailuserhtmlsu43.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu44.html b/docs/html/userhtmlsu44.html
index de7bf716..c385f927 100644
--- a/docs/html/userhtmlsu44.html
+++ b/docs/html/userhtmlsu44.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1117--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1169--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu48.html" >next</a>] [<a 
 href="userhtmlsu43.html" >prev</a>] [<a 
 href="userhtmlsu43.html#tailuserhtmlsu43.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu47.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-48">
 call&#x00A0;psb_gefree(x,&#x00A0;desc_a,&#x00A0;info)
 </pre>
-<!--l. 1122--><p class="nopar" >
-<!--l. 1124--><p class="indent" >
+<!--l. 1174--><p class="nopar" >
+<!--l. 1176--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -69,7 +69,7 @@ class="cmtt-10">psb</span><span
 class="cmtt-10">_desc</span><span 
 class="cmtt-10">_type</span></a>.<br 
 class="newline" /></dd></dl>
-<!--l. 1142--><p class="indent" >
+<!--l. 1194--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -91,12 +91,12 @@ class="newline" />An integer value; 0 means no error has been detected.</dd></dl
                                                                   
 
                                                                   
-   <!--l. 1155--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1207--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu48.html" >next</a>] [<a 
 href="userhtmlsu43.html" >prev</a>] [<a 
 href="userhtmlsu43.html#tailuserhtmlsu43.html" >prev-tail</a>] [<a 
 href="userhtmlsu44.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu47.html" >up</a>] </p></div>
-<!--l. 1155--><p class="indent" >   <a 
+<!--l. 1207--><p class="indent" >   <a 
  id="tailuserhtmlsu44.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu45.html b/docs/html/userhtmlsu45.html
index 19d5c86b..ae3994d0 100644
--- a/docs/html/userhtmlsu45.html
+++ b/docs/html/userhtmlsu45.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1156--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1208--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu49.html" >next</a>] [<a 
 href="userhtmlsu44.html" >prev</a>] [<a 
 href="userhtmlsu44.html#tailuserhtmlsu44.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu48.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-49">
 call&#x00A0;psb_gelp(trans,&#x00A0;iperm,&#x00A0;x,&#x00A0;info)
 </pre>
-<!--l. 1161--><p class="nopar" >
-<!--l. 1163--><p class="indent" >
+<!--l. 1213--><p class="nopar" >
+<!--l. 1215--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -76,7 +76,7 @@ class="newline" />Intent: <span
 class="cmbx-10">inout</span>.<br 
 class="newline" />Specified as: a one or two dimensional array.<br 
 class="newline" /></dd></dl>
-<!--l. 1183--><p class="indent" >
+<!--l. 1235--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -98,12 +98,12 @@ class="newline" />An integer value; 0 means no error has been detected.</dd></dl
                                                                   
 
                                                                   
-   <!--l. 1196--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1248--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu49.html" >next</a>] [<a 
 href="userhtmlsu44.html" >prev</a>] [<a 
 href="userhtmlsu44.html#tailuserhtmlsu44.html" >prev-tail</a>] [<a 
 href="userhtmlsu45.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu48.html" >up</a>] </p></div>
-<!--l. 1196--><p class="indent" >   <a 
+<!--l. 1248--><p class="indent" >   <a 
  id="tailuserhtmlsu45.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu46.html b/docs/html/userhtmlsu46.html
index 00068b93..ebe9591e 100644
--- a/docs/html/userhtmlsu46.html
+++ b/docs/html/userhtmlsu46.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1197--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1249--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu50.html" >next</a>] [<a 
 href="userhtmlsu45.html" >prev</a>] [<a 
 href="userhtmlsu45.html#tailuserhtmlsu45.html" >prev-tail</a>] [<a 
@@ -25,8 +25,8 @@ href="userhtmlsu32.html#userhtmlsu49.html" >up</a>] </p></div>
 call&#x00A0;psb_glob_to_loc(x,&#x00A0;y,&#x00A0;desc_a,&#x00A0;info,&#x00A0;iact,owned)
 call&#x00A0;psb_glob_to_loc(x,&#x00A0;desc_a,&#x00A0;info,&#x00A0;iact,owned)
 </pre>
-<!--l. 1203--><p class="nopar" >
-<!--l. 1205--><p class="indent" >
+<!--l. 1255--><p class="nopar" >
+<!--l. 1257--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -88,7 +88,7 @@ class="newline" />Intent: <span
 class="cmbx-10">in</span>.<br 
 class="newline" />If  true,  then  only  indices  strictly  owned  by  the  current  process  are
      considered valid, if false then halo indices are also accepted. Default: false.</dd></dl>
-<!--l. 1233--><p class="indent" >
+<!--l. 1285--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -134,7 +134,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 1255--><p class="noindent" ><span 
+<!--l. 1307--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -151,12 +151,12 @@ class="cmtt-10">I</span></span></span>gnore means that the negative output is th
                                                                   
 
                                                                   
-   <!--l. 1264--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1316--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu50.html" >next</a>] [<a 
 href="userhtmlsu45.html" >prev</a>] [<a 
 href="userhtmlsu45.html#tailuserhtmlsu45.html" >prev-tail</a>] [<a 
 href="userhtmlsu46.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu49.html" >up</a>] </p></div>
-<!--l. 1264--><p class="indent" >   <a 
+<!--l. 1316--><p class="indent" >   <a 
  id="tailuserhtmlsu46.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu47.html b/docs/html/userhtmlsu47.html
index 1d89e7a0..c222519b 100644
--- a/docs/html/userhtmlsu47.html
+++ b/docs/html/userhtmlsu47.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1265--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1317--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu51.html" >next</a>] [<a 
 href="userhtmlsu46.html" >prev</a>] [<a 
 href="userhtmlsu46.html#tailuserhtmlsu46.html" >prev-tail</a>] [<a 
@@ -25,8 +25,8 @@ href="userhtmlsu32.html#userhtmlsu50.html" >up</a>] </p></div>
 call&#x00A0;psb_loc_to_glob(x,&#x00A0;y,&#x00A0;desc_a,&#x00A0;info,&#x00A0;iact)
 call&#x00A0;psb_loc_to_glob(x,&#x00A0;desc_a,&#x00A0;info,&#x00A0;iact)
 </pre>
-<!--l. 1271--><p class="nopar" >
-<!--l. 1273--><p class="indent" >
+<!--l. 1323--><p class="nopar" >
+<!--l. 1325--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -77,7 +77,7 @@ class="cmtt-10">I</span></span></span>gnore, <span class="obeylines-h"><span cla
 class="cmtt-10">W</span></span></span>arning or <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">A</span></span></span>bort, default <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">I</span></span></span>gnore.</dd></dl>
-<!--l. 1294--><p class="indent" >
+<!--l. 1346--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -129,12 +129,12 @@ class="newline" />An integer value; 0 means no error has been detected.</dd></dl
                                                                   
 
                                                                   
-   <!--l. 1321--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1373--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu51.html" >next</a>] [<a 
 href="userhtmlsu46.html" >prev</a>] [<a 
 href="userhtmlsu46.html#tailuserhtmlsu46.html" >prev-tail</a>] [<a 
 href="userhtmlsu47.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu50.html" >up</a>] </p></div>
-<!--l. 1321--><p class="indent" >   <a 
+<!--l. 1373--><p class="indent" >   <a 
  id="tailuserhtmlsu47.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu48.html b/docs/html/userhtmlsu48.html
index fc243c86..78911fdc 100644
--- a/docs/html/userhtmlsu48.html
+++ b/docs/html/userhtmlsu48.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1321--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1373--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu52.html" >next</a>] [<a 
 href="userhtmlsu47.html" >prev</a>] [<a 
 href="userhtmlsu47.html#tailuserhtmlsu47.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu51.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-52">
 call&#x00A0;psb_is_owned(x,&#x00A0;desc_a)
 </pre>
-<!--l. 1326--><p class="nopar" >
-<!--l. 1328--><p class="indent" >
+<!--l. 1378--><p class="nopar" >
+<!--l. 1380--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -62,7 +62,7 @@ href="userhtmlsu5.html#descdata"><span
 class="cmtt-10">psb</span><span 
 class="cmtt-10">_desc</span><span 
 class="cmtt-10">_type</span></a>.</dd></dl>
-<!--l. 1343--><p class="indent" >
+<!--l. 1395--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -79,7 +79,7 @@ class="cmbx-10">required</span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" /></dd></dl>
-<!--l. 1353--><p class="noindent" ><span 
+<!--l. 1405--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -92,12 +92,12 @@ class="cmtt-10">.true.</span></span></span> value for an index that is strictly
                                                                   
 
                                                                   
-   <!--l. 1361--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1413--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu52.html" >next</a>] [<a 
 href="userhtmlsu47.html" >prev</a>] [<a 
 href="userhtmlsu47.html#tailuserhtmlsu47.html" >prev-tail</a>] [<a 
 href="userhtmlsu48.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu51.html" >up</a>] </p></div>
-<!--l. 1361--><p class="indent" >   <a 
+<!--l. 1413--><p class="indent" >   <a 
  id="tailuserhtmlsu48.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu49.html b/docs/html/userhtmlsu49.html
index e29e9031..76f09994 100644
--- a/docs/html/userhtmlsu49.html
+++ b/docs/html/userhtmlsu49.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1361--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1413--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu53.html" >next</a>] [<a 
 href="userhtmlsu48.html" >prev</a>] [<a 
 href="userhtmlsu48.html#tailuserhtmlsu48.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu52.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-53">
 call&#x00A0;psb_owned_index(y,&#x00A0;x,&#x00A0;desc_a,&#x00A0;info)
 </pre>
-<!--l. 1366--><p class="nopar" >
-<!--l. 1368--><p class="indent" >
+<!--l. 1418--><p class="nopar" >
+<!--l. 1420--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -76,7 +76,7 @@ class="cmtt-10">I</span></span></span>gnore, <span class="obeylines-h"><span cla
 class="cmtt-10">W</span></span></span>arning or <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">A</span></span></span>bort, default <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">I</span></span></span>gnore.</dd></dl>
-<!--l. 1389--><p class="indent" >
+<!--l. 1441--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -107,7 +107,7 @@ class="newline" />An integer value; 0 means no error has been detected.</dd></dl
                                                                   
 
                                                                   
-<!--l. 1405--><p class="noindent" ><span 
+<!--l. 1457--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -120,12 +120,12 @@ class="cmtt-10">.true.</span></span></span> value for those indices that are str
                                                                   
 
                                                                   
-   <!--l. 1413--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1465--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu53.html" >next</a>] [<a 
 href="userhtmlsu48.html" >prev</a>] [<a 
 href="userhtmlsu48.html#tailuserhtmlsu48.html" >prev-tail</a>] [<a 
 href="userhtmlsu49.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu52.html" >up</a>] </p></div>
-<!--l. 1413--><p class="indent" >   <a 
+<!--l. 1465--><p class="indent" >   <a 
  id="tailuserhtmlsu49.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu50.html b/docs/html/userhtmlsu50.html
index 93432b3f..408b557e 100644
--- a/docs/html/userhtmlsu50.html
+++ b/docs/html/userhtmlsu50.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1413--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1465--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu54.html" >next</a>] [<a 
 href="userhtmlsu49.html" >prev</a>] [<a 
 href="userhtmlsu49.html#tailuserhtmlsu49.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu53.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-54">
 call&#x00A0;psb_is_local(x,&#x00A0;desc_a)
 </pre>
-<!--l. 1418--><p class="nopar" >
-<!--l. 1420--><p class="indent" >
+<!--l. 1470--><p class="nopar" >
+<!--l. 1472--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -62,7 +62,7 @@ href="userhtmlsu5.html#descdata"><span
 class="cmtt-10">psb</span><span 
 class="cmtt-10">_desc</span><span 
 class="cmtt-10">_type</span></a>.</dd></dl>
-<!--l. 1435--><p class="indent" >
+<!--l. 1487--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -79,7 +79,7 @@ class="cmbx-10">required</span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" /></dd></dl>
-<!--l. 1445--><p class="noindent" ><span 
+<!--l. 1497--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -92,12 +92,12 @@ class="cmtt-10">.true.</span></span></span> value for an index that is local to
                                                                   
 
                                                                   
-   <!--l. 1452--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1504--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu54.html" >next</a>] [<a 
 href="userhtmlsu49.html" >prev</a>] [<a 
 href="userhtmlsu49.html#tailuserhtmlsu49.html" >prev-tail</a>] [<a 
 href="userhtmlsu50.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu53.html" >up</a>] </p></div>
-<!--l. 1452--><p class="indent" >   <a 
+<!--l. 1504--><p class="indent" >   <a 
  id="tailuserhtmlsu50.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu51.html b/docs/html/userhtmlsu51.html
index 5ff3fcfb..3b9a80ca 100644
--- a/docs/html/userhtmlsu51.html
+++ b/docs/html/userhtmlsu51.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1452--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1504--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu55.html" >next</a>] [<a 
 href="userhtmlsu50.html" >prev</a>] [<a 
 href="userhtmlsu50.html#tailuserhtmlsu50.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu54.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-55">
 call&#x00A0;psb_local_index(y,&#x00A0;x,&#x00A0;desc_a,&#x00A0;info)
 </pre>
-<!--l. 1457--><p class="nopar" >
-<!--l. 1459--><p class="indent" >
+<!--l. 1509--><p class="nopar" >
+<!--l. 1511--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -76,7 +76,7 @@ class="cmtt-10">I</span></span></span>gnore, <span class="obeylines-h"><span cla
 class="cmtt-10">W</span></span></span>arning or <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">A</span></span></span>bort, default <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">I</span></span></span>gnore.</dd></dl>
-<!--l. 1480--><p class="indent" >
+<!--l. 1532--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -107,7 +107,7 @@ class="newline" />An integer value; 0 means no error has been detected.</dd></dl
                                                                   
 
                                                                   
-<!--l. 1496--><p class="noindent" ><span 
+<!--l. 1548--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -120,12 +120,12 @@ class="cmtt-10">.true.</span></span></span> value for those indices that are loc
                                                                   
 
                                                                   
-   <!--l. 1508--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1560--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu55.html" >next</a>] [<a 
 href="userhtmlsu50.html" >prev</a>] [<a 
 href="userhtmlsu50.html#tailuserhtmlsu50.html" >prev-tail</a>] [<a 
 href="userhtmlsu51.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu54.html" >up</a>] </p></div>
-<!--l. 1508--><p class="indent" >   <a 
+<!--l. 1560--><p class="indent" >   <a 
  id="tailuserhtmlsu51.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu52.html b/docs/html/userhtmlsu52.html
index 2b85296f..6826dfc5 100644
--- a/docs/html/userhtmlsu52.html
+++ b/docs/html/userhtmlsu52.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1509--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1561--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu56.html" >next</a>] [<a 
 href="userhtmlsu51.html" >prev</a>] [<a 
 href="userhtmlsu51.html#tailuserhtmlsu51.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu55.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-56">
 call&#x00A0;psb_get_boundary(bndel,&#x00A0;desc,&#x00A0;info)
 </pre>
-<!--l. 1514--><p class="nopar" >
-<!--l. 1516--><p class="indent" >
+<!--l. 1566--><p class="nopar" >
+<!--l. 1568--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -49,7 +49,7 @@ href="userhtmlsu5.html#descdata"><span
 class="cmtt-10">psb</span><span 
 class="cmtt-10">_desc</span><span 
 class="cmtt-10">_type</span></a>.</dd></dl>
-<!--l. 1526--><p class="indent" >
+<!--l. 1578--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -78,7 +78,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 1542--><p class="noindent" ><span 
+<!--l. 1594--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -96,12 +96,12 @@ class="cmtt-10">bndel</span></span></span> will  be  exactly  equal  to  the  nu
                                                                   
 
                                                                   
-   <!--l. 1551--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1603--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu56.html" >next</a>] [<a 
 href="userhtmlsu51.html" >prev</a>] [<a 
 href="userhtmlsu51.html#tailuserhtmlsu51.html" >prev-tail</a>] [<a 
 href="userhtmlsu52.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu55.html" >up</a>] </p></div>
-<!--l. 1551--><p class="indent" >   <a 
+<!--l. 1603--><p class="indent" >   <a 
  id="tailuserhtmlsu52.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu53.html b/docs/html/userhtmlsu53.html
index 49860a9c..10ce7017 100644
--- a/docs/html/userhtmlsu53.html
+++ b/docs/html/userhtmlsu53.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1552--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1604--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlse7.html" >next</a>] [<a 
 href="userhtmlsu52.html" >prev</a>] [<a 
 href="userhtmlsu52.html#tailuserhtmlsu52.html" >prev-tail</a>] [<a 
@@ -24,8 +24,8 @@ href="userhtmlsu32.html#userhtmlsu56.html" >up</a>] </p></div>
    <pre class="verbatim" id="verbatim-57">
 call&#x00A0;psb_get_overlap(ovrel,&#x00A0;desc,&#x00A0;info)
 </pre>
-<!--l. 1557--><p class="nopar" >
-<!--l. 1559--><p class="indent" >
+<!--l. 1609--><p class="nopar" >
+<!--l. 1611--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -49,7 +49,7 @@ href="userhtmlsu5.html#descdata"><span
 class="cmtt-10">psb</span><span 
 class="cmtt-10">_desc</span><span 
 class="cmtt-10">_type</span></a>.</dd></dl>
-<!--l. 1569--><p class="indent" >
+<!--l. 1621--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -78,7 +78,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 1585--><p class="noindent" ><span 
+<!--l. 1637--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -95,12 +95,12 @@ class="cmtt-10">ovrel</span></span></span> will be exactly equal to the number o
                                                                   
 
                                                                   
-   <!--l. 1595--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1647--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlse7.html" >next</a>] [<a 
 href="userhtmlsu52.html" >prev</a>] [<a 
 href="userhtmlsu52.html#tailuserhtmlsu52.html" >prev-tail</a>] [<a 
 href="userhtmlsu53.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu56.html" >up</a>] </p></div>
-<!--l. 1595--><p class="indent" >   <a 
+<!--l. 1647--><p class="indent" >   <a 
  id="tailuserhtmlsu53.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu54.html b/docs/html/userhtmlsu54.html
index 394b708f..a4cf2538 100644
--- a/docs/html/userhtmlsu54.html
+++ b/docs/html/userhtmlsu54.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1596--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1648--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu57.html" >next</a>] [<a 
 href="userhtmlsu53.html" >prev</a>] [<a 
 href="userhtmlsu53.html#tailuserhtmlsu53.html" >prev-tail</a>] [<a 
@@ -25,8 +25,8 @@ href="userhtmlsu32.html#userhtmlse7.html" >up</a>] </p></div>
 call&#x00A0;psb_sp_getrow(row,&#x00A0;a,&#x00A0;nz,&#x00A0;ia,&#x00A0;ja,&#x00A0;val,&#x00A0;info,&#x00A0;&amp;
 &#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&amp;&#x00A0;append,&#x00A0;nzin,&#x00A0;lrw)
 </pre>
-<!--l. 1602--><p class="nopar" >
-<!--l. 1604--><p class="indent" >
+<!--l. 1654--><p class="nopar" >
+<!--l. 1656--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -103,7 +103,7 @@ class="cmmi-10">row</span>.
                                                                   
 
                                                                   
-<!--l. 1644--><p class="indent" >
+<!--l. 1696--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -166,7 +166,7 @@ class="cmbx-10">required </span><br
 class="newline" />Intent: <span 
 class="cmbx-10">out</span>.<br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
-<!--l. 1673--><p class="noindent" ><span 
+<!--l. 1725--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
@@ -198,12 +198,12 @@ class="cmtt-10">psb_loc_to_glob</span></span></span> routine on the output.</li>
                                                                   
 
                                                                   
-   <!--l. 1689--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1741--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu57.html" >next</a>] [<a 
 href="userhtmlsu53.html" >prev</a>] [<a 
 href="userhtmlsu53.html#tailuserhtmlsu53.html" >prev-tail</a>] [<a 
 href="userhtmlsu54.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlse7.html" >up</a>] </p></div>
-<!--l. 1689--><p class="indent" >   <a 
+<!--l. 1741--><p class="indent" >   <a 
  id="tailuserhtmlsu54.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu55.html b/docs/html/userhtmlsu55.html
index ddeb9e95..0b438e9c 100644
--- a/docs/html/userhtmlsu55.html
+++ b/docs/html/userhtmlsu55.html
@@ -10,7 +10,7 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1689--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1741--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu58.html" >next</a>] [<a 
 href="userhtmlsu54.html" >prev</a>] [<a 
 href="userhtmlsu54.html#tailuserhtmlsu54.html" >prev-tail</a>] [<a 
@@ -18,7 +18,7 @@ href="userhtmlsu52.html#tailuserhtmlsu55.html">tail</a>] [<a
 href="userhtmlsu32.html#userhtmlsu57.html" >up</a>] </p></div>
    <h4 class="subsectionHead"><span class="titlemark">6.26   </span> <a 
  id="x66-1030006.26"></a>psb_sizeof &#8212; Memory occupation</h4>
-<!--l. 1692--><p class="noindent" >This function computes the memory occupation of a PSBLAS object.
+<!--l. 1744--><p class="noindent" >This function computes the memory occupation of a PSBLAS object.
                                                                   
 
                                                                   
@@ -27,8 +27,8 @@ isz&#x00A0;=&#x00A0;psb_sizeof(a)
 isz&#x00A0;=&#x00A0;psb_sizeof(desc_a)
 isz&#x00A0;=&#x00A0;psb_sizeof(prec)
 </pre>
-<!--l. 1699--><p class="nopar" >
-<!--l. 1701--><p class="indent" >
+<!--l. 1751--><p class="nopar" >
+<!--l. 1753--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -102,12 +102,12 @@ class="cmtt-10">integer(psb_long_int_k_)</span></span></span> number.</dd></dl>
                                                                   
 
                                                                   
-   <!--l. 1728--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1780--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu58.html" >next</a>] [<a 
 href="userhtmlsu54.html" >prev</a>] [<a 
 href="userhtmlsu54.html#tailuserhtmlsu54.html" >prev-tail</a>] [<a 
 href="userhtmlsu55.html" >front</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu57.html" >up</a>] </p></div>
-<!--l. 1728--><p class="indent" >   <a 
+<!--l. 1780--><p class="indent" >   <a 
  id="tailuserhtmlsu55.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu56.html b/docs/html/userhtmlsu56.html
index f6f2f2a7..26ab17eb 100644
--- a/docs/html/userhtmlsu56.html
+++ b/docs/html/userhtmlsu56.html
@@ -10,20 +10,20 @@
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 1728--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 1780--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu55.html" >prev</a>] [<a 
 href="userhtmlsu55.html#tailuserhtmlsu55.html" >prev-tail</a>] [<a 
 href="userhtmlsu53.html#tailuserhtmlsu56.html">tail</a>] [<a 
 href="userhtmlsu32.html#userhtmlsu58.html" >up</a>] </p></div>
    <h4 class="subsectionHead"><span class="titlemark">6.27   </span> <a 
  id="x67-1040006.27"></a>Sorting utilities &#8212; </h4>
-<!--l. 1731--><p class="noindent" ><span 
+<!--l. 1783--><p class="noindent" ><span 
 class="cmbx-12">psb</span><span 
 class="cmbx-12">_msort &#8212; Sorting by the Merge-sort algorithm</span>
-<!--l. 1734--><p class="noindent" ><span 
+<!--l. 1786--><p class="noindent" ><span 
 class="cmbx-12">psb</span><span 
 class="cmbx-12">_qsort &#8212; Sorting by the Quicksort algorithm</span>
-<!--l. 1737--><p class="noindent" ><span 
+<!--l. 1789--><p class="noindent" ><span 
 class="cmbx-12">psb</span><span 
 class="cmbx-12">_hsort &#8212; Sorting by the Heapsort algorithm</span>
                                                                   
@@ -34,8 +34,8 @@ call&#x00A0;psb_msort(x,ix,dir,flag)
 call&#x00A0;psb_qsort(x,ix,dir,flag)
 call&#x00A0;psb_hsort(x,ix,dir,flag)
 </pre>
-<!--l. 1742--><p class="nopar" >
-<!--l. 1744--><p class="indent" >   These serial routines sort a sequence <span 
+<!--l. 1794--><p class="nopar" >
+<!--l. 1796--><p class="indent" >   These serial routines sort a sequence <span 
 class="cmmi-10">X </span>into ascending or descending order. The
 argument meaning is identical for the three calls; the only difference is the algorithm
 used to accomplish the task (see Usage Notes below).
@@ -102,7 +102,7 @@ class="cmtt-10">psb_sort_keep_idx_</span></span></span>;
      default <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">psb_sort_ovw_idx_</span></span></span>.
      </dd></dl>
-<!--l. 1774--><p class="indent" >
+<!--l. 1826--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -126,7 +126,7 @@ class="cmbx-10">Optional </span><br
 class="newline" />An integer array of rank 1, whose entries are moved to the same position
      as the corresponding entries in <span 
 class="cmmi-10">x</span>.</dd></dl>
-<!--l. 1785--><p class="noindent" ><span 
+<!--l. 1837--><p class="noindent" ><span 
 class="cmbx-12">Notes</span>
      <ol  class="enumerate1" >
      <li 
diff --git a/docs/html/userhtmlsu82.html b/docs/html/userhtmlsu82.html
index 70f280e1..fd072e22 100644
--- a/docs/html/userhtmlsu82.html
+++ b/docs/html/userhtmlsu82.html
@@ -105,18 +105,50 @@ class="newline" />An integer value; 0 means no error has been detected.</dd></dl
                                                                   
 
                                                                   
+<!--l. 209--><p class="noindent" ><span 
+class="cmbx-12">Notes</span>
+<!--l. 211--><p class="indent" >   If this function is called on a matrix <span class="lstinline"></span><span 
+class="cmtt-10">a</span> on a distributed communicator only the
+local part is written in output. To get a single MatrixMarket file with the whole
+matrix when appropriate, e.g. for debugging purposes, one could <span 
+class="cmti-10">gather </span>the whole
+matrix on a single rank and then write it. Consider the following example for a
+<span 
+class="cmti-10">double </span>precision matrix
+<div class="center" 
+>
+<!--l. 227--><p class="noindent" >
+<div class="minipage"><pre class="verbatim" id="verbatim-93">
+type(psb_ldspmat_type)&#x00A0;::&#x00A0;aglobal
+call&#x00A0;psb_gather(aglobal,a,desc_a,info)
+if&#x00A0;(iam&#x00A0;==&#x00A0;psb_root_)&#x00A0;then
+call&#x00A0;mm_mat_write(aglobal,mtitle,info,filename)
+end&#x00A0;if
+call&#x00A0;psb_spfree(aglobal,&#x00A0;desc_a,&#x00A0;info)
+</pre>
+<!--l. 237--><p class="nopar" ></div></div>
+<!--l. 241--><p class="noindent" >To simplify this procedure in <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">C</span></span></span>, there is a utility function
+<div class="center" 
+>
+<!--l. 247--><p class="noindent" >
+<div class="minipage"><pre class="verbatim" id="verbatim-94">
+psb_i_t&#x00A0;psb_c_&#x003C;s,d,c,z&#x003E;global_mat_write(ah,cdh);
+</pre>
+<!--l. 251--><p class="nopar" ></div></div>
+<!--l. 255--><p class="noindent" >that produces exactly this result.
                                                                   
 
                                                                   
                                                                   
 
                                                                   
-   <!--l. 210--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 258--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu85.html" >next</a>] [<a 
 href="userhtmlsu81.html" >prev</a>] [<a 
 href="userhtmlsu81.html#tailuserhtmlsu81.html" >prev-tail</a>] [<a 
 href="userhtmlsu82.html" >front</a>] [<a 
 href="userhtmlsu80.html#userhtmlsu84.html" >up</a>] </p></div>
-<!--l. 210--><p class="indent" >   <a 
+<!--l. 258--><p class="indent" >   <a 
  id="tailuserhtmlsu82.html"></a>  
 </body></html> 
diff --git a/docs/html/userhtmlsu83.html b/docs/html/userhtmlsu83.html
index 1a26067f..eb8e3df2 100644
--- a/docs/html/userhtmlsu83.html
+++ b/docs/html/userhtmlsu83.html
@@ -11,7 +11,7 @@ format</title>
 <link rel="stylesheet" type="text/css" href="userhtml.css"> 
 </head><body 
 >
-   <!--l. 211--><div class="crosslinks"><p class="noindent">[<a 
+   <!--l. 259--><div class="crosslinks"><p class="noindent">[<a 
 href="userhtmlsu82.html" >prev</a>] [<a 
 href="userhtmlsu82.html#tailuserhtmlsu82.html" >prev-tail</a>] [<a 
 href="userhtmlsu80.html#tailuserhtmlsu83.html">tail</a>] [<a 
@@ -19,7 +19,7 @@ href="userhtmlsu80.html#userhtmlsu85.html" >up</a>] </p></div>
    <h4 class="subsectionHead"><span class="titlemark">9.6   </span> <a 
  id="x97-1340009.6"></a>mm_array_write &#8212; Write a dense array from a file in the MatrixMarket
 format</h4>
-   <!--l. 213-->
+   <!--l. 261-->
    <div class="lstlisting" id="listing-15"><span class="label"><a 
  id="x97-134001r1"></a></span><span 
 class="cmtt-10">call</span><span 
@@ -42,7 +42,7 @@ class="cmtt-10">filename</span><span
 class="cmtt-10">)</span>
    
    </div>
-<!--l. 217--><p class="indent" >
+<!--l. 265--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">Type:</span> </dt><dd 
@@ -93,7 +93,7 @@ class="newline" />Type:<span
 class="cmbx-10">optional</span>.<br 
 class="newline" />Specified as: an integer value. Only meaningful if filename is not <span class="obeylines-h"><span class="verb"><span 
 class="cmtt-10">-</span></span></span>.</dd></dl>
-<!--l. 239--><p class="indent" >
+<!--l. 287--><p class="indent" >
      <dl class="description"><dt class="description">
 <span 
 class="cmbx-10">On Return</span> </dt><dd 
@@ -108,6 +108,38 @@ class="description">Error code.<br
 class="newline" />Type: <span 
 class="cmbx-10">required </span><br 
 class="newline" />An integer value; 0 means no error has been detected.</dd></dl>
+<!--l. 294--><p class="noindent" ><span 
+class="cmbx-12">Notes</span>
+<!--l. 296--><p class="indent" >   If this function is called on a vector <span class="lstinline"></span><span 
+class="cmtt-10">v</span> on a distributed communicator only the
+local part is written in output. To get a single MatrixMarket file with the whole
+vector when appropriate, e.g. for debugging purposes, one could <span 
+class="cmti-10">gather </span>the whole
+vector on a single rank and then write it. Consider the following example for a <span 
+class="cmti-10">double</span>
+precision vector
+<div class="center" 
+>
+<!--l. 312--><p class="noindent" >
+<div class="minipage"><pre class="verbatim" id="verbatim-95">
+real(psb_dpk_),&#x00A0;allocatable&#x00A0;::&#x00A0;vglobal(:)
+call&#x00A0;psb_gather(vglobal,v,desc,info)
+if&#x00A0;(iam&#x00A0;==&#x00A0;psb_root_)&#x00A0;then
+call&#x00A0;mm_array_write(vglobal,vtitle,info,filename)
+end&#x00A0;if
+call&#x00A0;deallocate(vglobal,&#x00A0;stat=info)
+</pre>
+<!--l. 322--><p class="nopar" ></div></div>
+<!--l. 326--><p class="noindent" >To simplify this procedure in <span class="obeylines-h"><span class="verb"><span 
+class="cmtt-10">C</span></span></span>, there is a utility function
+<div class="center" 
+>
+<!--l. 332--><p class="noindent" >
+<div class="minipage"><pre class="verbatim" id="verbatim-96">
+psb_i_t&#x00A0;psb_c_&#x003C;s,d,c,z&#x003E;global_vec_write(vh,cdh);
+</pre>
+<!--l. 336--><p class="nopar" ></div></div>
+<!--l. 340--><p class="noindent" >that produces exactly this result.
                                                                   
 
                                                                   
diff --git a/docs/html/userhtmlsu84.html b/docs/html/userhtmlsu84.html
index d53605b3..44fd2843 100644
--- a/docs/html/userhtmlsu84.html
+++ b/docs/html/userhtmlsu84.html
@@ -19,7 +19,7 @@ href="userhtmlsu86.html#userhtmlsu87.html" >up</a>] </p></div>
                                                                   
 
                                                                   
-   <pre class="verbatim" id="verbatim-93">
+   <pre class="verbatim" id="verbatim-97">
 call&#x00A0;prec%init(icontxt,ptype,&#x00A0;info)
 </pre>
 <!--l. 30--><p class="nopar" >
diff --git a/docs/html/userhtmlsu85.html b/docs/html/userhtmlsu85.html
index 36fb8868..e551e050 100644
--- a/docs/html/userhtmlsu85.html
+++ b/docs/html/userhtmlsu85.html
@@ -21,7 +21,7 @@ href="userhtmlsu86.html#userhtmlsu89.html" >up</a>] </p></div>
                                                                   
 
                                                                   
-   <pre class="verbatim" id="verbatim-94">
+   <pre class="verbatim" id="verbatim-98">
 call&#x00A0;prec%build(a,&#x00A0;desc_a,&#x00A0;info[,amold,vmold,imold])
 </pre>
 <!--l. 91--><p class="nopar" >
diff --git a/docs/html/userhtmlsu86.html b/docs/html/userhtmlsu86.html
index e56ba39e..9b624a47 100644
--- a/docs/html/userhtmlsu86.html
+++ b/docs/html/userhtmlsu86.html
@@ -21,7 +21,7 @@ href="userhtmlsu86.html#userhtmlse11.html" >up</a>] </p></div>
                                                                   
 
                                                                   
-   <pre class="verbatim" id="verbatim-95">
+   <pre class="verbatim" id="verbatim-99">
 call&#x00A0;prec%apply(x,y,desc_a,info,trans,work)
 call&#x00A0;prec%apply(x,desc_a,info,trans)
 </pre>
diff --git a/docs/html/userhtmlsu87.html b/docs/html/userhtmlsu87.html
index 0941f955..e0e1cceb 100644
--- a/docs/html/userhtmlsu87.html
+++ b/docs/html/userhtmlsu87.html
@@ -21,7 +21,7 @@ href="userhtmlsu86.html#userhtmlsu90.html" >up</a>] </p></div>
                                                                   
 
                                                                   
-   <pre class="verbatim" id="verbatim-96">
+   <pre class="verbatim" id="verbatim-100">
 call&#x00A0;prec%descr(info)
 call&#x00A0;prec%descr(info,iout,&#x00A0;root)
 </pre>
diff --git a/docs/html/userhtmlsu88.html b/docs/html/userhtmlsu88.html
index cec4ce7e..020dc194 100644
--- a/docs/html/userhtmlsu88.html
+++ b/docs/html/userhtmlsu88.html
@@ -20,7 +20,7 @@ href="userhtmlsu86.html#userhtmlli2.html" >up</a>] </p></div>
                                                                   
 
                                                                   
-   <pre class="verbatim" id="verbatim-97">
+   <pre class="verbatim" id="verbatim-101">
 call&#x00A0;&#x00A0;prec%clone(precout,info)
 </pre>
 <!--l. 248--><p class="nopar" >
diff --git a/docs/html/userhtmlsu89.html b/docs/html/userhtmlsu89.html
index b7c9975f..dcf3929f 100644
--- a/docs/html/userhtmlsu89.html
+++ b/docs/html/userhtmlsu89.html
@@ -20,7 +20,7 @@ href="userhtmlsu86.html# " >up</a>] </p></div>
                                                                   
 
                                                                   
-   <pre class="verbatim" id="verbatim-98">
+   <pre class="verbatim" id="verbatim-102">
 call&#x00A0;prec%free(info)
 </pre>
 <!--l. 271--><p class="nopar" >
diff --git a/docs/psblas-3.7.pdf b/docs/psblas-3.8.pdf
similarity index 94%
rename from docs/psblas-3.7.pdf
rename to docs/psblas-3.8.pdf
index 5055db0b..d55df40a 100644
--- a/docs/psblas-3.7.pdf
+++ b/docs/psblas-3.8.pdf
@@ -21,7 +21,7 @@ stream
 % 1 0 obj
 << /S /GoTo /D (title.0) >>
 % 5 0 obj
-(PSBLAS-v3.7.0 User's Guide)
+(PSBLAS-v3.8.0 User's Guide)
 % 6 0 obj
 << /S /GoTo /D (section.1) >>
 % 9 0 obj
@@ -444,7 +444,7 @@ endstream
 endobj
 581 0 obj
 <<
-/Length 732       
+/Length 728       
 >>
 stream
 0 g 0 G
@@ -453,7 +453,7 @@ stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 24.7871 Tf 150.921 626.367 Td [(PSBLAS)-250(3.7.0.1)-250(User)-55(')55(s)-250(guide)]TJ
+/F51 24.7871 Tf 169.511 626.367 Td [(PSBLAS)-250(3.8.0)-250(User)-55(')55(s)-250(guide)]TJ
 ET
 q
 1 0 0 1 125.3 609.739 cm
@@ -480,7 +480,7 @@ Q
 0 g 0 G
 1 0 0 1 -168.637 -345.042 cm
 BT
-/F51 9.9626 Tf 365.51 263.977 Td [(by)-250(Salvatore)-250(Filippone)]TJ 14.396 -11.956 Td [(and)-250(Alfredo)-250(Buttari)]TJ/F54 9.9626 Tf 22.754 -11.955 Td [(May)-250(11th,)-250(2021)]TJ
+/F51 9.9626 Tf 365.51 263.977 Td [(by)-250(Salvatore)-250(Filippone)]TJ 14.396 -11.956 Td [(and)-250(Alfredo)-250(Buttari)]TJ/F54 9.9626 Tf 29.31 -11.955 Td [(May)-250(1st,)-250(2022)]TJ
 0 g 0 G
 0 g 0 G
 ET
@@ -1923,7 +1923,7 @@ BT
 0 g 0 G
  [-625(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(82)]TJ
+ [-1500(83)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.079 Td [(6.9)-1050(psb)]TJ
@@ -1937,7 +1937,7 @@ BT
 0 g 0 G
  [-611(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(85)]TJ
+ [-1500(86)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.08 Td [(6.10)-550(psb)]TJ
@@ -1951,7 +1951,7 @@ BT
 0 g 0 G
  [-520(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(87)]TJ
+ [-1500(88)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.08 Td [(6.11)-550(psb)]TJ
@@ -1965,7 +1965,7 @@ BT
 0 g 0 G
  [-725(.)]TJ
 0 g 0 G
- [-1500(88)]TJ
+ [-1500(89)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.079 Td [(6.12)-550(psb)]TJ
@@ -1979,7 +1979,7 @@ BT
 0 g 0 G
  [-330(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(89)]TJ
+ [-1500(90)]TJ
 0 g 0 G
 0 g 0 G
  111.791 -29.888 Td [(ii)]TJ
@@ -1990,7 +1990,7 @@ endstream
 endobj
 741 0 obj
 <<
-/Length 18212     
+/Length 18214     
 >>
 stream
 0 g 0 G
@@ -2008,7 +2008,7 @@ BT
 0 g 0 G
  [-411(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(90)]TJ
+ [-1500(92)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(6.14)-550(psb)]TJ
@@ -2022,7 +2022,7 @@ BT
 0 g 0 G
  [-376(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(92)]TJ
+ [-1500(94)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(6.15)-550(psb)]TJ
@@ -2036,7 +2036,7 @@ BT
 0 g 0 G
  [-758(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(93)]TJ
+ [-1500(95)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(6.16)-550(psb)]TJ
@@ -2050,7 +2050,7 @@ BT
 0 g 0 G
  [-801(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(94)]TJ
+ [-1500(96)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(6.17)-550(psb)]TJ
@@ -2078,7 +2078,7 @@ BT
 0 g 0 G
  [-427(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(95)]TJ
+ [-1500(97)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -77.469 -12.094 Td [(6.18)-550(psb)]TJ
@@ -2106,7 +2106,7 @@ BT
 0 g 0 G
  [-966(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(97)]TJ
+ [-1500(99)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -70.844 -12.094 Td [(6.19)-550(psb)]TJ
@@ -2127,7 +2127,7 @@ BT
 0 g 0 G
  [-1135(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(98)]TJ
+ [-1000(100)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -52.932 -12.094 Td [(6.20)-550(psb)]TJ
@@ -2148,7 +2148,7 @@ BT
 0 g 0 G
  [-871(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(99)]TJ
+ [-1000(101)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -76.214 -12.095 Td [(6.21)-550(psb)]TJ
@@ -2169,7 +2169,7 @@ BT
 0 g 0 G
  [-615(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(100)]TJ
+ [-1000(102)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -52.932 -12.094 Td [(6.22)-550(psb)]TJ
@@ -2190,7 +2190,7 @@ BT
 0 g 0 G
  [-1101(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(101)]TJ
+ [-1000(103)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -66.451 -12.094 Td [(6.23)-550(psb)]TJ
@@ -2211,7 +2211,7 @@ BT
 0 g 0 G
  [-827(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(102)]TJ
+ [-1000(104)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -59.367 -12.094 Td [(6.24)-550(psb)]TJ
@@ -2232,7 +2232,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(103)]TJ
+ [-1000(105)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -59.367 -12.094 Td [(6.25)-550(psb)]TJ
@@ -2253,7 +2253,7 @@ BT
 0 g 0 G
  [-671(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(104)]TJ
+ [-1000(106)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -56.02 -12.094 Td [(6.26)-550(psb)]TJ
@@ -2267,19 +2267,19 @@ BT
 0 g 0 G
  [-251(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(106)]TJ
+ [-1000(108)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(6.27)-550(Sorting)-250(utilities)-250(\227)]TJ
 0 g 0 G
  [-1157(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(107)]TJ
+ [-1000(109)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -14.944 -22.149 Td [(7)-1000(Parallel)-250(environment)-250(routines)]TJ
 0 g 0 G
- [-17835(109)]TJ
+ [-17835(111)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -12.094 Td [(7.1)-1050(psb)]TJ
 ET
@@ -2292,7 +2292,7 @@ BT
 0 g 0 G
  [-766(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(110)]TJ
+ [-1000(112)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(7.2)-1050(psb)]TJ
@@ -2306,7 +2306,7 @@ BT
 0 g 0 G
  [-930(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(111)]TJ
+ [-1000(113)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -12.094 Td [(7.3)-1050(psb)]TJ
@@ -2320,7 +2320,7 @@ BT
 0 g 0 G
  [-823(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(112)]TJ
+ [-1000(114)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.4)-1050(psb)]TJ
@@ -2348,7 +2348,7 @@ BT
 0 g 0 G
  [-615(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(113)]TJ
+ [-1000(115)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -80.637 -12.094 Td [(7.5)-1050(psb)]TJ
@@ -2376,7 +2376,7 @@ BT
 0 g 0 G
  [-498(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(114)]TJ
+ [-1000(116)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -80.637 -12.094 Td [(7.6)-1050(psb)]TJ
@@ -2390,7 +2390,7 @@ BT
 0 g 0 G
  [-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(115)]TJ
+ [-1000(117)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(7.7)-1050(psb)]TJ
@@ -2404,7 +2404,7 @@ BT
 0 g 0 G
  [-903(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(116)]TJ
+ [-1000(118)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.8)-1050(psb)]TJ
@@ -2418,7 +2418,7 @@ BT
 0 g 0 G
  [-946(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(117)]TJ
+ [-1000(119)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.9)-1050(psb)]TJ
@@ -2432,7 +2432,7 @@ BT
 0 g 0 G
  [-739(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(118)]TJ
+ [-1000(120)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.10)-550(psb)]TJ
@@ -2446,7 +2446,7 @@ BT
 0 g 0 G
  [-998(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(120)]TJ
+ [-1000(122)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.11)-550(psb)]TJ
@@ -2460,7 +2460,7 @@ BT
 0 g 0 G
  [-610(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(122)]TJ
+ [-1000(124)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(7.12)-550(psb)]TJ
@@ -2474,7 +2474,7 @@ BT
 0 g 0 G
  [-896(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(124)]TJ
+ [-1000(126)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.13)-550(psb)]TJ
@@ -2488,7 +2488,7 @@ BT
 0 g 0 G
  [-700(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(126)]TJ
+ [-1000(128)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.14)-550(psb)]TJ
@@ -2502,7 +2502,7 @@ BT
 0 g 0 G
  [-777(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(128)]TJ
+ [-1000(130)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.15)-550(psb)]TJ
@@ -2516,7 +2516,7 @@ BT
 0 g 0 G
  [-710(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(130)]TJ
+ [-1000(132)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.16)-550(psb)]TJ
@@ -2530,7 +2530,7 @@ BT
 0 g 0 G
  [-511(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(132)]TJ
+ [-1000(134)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.17)-550(psb)]TJ
@@ -2544,12 +2544,12 @@ BT
 0 g 0 G
  [-284(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(133)]TJ
+ [-1000(135)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -57.166 -22.15 Td [(8)-1000(Error)-250(handling)]TJ
 0 g 0 G
- [-24750(134)]TJ
+ [-24750(136)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -12.094 Td [(8.1)-1050(psb)]TJ
 ET
@@ -2562,7 +2562,7 @@ BT
 0 g 0 G
  [-734(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(136)]TJ
+ [-1000(138)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(8.2)-1050(psb)]TJ
@@ -2575,7 +2575,7 @@ BT
 /F54 9.9626 Tf 157.061 250.767 Td [(err)18(or)-250(\227)-250(Prints)-250(the)-250(err)18(or)-250(stack)-250(content)-250(and)-250(aborts)-250(execution)]TJ
 0 g 0 G
 0 g 0 G
- [-1381(137)]TJ
+ [-1381(139)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(8.3)-1050(psb)]TJ
@@ -2596,7 +2596,7 @@ BT
 0 g 0 G
  [-253(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(138)]TJ
+ [-1000(140)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -58.052 -12.095 Td [(8.4)-1050(psb)]TJ
@@ -2617,12 +2617,12 @@ BT
 0 g 0 G
  [-481(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(139)]TJ
+ [-1000(141)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -37.858 -22.149 Td [(9)-1000(Utilities)]TJ
 0 g 0 G
- [-27780(140)]TJ
+ [-27780(142)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -12.095 Td [(9.1)-1450(hb)]TJ
 ET
@@ -2635,7 +2635,7 @@ BT
 0 g 0 G
  [-652(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(141)]TJ
+ [-1000(143)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -12.094 Td [(9.2)-1050(hb)]TJ
@@ -2649,7 +2649,7 @@ BT
 0 g 0 G
  [-967(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(142)]TJ
+ [-1000(144)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -12.094 Td [(9.3)-1050(mm)]TJ
@@ -2670,7 +2670,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(143)]TJ
+ [-1000(145)]TJ
 0 g 0 G
 0 g 0 G
  129.649 -29.888 Td [(iii)]TJ
@@ -3511,7 +3511,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(144)]TJ
+ [-1000(146)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -11.955 Td [(9.5)-1050(mm)]TJ
@@ -3532,7 +3532,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(145)]TJ
+ [-1000(147)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -11.955 Td [(9.6)-1050(mm)]TJ
@@ -3553,58 +3553,58 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(146)]TJ
+ [-1000(148)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -37.858 -21.918 Td [(10)-500(Preconditioner)-250(routines)]TJ
 0 g 0 G
- [-20696(147)]TJ
+ [-20696(150)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -11.955 Td [(10.1)-550(init)-250(\227)-250(Initialize)-250(a)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-772(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(148)]TJ
+ [-1000(151)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.2)-550(build)-250(\227)-250(Builds)-250(a)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-970(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(149)]TJ
+ [-1000(152)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.3)-550(apply)-250(\227)-250(Pr)18(econditioner)-250(application)-250(r)18(outine)]TJ
 0 g 0 G
  [-421(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(151)]TJ
+ [-1000(154)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.4)-550(descr)-250(\227)-250(Prints)-250(a)-250(description)-250(of)-250(curr)18(ent)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-350(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(152)]TJ
+ [-1000(155)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.956 Td [(10.5)-550(clone)-250(\227)-250(clone)-250(curr)18(ent)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-260(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(153)]TJ
+ [-1000(156)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.6)-550(fr)18(ee)-250(\227)-250(Fr)18(ee)-250(a)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-341(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(154)]TJ
+ [-1000(157)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -14.944 -21.918 Td [(11)-500(Iterative)-250(Methods)]TJ
 0 g 0 G
- [-23362(155)]TJ
+ [-23362(158)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -11.955 Td [(11.1)-550(psb)]TJ
 ET
@@ -3617,7 +3617,7 @@ BT
 0 g 0 G
  [-716(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(156)]TJ
+ [-1000(159)]TJ
 0 g 0 G
 0 g 0 G
  110.426 -428.393 Td [(iv)]TJ
@@ -16958,7 +16958,7 @@ endstream
 endobj
 1420 0 obj
 <<
-/Length 4660      
+/Length 5699      
 >>
 stream
 0 g 0 G
@@ -16974,114 +16974,141 @@ BT
 /F51 11.9552 Tf 151.016 706.129 Td [(spall)-250(\227)-250(Allocates)-250(a)-250(sparse)-250(matrix)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -51.121 -18.964 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info,)-525(nnz\051)]TJ
+/F59 9.9626 Tf -51.121 -19.277 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info)-525([,)-525(nnz,)-525(dupl,)-525(bldmode]\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -22.403 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -20.571 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(desc)]TJ
+ 0 -20.572 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 625.596 cm
+1 0 0 1 120.408 623.505 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 625.397 Td [(a)]TJ
+/F51 9.9626 Tf 123.397 623.306 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 577.775 cm
+1 0 0 1 309.258 575.684 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 577.576 Td [(desc)]TJ
+/F59 9.9626 Tf 312.397 575.485 Td [(desc)]TJ
 ET
 q
-1 0 0 1 333.945 577.775 cm
+1 0 0 1 333.945 575.684 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 337.084 575.485 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -258.11 -19.925 Td [(nnz)]TJ
+/F51 9.9626 Tf -258.11 -20.572 Td [(nnz)]TJ
 0 g 0 G
-/F54 9.9626 Tf 22.137 0 Td [(An)-230(estimate)-230(of)-230(the)-230(number)-230(of)-231(nonzer)18(oes)-230(in)-230(the)-230(local)-230(part)-230(of)-230(the)-230(assembled)]TJ 2.77 -11.955 Td [(matrix.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
+/F54 9.9626 Tf 22.137 0 Td [(An)-230(estimate)-230(of)-230(the)-230(number)-230(of)-231(nonzer)18(oes)-230(in)-230(the)-230(local)-230(part)-230(of)-230(the)-230(assembled)]TJ 2.77 -11.955 Td [(matrix.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -20.572 Td [(dupl)]TJ
 0 g 0 G
+/F54 9.9626 Tf 26.561 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.941 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)]TJ/F59 9.9626 Tf -316.314 -11.955 Td [(psb_dupl_err_)]TJ/F54 9.9626 Tf 67.994 0 Td [(.)]TJ
 0 g 0 G
- 0 -19.925 Td [(a)]TJ
+/F51 9.9626 Tf -92.901 -20.572 Td [(bldmode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 45.938 0 Td [(Whether)-372(to)-372(kee)1(p)-372(track)-372(of)-372(matrix)-372(entries)-371(that)-372(do)-372(not)-372(belong)-371(to)-372(the)]TJ -21.031 -11.955 Td [(curr)18(ent)-250(pr)18(ocess.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-190(as:)-280(an)-190(integer)-190(value)]TJ/F59 9.9626 Tf 128.287 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(,)]TJ/F59 9.9626 Tf 4.503 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 94.146 0 Td [(.)]TJ -331.543 -11.955 Td [(Default:)]TJ/F59 9.9626 Tf 38.515 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -168.029 -22.402 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 g 0 G
+ 0 -20.572 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 408.41 cm
+1 0 0 1 309.258 231.892 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 408.211 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 312.397 231.692 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 344.406 408.41 cm
+1 0 0 1 344.406 231.892 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 408.211 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 231.692 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.925 Td [(info)]TJ
+/F51 9.9626 Tf -268.571 -20.571 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -22.564 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+/F54 9.9626 Tf 12.454 -20.41 Td [(1.)]TJ
 0 g 0 G
  [-500(On)-250(exit)-250(fr)18(om)-250(this)-250(r)18(outine)-250(the)-250(sparse)-250(matrix)-250(is)-250(in)-250(the)-250(build)-250(state.)]TJ
 0 g 0 G
- 0 -19.925 Td [(2.)]TJ
+ 154.421 -29.888 Td [(81)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1425 0 obj
+<<
+/Length 1141      
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F54 9.9626 Tf 163.158 706.129 Td [(2.)]TJ
 0 g 0 G
  [-500(The)-250(descriptor)-250(may)-250(be)-250(in)-250(either)-250(the)-250(build)-250(or)-250(assembled)-250(state.)]TJ
 0 g 0 G
  0 -19.925 Td [(3.)]TJ
 0 g 0 G
- [-500(Pr)18(oviding)-219(a)-219(good)-219(est)1(imate)-219(for)-219(the)-219(number)-219(of)-219(nonzer)18(oes)]TJ/F52 9.9626 Tf 255.76 0 Td [(n)-25(n)-25(z)]TJ/F54 9.9626 Tf 18.305 0 Td [(in)-219(the)-219(assem-)]TJ -261.612 -11.956 Td [(bled)-294(matrix)-295(may)-294(substantially)-295(impr)18(ove)-294(performance)-295(in)-294(the)-295(matrix)-294(build)]TJ 0 -11.955 Td [(phase,)-370(as)-346(it)-346(will)-345(r)18(educe)-346(or)-346(eliminate)-346(the)-346(need)-346(for)-345(\050potentially)-346(multiple\051)]TJ 0 -11.955 Td [(data)-250(r)18(eallocations.)]TJ
+ [-500(Pr)18(oviding)-219(a)-219(good)-219(estimate)-218(for)-219(the)-219(number)-219(of)-219(nonzer)18(oes)]TJ/F52 9.9626 Tf 255.761 0 Td [(n)-25(n)-25(z)]TJ/F54 9.9626 Tf 18.305 0 Td [(in)-219(the)-219(assem-)]TJ -261.613 -11.956 Td [(bled)-295(matri)1(x)-295(may)-294(substantially)-295(impr)18(ove)-294(performance)-295(in)-294(the)-295(matrix)-294(build)]TJ 0 -11.955 Td [(phase,)-370(as)-346(it)-346(will)-345(r)18(educe)-346(or)-346(eliminate)-346(the)-346(need)-346(for)-345(\050potentially)-346(multiple\051)]TJ 0 -11.955 Td [(data)-250(r)18(eallocations;)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(4.)]TJ
+0 g 0 G
+ [-500(Using)]TJ/F59 9.9626 Tf 41.798 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 97.28 0 Td [(is)-315(likel)1(y)-315(to)-315(cause)-314(a)-315(r)8(untime)-314(over)18(head)-315(at)-314(as-)]TJ -126.625 -11.955 Td [(sembly)-250(time;)]TJ
 0 g 0 G
- 141.968 -132.468 Td [(81)]TJ
+ 141.968 -528.02 Td [(82)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1428 0 obj
+1433 0 obj
 <<
-/Length 5395      
+/Length 5375      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.8)-1000(psb)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(6.8)-1000(psb)]TJ
 ET
 q
-1 0 0 1 198.238 706.328 cm
+1 0 0 1 147.429 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 201.825 706.129 Td [(spins)-233(\227)-233(Insert)-233(a)-233(set)-234(of)-233(coef)18(\002cients)-233(into)-233(a)-233(sparse)-233(matrix)]TJ
+/F51 11.9552 Tf 151.016 706.129 Td [(spins)-233(\227)-233(Insert)-233(a)-233(set)-233(of)-234(coef)18(\002cients)-233(into)-233(a)-233(sparse)-233(matrix)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -51.12 -20.373 Td [(call)-525(psb_spins\050nz,)-525(ia,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ 0 -11.956 Td [(call)-525(psb_spins\050nr,)-525(irw,)-525(irp,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ
+/F59 9.9626 Tf -51.121 -20.373 Td [(call)-525(psb_spins\050nz,)-525(ia,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ 0 -11.956 Td [(call)-525(psb_spins\050nr,)-525(irw,)-525(irp,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -24.099 Td [(T)90(ype:)]TJ
 0 g 0 G
@@ -17092,180 +17119,180 @@ BT
 0 g 0 G
  0 -22.834 Td [(nz)]TJ
 0 g 0 G
-/F54 9.9626 Tf 16.05 0 Td [(the)-250(number)-250(of)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 8.856 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
+/F54 9.9626 Tf 16.05 0 Td [(the)-250(number)-250(of)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 8.857 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -22.834 Td [(nr)]TJ
+/F51 9.9626 Tf -24.907 -22.834 Td [(nr)]TJ
 0 g 0 G
-/F54 9.9626 Tf 14.944 0 Td [(the)-250(number)-250(of)-250(r)18(ows)-250(to)-250(be)-250(inserted.)]TJ 9.962 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
+/F54 9.9626 Tf 14.944 0 Td [(the)-250(number)-250(of)-250(r)18(ows)-250(to)-250(be)-250(inserted.)]TJ 9.963 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -22.834 Td [(irw)]TJ
+/F51 9.9626 Tf -24.907 -22.834 Td [(irw)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(the)-250(\002rst)-250(r)18(ow)-250(to)-250(be)-250(inserted.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
+/F54 9.9626 Tf 20.473 0 Td [(the)-250(\002rst)-250(r)18(ow)-250(to)-250(be)-250(inserted.)]TJ 4.434 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -22.834 Td [(ia)]TJ
+/F51 9.9626 Tf -24.907 -22.834 Td [(ia)]TJ
 0 g 0 G
-/F54 9.9626 Tf 13.28 0 Td [(the)-250(r)18(ow)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.626 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.801 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
+/F54 9.9626 Tf 13.281 0 Td [(the)-250(r)18(ow)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.626 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.8 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -196.043 -22.834 Td [(irp)]TJ
 0 g 0 G
-/F54 9.9626 Tf 18.261 0 Td [(the)-250(r)18(ow)-250(pointers)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.645 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.801 0 Td [(n)-15(r)]TJ/F85 10.3811 Tf 11.85 0 Td [(+)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
+/F54 9.9626 Tf 18.262 0 Td [(the)-250(r)18(ow)-250(pointers)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.645 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.8 0 Td [(n)-15(r)]TJ/F85 10.3811 Tf 11.85 0 Td [(+)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -207.688 -22.835 Td [(ja)]TJ
 0 g 0 G
-/F54 9.9626 Tf 13.28 0 Td [(the)-250(column)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.626 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.801 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
+/F54 9.9626 Tf 13.28 0 Td [(the)-250(column)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.627 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.8 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -196.043 -22.835 Td [(val)]TJ
 0 g 0 G
-/F54 9.9626 Tf 18.819 0 Td [(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.087 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-315(as:)-439(an)-315(array)-314(of)-315(size)]TJ/F52 9.9626 Tf 131.854 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)-504(Must)-314(be)-315(of)-315(the)-314(same)-315(type)-315(and)-314(kind)-315(of)]TJ -142.19 -11.956 Td [(the)-250(coef)18(\002cients)-250(of)-250(the)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 157.901 0 Td [(a)]TJ/F54 9.9626 Tf 4.548 0 Td [(.)]TJ
+/F54 9.9626 Tf 18.82 0 Td [(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.087 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-315(as:)-439(an)-314(array)-315(of)-315(size)]TJ/F52 9.9626 Tf 131.853 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.337 0 Td [(.)-504(Must)-314(be)-315(of)-315(the)-314(same)-315(type)-315(and)-314(kind)-315(of)]TJ -142.19 -11.956 Td [(the)-250(coef)18(\002cients)-250(of)-250(the)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 157.901 0 Td [(a)]TJ/F54 9.9626 Tf 4.548 0 Td [(.)]TJ
 0 g 0 G
- -20.481 -29.887 Td [(82)]TJ
+ -20.481 -29.887 Td [(83)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1434 0 obj
+1439 0 obj
 <<
-/Length 7247      
+/Length 6861      
 >>
 stream
 0 g 0 G
 0 g 0 G
 0 g 0 G
 BT
-/F51 9.9626 Tf 99.895 706.129 Td [(desc)]TJ
+/F51 9.9626 Tf 150.705 706.129 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 706.328 cm
+1 0 0 1 171.218 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 706.129 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 706.129 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.381 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 136.327 0 Td [(psb)]TJ
+/F59 9.9626 Tf 136.328 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 277.448 658.507 cm
+1 0 0 1 328.257 658.507 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 280.586 658.308 Td [(desc)]TJ
+/F59 9.9626 Tf 331.395 658.308 Td [(desc)]TJ
 ET
 q
-1 0 0 1 302.135 658.507 cm
+1 0 0 1 352.944 658.507 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 305.273 658.308 Td [(type)]TJ
+/F59 9.9626 Tf 356.083 658.308 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -226.3 -31.349 Td [(local)]TJ
+/F51 9.9626 Tf -226.299 -33.398 Td [(local)]TJ
 0 g 0 G
-/F54 9.9626 Tf 26.561 0 Td [(Whether)-207(the)-207(entries)-207(in)-207(the)-208(indices)-207(vectors)]TJ/F59 9.9626 Tf 181.486 0 Td [(ia)]TJ/F54 9.9626 Tf 10.461 0 Td [(,)]TJ/F59 9.9626 Tf 4.64 0 Td [(ja)]TJ/F54 9.9626 Tf 12.524 0 Td [(ar)18(e)-207(alr)18(eady)-207(in)-207(local)-208(num-)]TJ -210.765 -11.955 Td [(bering.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.612 0 Td [(.)]TJ
+/F54 9.9626 Tf 26.56 0 Td [(Whether)-207(the)-207(entries)-207(in)-207(the)-208(indices)-207(vectors)]TJ/F59 9.9626 Tf 181.487 0 Td [(ia)]TJ/F54 9.9626 Tf 10.46 0 Td [(,)]TJ/F59 9.9626 Tf 4.64 0 Td [(ja)]TJ/F54 9.9626 Tf 12.524 0 Td [(ar)18(e)-207(alr)18(eady)-207(in)-207(local)-208(num-)]TJ -210.765 -11.956 Td [(bering.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.613 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -224.197 -20.589 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -224.197 -23.056 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.394 Td [(a)]TJ
+ 0 -21.444 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(into)-250(which)-250(coef)18(\002cients)-250(will)-250(be)-250(inserted.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(matrix)-250(into)-250(which)-250(coef)18(\002cients)-250(will)-250(be)-250(inserted.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 491.534 cm
+1 0 0 1 360.068 484.968 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 491.334 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 363.206 484.768 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 344.406 491.534 cm
+1 0 0 1 395.216 484.968 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 491.334 Td [(type)]TJ
+/F59 9.9626 Tf 398.354 484.768 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.394 Td [(desc)]TJ
+/F51 9.9626 Tf -268.57 -21.443 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 472.14 cm
+1 0 0 1 171.218 463.524 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 471.94 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 463.325 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.381 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 136.327 0 Td [(psb)]TJ
+/F59 9.9626 Tf 136.328 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 277.448 424.319 cm
+1 0 0 1 328.257 415.704 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 280.586 424.12 Td [(desc)]TJ
+/F59 9.9626 Tf 331.395 415.504 Td [(desc)]TJ
 ET
 q
-1 0 0 1 302.135 424.319 cm
+1 0 0 1 352.944 415.704 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 305.273 424.12 Td [(type)]TJ
+/F59 9.9626 Tf 356.083 415.504 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -226.3 -31.349 Td [(info)]TJ
+/F51 9.9626 Tf -226.299 -33.398 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -20.59 Td [(Notes)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -23.436 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -18.862 Td [(1.)]TJ
+/F54 9.9626 Tf 12.453 -21.064 Td [(1.)]TJ
 0 g 0 G
- [-500(On)-312(entry)-312(to)-312(this)-311(r)18(outine)-312(the)-312(descriptor)-312(may)-312(be)-312(in)-312(either)-312(t)1(he)-312(build)-312(or)-312(as-)]TJ 12.453 -11.955 Td [(sembled)-250(state.)]TJ
+ [-500(On)-312(entry)-312(to)-312(this)-312(r)18(out)1(ine)-312(the)-312(descriptor)-312(may)-312(be)-312(in)-312(either)-312(the)-311(build)-312(or)-312(as-)]TJ 12.453 -11.955 Td [(sembled)-250(state.)]TJ
 0 g 0 G
- -12.453 -19.394 Td [(2.)]TJ
+ -12.453 -21.443 Td [(2.)]TJ
 0 g 0 G
- [-500(On)-314(entry)-315(to)-314(this)-314(r)18(outine)-315(the)-314(sparse)-315(matrix)-314(may)-314(be)-315(in)-314(either)-314(the)-315(build)-314(or)]TJ 12.453 -11.955 Td [(update)-250(state.)]TJ
+ [-500(On)-314(entry)-315(to)-314(this)-315(r)18(ou)1(tine)-315(the)-314(sparse)-315(matrix)-314(may)-314(be)-315(in)-314(either)-314(the)-315(build)-314(or)]TJ 12.453 -11.955 Td [(update)-250(state.)]TJ
 0 g 0 G
- -12.453 -19.394 Td [(3.)]TJ
+ -12.453 -21.444 Td [(3.)]TJ
 0 g 0 G
- [-500(If)-263(the)-263(descriptor)-263(is)-262(in)-263(the)-263(build)-263(state,)-266(then)-263(the)-263(sparse)-263(matrix)-262(must)-263(also)-263(be)]TJ 12.453 -11.955 Td [(in)-212(the)-212(build)-213(state;)-224(the)-213(action)-212(of)-212(the)-212(r)18(outine)-212(is)-213(to)-212(\050implicitly\051)-212(call)]TJ/F59 9.9626 Tf 271.731 0 Td [(psb_cdins)]TJ/F54 9.9626 Tf -271.731 -11.956 Td [(to)-259(add)-259(entries)-259(to)-259(the)-259(sparsity)-259(pattern;)-263(each)-259(sparse)-259(matrix)-259(entry)-259(implicitly)]TJ 0 -11.955 Td [(de\002nes)-288(a)-288(graph)-288(edge,)-297(that)-288(is)-288(passed)-288(to)-288(the)-288(descriptor)-288(r)18(outine)-288(for)-288(the)-288(ap-)]TJ 0 -11.955 Td [(pr)18(opriate)-250(pr)18(ocessing;)]TJ
+ [-500(If)-263(the)-263(descriptor)-263(is)-262(in)-263(the)-263(build)-263(state,)-266(then)-263(the)-263(sparse)-263(matrix)-262(must)-263(also)-263(be)]TJ 12.453 -11.955 Td [(in)-212(the)-212(build)-213(state;)-224(the)-213(action)-212(of)-212(the)-212(r)18(outine)-212(is)-213(to)-212(\050implicitly\051)-212(call)]TJ/F59 9.9626 Tf 271.732 0 Td [(psb_cdins)]TJ/F54 9.9626 Tf -271.732 -11.955 Td [(to)-259(add)-259(entries)-259(to)-259(the)-259(sparsity)-259(pattern;)-263(each)-259(sparse)-259(matrix)-259(entry)-259(implicitly)]TJ 0 -11.955 Td [(de\002nes)-288(a)-288(graph)-288(edge,)-297(that)-288(is)-288(passed)-288(to)-288(the)-288(descriptor)-288(r)18(outine)-288(for)-288(the)-288(ap-)]TJ 0 -11.955 Td [(pr)18(opriate)-250(pr)18(ocessing;)]TJ
 0 g 0 G
- -12.453 -19.394 Td [(4.)]TJ
+ -12.453 -21.444 Td [(4.)]TJ
 0 g 0 G
  [-500(The)-250(input)-250(data)-250(can)-250(be)-250(passed)-250(in)-250(either)-250(COO)-250(or)-250(CSR)-250(formats;)]TJ
 0 g 0 G
- 0 -19.394 Td [(5.)]TJ
+ 0 -21.443 Td [(5.)]TJ
 0 g 0 G
- [-500(In)-307(COO)-307(format)-307(t)1(he)-307(coef)18(\002cients)-307(to)-307(be)-307(inserted)-307(ar)18(e)-307(r)18(epr)18(esented)-306(by)-307(the)-307(or)18(-)]TJ 12.453 -11.955 Td [(der)18(ed)-304(triples)]TJ/F52 9.9626 Tf 59.554 0 Td [(i)-47(a)]TJ/F85 10.3811 Tf 7.91 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.624 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.841 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.275 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-318(for)]TJ/F52 9.9626 Tf 21.432 0 Td [(i)]TJ/F85 10.3811 Tf 6.855 0 Td [(=)]TJ/F54 9.9626 Tf 11.96 0 Td [(1,)-179(.)-192(.)-191(.)-180(,)]TJ/F52 9.9626 Tf 26.608 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(;)-331(these)-304(triples)-304(should)-305(be-)]TJ -209.091 -11.955 Td [(long)-321(to)-321(the)-321(curr)18(ent)-321(pr)18(ocess,)-338(i.e.)]TJ/F52 9.9626 Tf 143.515 0 Td [(i)-47(a)]TJ/F85 10.3811 Tf 7.91 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 7.346 0 Td [(should)-321(be)-321(one)-321(of)-321(the)-321(local)-320(indices,)]TJ -166.064 -11.955 Td [(but)-250(ar)18(e)-250(otherwise)-250(arbitrary;)]TJ
+ [-500(In)-307(COO)-307(format)-307(the)-306(coef)18(\002cients)-307(to)-307(be)-307(inserted)-307(ar)18(e)-307(r)18(epr)18(esented)-306(by)-307(the)-307(or)18(-)]TJ 12.453 -11.955 Td [(der)18(ed)-194(triples)]TJ/F52 9.9626 Tf 57.352 0 Td [(i)-47(a)]TJ/F85 10.3811 Tf 7.911 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.624 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.84 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.276 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-205(for)]TJ/F52 9.9626 Tf 19.208 0 Td [(i)]TJ/F85 10.3811 Tf 5.856 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(1,)-179(.)-192(.)-191(.)-180(,)]TJ/F52 9.9626 Tf 26.608 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.337 0 Td [(;)-212(these)-194(triples)-194(ar)18(e)-193(arbitrary;)]TJ
 0 g 0 G
- 141.968 -29.888 Td [(83)]TJ
+ -60.701 -29.888 Td [(84)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1443 0 obj
+1448 0 obj
 <<
-/Length 4028      
+/Length 4535      
 >>
 stream
 0 g 0 G
 0 g 0 G
 0 g 0 G
 BT
-/F54 9.9626 Tf 163.158 706.129 Td [(6.)]TJ
+/F54 9.9626 Tf 112.349 706.129 Td [(6.)]TJ
 0 g 0 G
- [-500(In)-272(CSR)-271(format)-272(the)-271(coef)18(\002cients)-272(to)-271(be)-272(inserted)-272(for)-271(each)-272(input)-271(r)18(ow)]TJ/F52 9.9626 Tf 294.599 0 Td [(i)]TJ/F85 10.3811 Tf 6.254 0 Td [(=)]TJ/F54 9.9626 Tf 11.36 0 Td [(1,)]TJ/F52 9.9626 Tf 9.257 0 Td [(n)-15(r)]TJ/F54 9.9626 Tf -309.016 -11.955 Td [(ar)18(e)-311(r)18(epr)18(esented)-312(by)-311(the)-311(or)18(der)18(ed)-312(triples)]TJ/F85 10.3811 Tf 171.689 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 5.252 0 Td [(+)]TJ/F52 9.9626 Tf 10.412 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.819 0 Td [(\000)]TJ/F54 9.9626 Tf 10.357 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.625 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.84 0 Td [(\050)]TJ/F52 9.9626 Tf 4.623 0 Td [(j)]TJ/F85 10.3811 Tf 3.018 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.275 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.623 0 Td [(j)]TJ/F85 10.3811 Tf 3.018 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-327(for)]TJ/F52 9.9626 Tf 22.012 0 Td [(j)]TJ/F85 10.3811 Tf 6.918 0 Td [(=)]TJ/F52 9.9626 Tf -310.556 -11.955 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.089 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)-179(.)-192(.)-192(.)-179(,)]TJ/F52 9.9626 Tf 21.557 0 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 5.301 0 Td [(+)]TJ/F54 9.9626 Tf 10.406 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F83 10.3811 Tf 6.487 0 Td [(\000)]TJ/F54 9.9626 Tf 10.407 0 Td [(1;)-362(these)-325(triples)-324(should)-325(belong)-325(to)-324(the)-325(curr)18(ent)-324(pr)18(o-)]TJ -100.948 -11.956 Td [(cess,)-276(i.e.)]TJ/F52 9.9626 Tf 39.308 0 Td [(i)]TJ/F85 10.3811 Tf 5.102 0 Td [(+)]TJ/F52 9.9626 Tf 10.264 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.669 0 Td [(\000)]TJ/F54 9.9626 Tf 10.208 0 Td [(1)-271(should)-271(be)-271(one)-271(of)-271(the)-271(local)-271(i)1(ndices,)-277(but)-271(ar)18(e)-271(ot)1(herwise)]TJ -81.551 -11.955 Td [(arbitrary;)]TJ
+ [-500(In)-272(CSR)-271(format)-272(the)-271(coef)18(\002cients)-272(to)-271(be)-272(inserted)-272(for)-271(each)-272(input)-271(r)18(ow)]TJ/F52 9.9626 Tf 294.598 0 Td [(i)]TJ/F85 10.3811 Tf 6.254 0 Td [(=)]TJ/F54 9.9626 Tf 11.36 0 Td [(1,)]TJ/F52 9.9626 Tf 9.257 0 Td [(n)-15(r)]TJ/F54 9.9626 Tf -309.016 -11.955 Td [(ar)18(e)-311(r)18(epr)18(esented)-312(by)-311(the)-311(or)18(der)18(ed)-312(triples)]TJ/F85 10.3811 Tf 171.689 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 5.251 0 Td [(+)]TJ/F52 9.9626 Tf 10.413 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.818 0 Td [(\000)]TJ/F54 9.9626 Tf 10.358 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.624 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.841 0 Td [(\050)]TJ/F52 9.9626 Tf 4.622 0 Td [(j)]TJ/F85 10.3811 Tf 3.019 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.276 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.622 0 Td [(j)]TJ/F85 10.3811 Tf 3.019 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)-327(for)]TJ/F52 9.9626 Tf 22.013 0 Td [(j)]TJ/F85 10.3811 Tf 6.917 0 Td [(=)]TJ/F52 9.9626 Tf -310.555 -11.955 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-179(.)-192(.)-191(.)-180(,)]TJ/F52 9.9626 Tf 21.557 0 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 5.301 0 Td [(+)]TJ/F54 9.9626 Tf 10.407 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F83 10.3811 Tf 6.486 0 Td [(\000)]TJ/F54 9.9626 Tf 10.407 0 Td [(1;)-362(these)-325(triples)-324(should)-325(belong)-325(to)-324(the)-325(curr)18(ent)-325(pr)18(o-)]TJ -100.947 -11.956 Td [(cess,)-276(i.e.)]TJ/F52 9.9626 Tf 39.307 0 Td [(i)]TJ/F85 10.3811 Tf 5.103 0 Td [(+)]TJ/F52 9.9626 Tf 10.263 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.669 0 Td [(\000)]TJ/F54 9.9626 Tf 10.209 0 Td [(1)-271(should)-271(be)-271(one)-271(of)-271(the)-271(local)-270(indices,)-277(but)-271(ar)18(e)-270(otherwise)]TJ -81.551 -11.955 Td [(arbitrary;)]TJ
 0 g 0 G
  -12.453 -19.925 Td [(7.)]TJ
 0 g 0 G
- [-500(Ther)18(e)-315(is)-314(no)-315(r)18(equir)18(ement)-315(that)-314(a)-315(given)-314(r)18(ow)-315(must)-315(be)-314(passed)-315(in)-315(its)-314(entir)18(ety)]TJ 12.453 -11.955 Td [(to)-298(a)-299(single)-298(call)-298(to)-299(this)-298(r)18(outine:)-406(the)-299(buildup)-298(of)-298(a)-299(r)18(ow)-298(may)-298(be)-299(split)-298(into)-298(as)]TJ 0 -11.955 Td [(many)-250(calls)-250(as)-250(desir)18(ed)-250(\050even)-250(in)-250(the)-250(CSR)-250(format\051;)]TJ
+ [-500(Ther)18(e)-315(is)-314(no)-315(r)18(equir)18(ement)-314(that)-315(a)-315(given)-314(r)18(ow)-315(must)-315(be)-314(passed)-315(in)-315(its)-314(entir)18(ety)]TJ 12.453 -11.955 Td [(to)-298(a)-299(single)-298(call)-298(to)-299(thi)1(s)-299(r)18(outine:)-406(the)-299(buildup)-298(of)-298(a)-299(r)18(ow)-298(may)-298(be)-299(split)-298(into)-298(as)]TJ 0 -11.955 Td [(many)-250(calls)-250(as)-250(desir)18(ed)-250(\050even)-250(in)-250(the)-250(CSR)-250(format\051;)]TJ
 0 g 0 G
  -12.453 -19.926 Td [(8.)]TJ
 0 g 0 G
@@ -17273,152 +17300,17 @@ BT
 0 g 0 G
  -12.453 -19.925 Td [(9.)]TJ
 0 g 0 G
- [-500(Any)-301(coef)18(\002cients)-301(fr)18(om)-301(matrix)-301(r)18(ows)-301(not)-301(owned)-300(by)-301(the)-301(calling)-301(pr)18(ocess)-301(ar)18(e)]TJ 12.453 -11.955 Td [(silently)-250(ignor)18(ed;)]TJ
-0 g 0 G
- -17.434 -19.926 Td [(10.)]TJ
-0 g 0 G
- [-500(If)-295(the)-294(descriptor)-295(is)-294(in)-295(the)-295(assembled)-294(state,)-306(then)-295(any)-294(entries)-295(in)-295(the)-294(sparse)]TJ 17.434 -11.955 Td [(matrix)-284(that)-284(would)-284(generate)-284(additional)-284(communication)-284(r)18(equir)18(ements)-284(ar)18(e)]TJ 0 -11.955 Td [(ignor)18(ed;)]TJ
-0 g 0 G
- -17.434 -19.925 Td [(11.)]TJ
+ [-500(Coef)18(\002cients)-190(fr)18(om)-190(matrix)-190(r)18(ows)-190(not)-190(owned)-190(by)-190(the)-190(calling)-190(pr)18(ocess)-190(ar)18(e)-190(tr)18(eated)]TJ 12.453 -11.955 Td [(accor)18(ding)-254(to)-254(the)-253(value)-254(of)]TJ/F59 9.9626 Tf 111.539 0 Td [(bldmode)]TJ/F54 9.9626 Tf 39.141 0 Td [(speci\002ed)-254(at)-253(allocation)-254(time;)-256(if)]TJ/F59 9.9626 Tf 131.512 0 Td [(bldmode)]TJ/F54 9.9626 Tf -282.192 -11.956 Td [(was)-300(chosen)-300(as)]TJ/F59 9.9626 Tf 66.146 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 97.136 0 Td [(the)-300(library)-300(will)-300(keep)-300(track)-301(of)-300(them,)]TJ -163.282 -11.955 Td [(otherwise)-250(they)-250(ar)18(e)-250(silently)-250(ignor)18(ed;)]TJ
 0 g 0 G
- [-500(If)-268(the)-268(matrix)-268(is)-268(in)-268(the)-268(update)-268(state,)-273(any)-268(entries)-268(in)-268(positions)-268(that)-268(wer)18(e)-268(not)]TJ 17.434 -11.955 Td [(pr)18(esent)-250(in)-250(the)-250(original)-250(matrix)-250(ar)18(e)-250(ignor)18(ed.)]TJ
+ -17.435 -19.925 Td [(10.)]TJ
 0 g 0 G
- 141.968 -384.558 Td [(84)]TJ
+ [-500(If)-295(the)-294(descriptor)-295(is)-295(i)1(n)-295(the)-295(assembled)-294(state,)-306(then)-295(any)-294(entries)-295(in)-295(the)-294(sparse)]TJ 17.435 -11.955 Td [(matrix)-284(that)-284(would)-284(generate)-284(additional)-284(communication)-284(r)18(equir)18(ements)-284(ar)18(e)]TJ 0 -11.955 Td [(ignor)18(ed;)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1455 0 obj
-<<
-/Length 6372      
->>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.9)-1000(psb)]TJ
-ET
-q
-1 0 0 1 147.429 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 151.016 706.129 Td [(spasb)-250(\227)-250(Sparse)-250(matrix)-250(assembly)-250(routine)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -51.121 -18.964 Td [(call)-525(psb_spasb\050a,)-525(desc_a,)-525(info,)-525(afmt,)-525(upd,)-525(dupl,)-525(mold\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.109 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.601 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.602 Td [(desc)]TJ
-ET
-q
-1 0 0 1 120.408 627.052 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 123.397 626.853 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 309.258 579.232 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 312.397 579.032 Td [(desc)]TJ
-ET
-q
-1 0 0 1 333.945 579.232 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 337.084 579.032 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -258.11 -19.601 Td [(afmt)]TJ
-0 g 0 G
-/F54 9.9626 Tf 26.013 0 Td [(the)-250(storage)-250(format)-250(for)-250(the)-250(sparse)-250(matrix.)]TJ -1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(array)-250(of)-250(characters.)-310(Defalt:)-310('CSR'.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.602 Td [(upd)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.243 0 Td [(Pr)18(ovide)-250(for)-250(updates)-250(to)-250(the)-250(matrix)-250(coef)18(\002cients.)]TJ 1.664 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(integer)74(,)-250(possible)-250(values:)]TJ/F59 9.9626 Tf 165.218 0 Td [(psb_upd_srch_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)]TJ/F59 9.9626 Tf 4.981 0 Td [(psb_upd_perm_)]TJ
-0 g 0 G
-/F51 9.9626 Tf -263.101 -19.602 Td [(dupl)]TJ
-0 g 0 G
-/F54 9.9626 Tf 26.561 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.941 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)]TJ/F59 9.9626 Tf -316.314 -11.955 Td [(psb_dupl_err_)]TJ/F54 9.9626 Tf 67.994 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -92.901 -19.602 Td [(mold)]TJ
-0 g 0 G
-/F54 9.9626 Tf 28.782 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -3.875 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 342.513 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 345.652 297.388 Td [(T)]TJ
-ET
-q
-1 0 0 1 351.51 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 354.648 297.388 Td [(base)]TJ
-ET
-q
-1 0 0 1 376.197 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 379.335 297.388 Td [(sparse)]TJ
-ET
-q
-1 0 0 1 411.345 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 414.483 297.388 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -330.279 -21.109 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.602 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(assembled.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 309.258 209.056 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 312.397 208.857 Td [(Tspmat)]TJ
-ET
-q
-1 0 0 1 344.406 209.056 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 347.544 208.857 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -268.571 -19.602 Td [(info)]TJ
+ -17.435 -19.926 Td [(11.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.108 Td [(Notes)]TJ
+ [-500(If)-268(the)-268(matrix)-268(is)-268(in)-268(the)-268(update)-268(state,)-273(any)-268(entries)-268(in)-268(positions)-268(that)-268(wer)18(e)-268(not)]TJ 17.435 -11.955 Td [(pr)18(esent)-250(in)-250(the)-250(original)-250(matrix)-250(ar)18(e)-250(ignor)18(ed.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 166.875 -29.888 Td [(85)]TJ
+ 141.968 -360.647 Td [(85)]TJ
 0 g 0 G
 ET
 
@@ -17429,7 +17321,7 @@ endobj
 /Type /ObjStm
 /N 100
 /First 977
-/Length 10351     
+/Length 10176     
 >>
 stream
 1347 0 308 59 312 117 1344 174 1351 307 1349 446 1353 593 1354 651 1350 709 1357 829
@@ -17438,10 +17330,10 @@ stream
 1382 2814 1383 2872 1384 2930 1378 2988 1388 3082 1385 3230 1386 3375 1390 3521 320 3580 1391 3638
 1387 3697 1395 3791 1392 3939 1393 4084 1397 4231 324 4289 1394 4346 1400 4440 1398 4579 1402 4724
 328 4783 1399 4841 1406 4935 1403 5083 1404 5228 1408 5375 332 5433 1405 5490 1411 5610 1413 5728
-1414 5787 1415 5846 1410 5905 1419 5986 1416 6134 1417 6279 1421 6424 336 6482 1422 6539 1423 6597
-1424 6655 1418 6713 1427 6820 1429 6938 340 6997 1426 7055 1433 7175 1425 7332 1430 7479 1431 7624
-1435 7771 1436 7829 1437 7887 1438 7945 1439 8003 1440 8060 1432 8118 1442 8238 1444 8356 1445 8415
-1446 8474 1447 8533 1448 8592 1449 8651 1450 8710 1441 8769 1454 8876 1451 9024 1452 9171 1456 9316
+1414 5787 1415 5846 1410 5905 1419 5986 1416 6134 1417 6281 1421 6426 336 6484 1422 6541 1418 6599
+1424 6693 1426 6811 1427 6870 1428 6929 1429 6988 1423 7047 1432 7141 1434 7259 340 7317 1431 7374
+1438 7494 1430 7651 1435 7794 1436 7939 1440 8082 1441 8141 1442 8199 1443 8258 1444 8317 1445 8376
+1437 8435 1447 8555 1449 8673 1450 8731 1451 8789 1452 8847 1453 8905 1454 8963 1455 9021 1446 9079
 % 1347 0 obj
 <<
 /D [1345 0 R /XYZ 149.705 753.953 null]
@@ -17811,7 +17703,7 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 573.77 359.001 585.83]
+/Rect [291.943 571.679 359.001 583.739]
 /A << /S /GoTo /D (descdata) >>
 >>
 % 1417 0 obj
@@ -17819,7 +17711,7 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 404.405 369.462 416.465]
+/Rect [291.943 227.887 369.462 239.946]
 /A << /S /GoTo /D (spdata) >>
 >>
 % 1421 0 obj
@@ -17832,232 +17724,389 @@ stream
 >>
 % 1422 0 obj
 <<
-/D [1419 0 R /XYZ 99.895 314.347 null]
+/D [1419 0 R /XYZ 99.895 136.374 null]
 >>
-% 1423 0 obj
+% 1418 0 obj
 <<
-/D [1419 0 R /XYZ 99.895 291.828 null]
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
 % 1424 0 obj
 <<
-/D [1419 0 R /XYZ 99.895 271.902 null]
+/Type /Page
+/Contents 1425 0 R
+/Resources 1423 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1409 0 R
 >>
-% 1418 0 obj
+% 1426 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1424 0 R /XYZ 149.705 753.953 null]
 >>
 % 1427 0 obj
 <<
+/D [1424 0 R /XYZ 150.705 716.092 null]
+>>
+% 1428 0 obj
+<<
+/D [1424 0 R /XYZ 150.705 699.334 null]
+>>
+% 1429 0 obj
+<<
+/D [1424 0 R /XYZ 150.705 644.819 null]
+>>
+% 1423 0 obj
+<<
+/Font << /F54 586 0 R /F52 585 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1432 0 obj
+<<
 /Type /Page
-/Contents 1428 0 R
-/Resources 1426 0 R
+/Contents 1433 0 R
+/Resources 1431 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1409 0 R
 >>
-% 1429 0 obj
+% 1434 0 obj
 <<
-/D [1427 0 R /XYZ 149.705 753.953 null]
+/D [1432 0 R /XYZ 98.895 753.953 null]
 >>
 % 340 0 obj
 <<
-/D [1427 0 R /XYZ 150.705 716.092 null]
+/D [1432 0 R /XYZ 99.895 716.092 null]
 >>
-% 1426 0 obj
+% 1431 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1433 0 obj
+% 1438 0 obj
 <<
 /Type /Page
-/Contents 1434 0 R
-/Resources 1432 0 R
+/Contents 1439 0 R
+/Resources 1437 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1409 0 R
-/Annots [ 1425 0 R 1430 0 R 1431 0 R ]
+/Annots [ 1430 0 R 1435 0 R 1436 0 R ]
 >>
-% 1425 0 obj
+% 1430 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [260.133 654.503 327.191 666.562]
+/Rect [310.942 654.503 378 666.562]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1430 0 obj
+% 1435 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 487.529 369.462 499.588]
+/Rect [342.753 480.963 420.271 493.022]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1431 0 obj
+% 1436 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [260.133 420.314 327.191 432.374]
+/Rect [310.942 411.699 378 423.758]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1435 0 obj
+% 1440 0 obj
 <<
-/D [1433 0 R /XYZ 98.895 753.953 null]
+/D [1438 0 R /XYZ 149.705 753.953 null]
 >>
-% 1436 0 obj
+% 1441 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 320.957 null]
+/D [1438 0 R /XYZ 150.705 306.27 null]
 >>
-% 1437 0 obj
+% 1442 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 289.664 null]
+/D [1438 0 R /XYZ 150.705 272.927 null]
 >>
-% 1438 0 obj
+% 1443 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 255.665 null]
+/D [1438 0 R /XYZ 150.705 236.878 null]
 >>
-% 1439 0 obj
+% 1444 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 188.45 null]
+/D [1438 0 R /XYZ 150.705 167.614 null]
 >>
-% 1440 0 obj
+% 1445 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 169.056 null]
+/D [1438 0 R /XYZ 150.705 146.171 null]
 >>
-% 1432 0 obj
+% 1437 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1442 0 obj
+% 1447 0 obj
 <<
 /Type /Page
-/Contents 1443 0 R
-/Resources 1441 0 R
+/Contents 1448 0 R
+/Resources 1446 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1409 0 R
->>
-% 1444 0 obj
-<<
-/D [1442 0 R /XYZ 149.705 753.953 null]
->>
-% 1445 0 obj
-<<
-/D [1442 0 R /XYZ 150.705 716.092 null]
->>
-% 1446 0 obj
-<<
-/D [1442 0 R /XYZ 150.705 651.514 null]
+/Parent 1456 0 R
 >>
-% 1447 0 obj
+% 1449 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 607.678 null]
+/D [1447 0 R /XYZ 98.895 753.953 null]
 >>
-% 1448 0 obj
+% 1450 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 575.798 null]
+/D [1447 0 R /XYZ 99.895 716.092 null]
 >>
-% 1449 0 obj
+% 1451 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 543.917 null]
+/D [1447 0 R /XYZ 99.895 651.514 null]
 >>
-% 1450 0 obj
+% 1452 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 500.082 null]
+/D [1447 0 R /XYZ 99.895 607.678 null]
 >>
-% 1441 0 obj
+% 1453 0 obj
 <<
-/Font << /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1447 0 R /XYZ 99.895 575.798 null]
 >>
 % 1454 0 obj
 <<
-/Type /Page
-/Contents 1455 0 R
-/Resources 1453 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1451 0 R 1452 0 R ]
+/D [1447 0 R /XYZ 99.895 520.007 null]
 >>
-% 1451 0 obj
+% 1455 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 575.227 359.001 587.286]
-/A << /S /GoTo /D (descdata) >>
+/D [1447 0 R /XYZ 99.895 476.171 null]
 >>
-% 1452 0 obj
+% 1446 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 205.051 369.462 217.111]
-/A << /S /GoTo /D (spdata) >>
+/Font << /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1456 0 obj
+
+endstream
+endobj
+1462 0 obj
 <<
-/D [1454 0 R /XYZ 98.895 753.953 null]
+/Length 6789      
 >>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(6.9)-1000(psb)]TJ
+ET
+q
+1 0 0 1 198.238 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 201.825 706.129 Td [(spasb)-250(\227)-250(Sparse)-250(matrix)-250(assembly)-250(routine)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -51.12 -19.204 Td [(call)-525(psb_spasb\050a,)-525(desc_a,)-525(info)-525([,)-525(afmt,)-525(upd,)-1050(mold]\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -22.289 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -20.421 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.421 Td [(desc)]TJ
+ET
+q
+1 0 0 1 171.218 623.994 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 174.207 623.794 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in/out)]TJ/F54 9.9626 Tf 27.297 0 Td [(.)]TJ -59.098 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 576.173 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 575.974 Td [(desc)]TJ
+ET
+q
+1 0 0 1 384.755 576.173 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 387.893 575.974 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -258.11 -20.421 Td [(afmt)]TJ
+0 g 0 G
+/F54 9.9626 Tf 26.012 0 Td [(the)-250(storage)-250(format)-250(for)-250(the)-250(sparse)-250(matrix.)]TJ -1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(array)-250(of)-250(characters.)-310(Defalt:)-310('CSR'.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.42 Td [(upd)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.243 0 Td [(Pr)18(ovide)-250(for)-250(updates)-250(to)-250(the)-250(matrix)-250(coef)18(\002cients.)]TJ 1.663 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(integer)74(,)-250(possible)-250(values:)]TJ/F59 9.9626 Tf 165.219 0 Td [(psb_upd_srch_)]TJ/F54 9.9626 Tf 67.994 0 Td [(,)]TJ/F59 9.9626 Tf 4.981 0 Td [(psb_upd_perm_)]TJ
+0 g 0 G
+/F51 9.9626 Tf -263.1 -20.421 Td [(mold)]TJ
+0 g 0 G
+/F54 9.9626 Tf 28.782 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -3.876 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 393.323 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 396.461 371.249 Td [(T)]TJ
+ET
+q
+1 0 0 1 402.319 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 405.457 371.249 Td [(base)]TJ
+ET
+q
+1 0 0 1 427.006 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 430.144 371.249 Td [(sparse)]TJ
+ET
+q
+1 0 0 1 462.154 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 465.292 371.249 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -330.278 -22.289 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.421 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(matrix)-250(to)-250(be)-250(assembled.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 280.918 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 280.719 Td [(Tspmat)]TJ
+ET
+q
+1 0 0 1 395.216 280.918 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 398.354 280.719 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -268.57 -20.421 Td [(desc)]TJ
+ET
+q
+1 0 0 1 171.218 260.497 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 174.207 260.298 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in/out)]TJ/F54 9.9626 Tf 27.297 0 Td [(.)]TJ -59.098 -11.956 Td [(Speci\002ed)-290(as:)-389(a)-290(str)8(uctur)18(ed)-290(data)-289(of)-290(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 171.305 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 363.235 212.677 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 366.373 212.477 Td [(desc)]TJ
+ET
+q
+1 0 0 1 387.922 212.677 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 391.06 212.477 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)-429(If)-290(the)-290(matrix)-289(was)]TJ -236.371 -11.955 Td [(allocated)-209(with)]TJ/F59 9.9626 Tf 64.153 0 Td [(bldmode=psb_matbld_remote_)]TJ/F54 9.9626 Tf 135.988 0 Td [(,)-217(then)-210(the)-209(descriptor)-209(will)-209(be)]TJ -200.141 -11.955 Td [(r)18(eassembled.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.421 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 141.968 -29.888 Td [(86)]TJ
+0 g 0 G
+ET
 
 endstream
 endobj
-1461 0 obj
+1467 0 obj
 <<
-/Length 2144      
+/Length 3146      
 >>
 stream
 0 g 0 G
 0 g 0 G
-0 g 0 G
 BT
-/F54 9.9626 Tf 163.158 706.129 Td [(1.)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
- [-500(On)-227(entry)-226(to)-227(this)-226(r)18(outine)-227(th)1(e)-227(descriptor)-226(must)-227(be)-226(in)-227(the)-226(assembled)-227(state,)-231(i.e.)]TJ/F59 9.9626 Tf 12.453 -11.955 Td [(psb_cdasb)]TJ/F54 9.9626 Tf 49.564 0 Td [(must)-250(alr)18(eady)-250(have)-250(been)-250(called.)]TJ
+ [-500(On)-226(entry)-227(to)-226(this)-227(r)18(outine)-226(the)-227(descriptor)-226(must)-227(be)-226(in)-227(the)-226(assembled)-227(state,)-231(i.e.)]TJ/F59 9.9626 Tf 12.453 -11.956 Td [(psb_cdasb)]TJ/F54 9.9626 Tf 49.564 0 Td [(must)-250(alr)18(eady)-250(have)-250(been)-250(called.)]TJ
 0 g 0 G
- -62.017 -19.926 Td [(2.)]TJ
+ -62.017 -19.925 Td [(2.)]TJ
 0 g 0 G
  [-500(The)-250(sparse)-250(matrix)-250(may)-250(be)-250(in)-250(either)-250(the)-250(build)-250(or)-250(update)-250(state;)]TJ
 0 g 0 G
  0 -19.925 Td [(3.)]TJ
 0 g 0 G
- [-500(Duplicate)-421(entries)-422(ar)18(e)-421(detected)-421(and)-422(handled)-421(in)-421(both)-422(buil)1(d)-422(and)-421(update)]TJ 12.453 -11.955 Td [(state,)-244(with)-241(the)-242(exception)-242(of)-242(the)-242(err)18(or)-242(action)-242(that)-242(is)-242(only)-242(take)1(n)-242(in)-242(the)-242(build)]TJ 0 -11.955 Td [(state,)-250(i.e.)-310(on)-250(the)-250(\002rst)-250(assembly;)]TJ
+ [-500(Duplicate)-421(entries)-422(ar)18(e)-421(detected)-421(and)-422(handled)-421(in)-421(both)-421(build)-422(and)-421(update)]TJ 12.453 -11.955 Td [(state,)-244(wit)1(h)-242(the)-242(exception)-242(of)-242(the)-242(err)18(or)-242(action)-242(that)-242(is)-242(only)-241(taken)-242(in)-242(the)-242(build)]TJ 0 -11.955 Td [(state,)-250(i.e.)-310(on)-250(the)-250(\002rst)-250(assembly;)]TJ
 0 g 0 G
- -12.453 -19.925 Td [(4.)]TJ
+ -12.453 -19.926 Td [(4.)]TJ
 0 g 0 G
- [-500(If)-190(the)-190(update)-190(choice)-190(is)]TJ/F59 9.9626 Tf 108.373 0 Td [(psb_upd_perm_)]TJ/F54 9.9626 Tf 67.994 0 Td [(,)-202(then)-190(subsequent)-190(calls)-190(to)]TJ/F59 9.9626 Tf 109.946 0 Td [(psb_spins)]TJ/F54 9.9626 Tf -273.86 -11.956 Td [(to)-309(update)-309(the)-308(matrix)-309(must)-309(be)-309(arranged)-309(in)-308(such)-309(a)-309(way)-309(as)-309(to)-308(pr)18(oduce)-309(ex-)]TJ 0 -11.955 Td [(actly)-319(the)-320(same)-319(sequence)-320(of)-319(coef)18(\002cient)-319(values)-320(as)-319(encounter)18(ed)-319(at)-320(the)-319(\002rst)]TJ 0 -11.955 Td [(assembly;)]TJ
+ [-500(If)-190(the)-190(update)-190(choice)-190(is)]TJ/F59 9.9626 Tf 108.372 0 Td [(psb_upd_perm_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)-202(then)-190(subsequent)-190(calls)-190(to)]TJ/F59 9.9626 Tf 109.946 0 Td [(psb_spins)]TJ/F54 9.9626 Tf -273.86 -11.955 Td [(to)-309(update)-309(the)-308(matrix)-309(must)-309(be)-309(arranged)-309(in)-308(such)-309(a)-309(way)-309(as)-309(to)-308(pr)18(oduce)-309(ex-)]TJ 0 -11.955 Td [(actly)-319(the)-320(same)-319(sequence)-320(of)-319(coef)18(\002cient)-319(values)-320(as)-319(encounter)18(ed)-319(at)-320(the)-319(\002rst)]TJ 0 -11.955 Td [(assembly;)]TJ
 0 g 0 G
- -12.453 -19.925 Td [(5.)]TJ
+ -12.453 -19.926 Td [(5.)]TJ
 0 g 0 G
  [-500(The)-250(output)-250(storage)-250(format)-250(need)-250(not)-250(be)-250(the)-250(same)-250(on)-250(all)-250(pr)18(ocesses;)]TJ
 0 g 0 G
- 0 -19.926 Td [(6.)]TJ
+ 0 -19.925 Td [(6.)]TJ
+0 g 0 G
+ [-500(On)-249(exit)-249(fr)18(om)-250(this)-249(r)18(outine)-249(the)-249(matrix)-249(is)-250(in)-249(the)-249(assembled)-249(state,)-250(and)-249(thus)-249(is)]TJ 12.453 -11.955 Td [(suitable)-250(for)-250(the)-250(computational)-250(r)18(outines;)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(7.)]TJ
 0 g 0 G
- [-500(On)-249(exit)-249(fr)18(om)-250(this)-249(r)18(outine)-249(the)-249(matrix)-249(is)-250(in)-249(the)-249(assembled)-249(state,)-250(and)-249(thus)-249(is)]TJ 12.453 -11.955 Td [(suitable)-250(for)-250(the)-250(computational)-250(r)18(outines.)]TJ
+ [-500(If)-431(the)]TJ/F59 9.9626 Tf 41.543 0 Td [(bldmode=psb_matbld_remote_)]TJ/F54 9.9626 Tf 140.288 0 Td [(value)-431(was)-432(speci\002ed)-431(at)-432(allocation)]TJ -169.378 -11.955 Td [(time,)-278(contributions)-272(de\002ned)-272(on)-272(the)-273(curr)18(ent)-272(pr)18(ocess)-272(but)-272(belonging)-273(to)-272(a)-272(r)18(e-)]TJ 0 -11.956 Td [(mote)-267(pr)18(ocess)-266(will)-267(be)-267(handled)-267(accor)18(dingly)111(.)-360(This)-267(is)-266(most)-267(likely)-267(to)-266(occur)-267(in)]TJ 0 -11.955 Td [(\002nite)-288(element)-288(applications,)-297(with)]TJ/F59 9.9626 Tf 145.88 0 Td [(dupl=psb_dupl_add_)]TJ/F54 9.9626 Tf 94.147 0 Td [(;)-307(it)-288(is)-287(necessary)-288(to)]TJ -240.027 -11.955 Td [(check)-236(for)-235(possible)-236(updates)-236(needed)-235(in)-236(the)-236(descriptor)74(,)-238(hence)-236(ther)18(e)-236(will)-235(be)-236(a)]TJ 0 -11.955 Td [(r)8(untime)-250(over)18(head.)]TJ
 0 g 0 G
- 141.968 -432.378 Td [(86)]TJ
+ 141.968 -332.752 Td [(87)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1473 0 obj
+1480 0 obj
 <<
-/Length 2977      
+/Length 2987      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.10)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(6.10)-1000(psb)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(spfree)-250(\227)-250(Frees)-250(a)-250(sparse)-250(matrix)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(spfree)-250(\227)-250(Frees)-250(a)-250(sparse)-250(matrix)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_spfree\050a,)-525(desc_a,)-525(info\051)]TJ
@@ -18071,84 +18120,84 @@ BT
 0 g 0 G
  0 -19.925 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(fr)18(eed.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(fr)18(eed.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 577.775 cm
+1 0 0 1 360.068 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 577.576 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 363.206 577.576 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 344.406 577.775 cm
+1 0 0 1 395.216 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 398.354 577.576 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.925 Td [(desc)]TJ
+/F51 9.9626 Tf -268.57 -19.925 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 557.85 cm
+1 0 0 1 171.218 557.85 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 557.651 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 557.651 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 510.029 cm
+1 0 0 1 360.068 510.029 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 509.83 Td [(desc)]TJ
+/F59 9.9626 Tf 363.206 509.83 Td [(desc)]TJ
 ET
 q
-1 0 0 1 333.945 510.029 cm
+1 0 0 1 384.755 510.029 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 509.83 Td [(type)]TJ
+/F59 9.9626 Tf 387.893 509.83 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -19.925 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -329.728 Td [(87)]TJ
+ 141.968 -329.728 Td [(88)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1479 0 obj
+1486 0 obj
 <<
-/Length 3869      
+/Length 3858      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.11)-1000(psb)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(6.11)-1000(psb)]TJ
 ET
 q
-1 0 0 1 204.216 706.328 cm
+1 0 0 1 153.407 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 207.803 706.129 Td [(sprn)-254(\227)-255(Reinit)-254(sparse)-254(matrix)-255(structure)-254(for)-255(psblas)-254(rou-)]TJ -24.221 -13.948 Td [(tines.)]TJ
+/F51 11.9552 Tf 156.993 706.129 Td [(sprn)-254(\227)-255(Reinit)-254(sparse)-255(matrix)-254(structure)-254(for)-255(psblas)-254(rou-)]TJ -24.221 -13.948 Td [(tines.)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf -32.877 -18.964 Td [(call)-525(psb_sprn\050a,)-525(decsc_a,)-525(info,)-525(clear\051)]TJ
@@ -18162,185 +18211,212 @@ BT
 0 g 0 G
  0 -19.925 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(r)18(einitialized.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(r)18(einitialized.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 563.828 cm
+1 0 0 1 309.258 563.828 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 563.628 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 312.397 563.628 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 395.216 563.828 cm
+1 0 0 1 344.406 563.828 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 398.354 563.628 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 563.628 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.57 -19.925 Td [(desc)]TJ
+/F51 9.9626 Tf -268.571 -19.925 Td [(desc)]TJ
 ET
 q
-1 0 0 1 171.218 543.902 cm
+1 0 0 1 120.408 543.902 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 174.207 543.703 Td [(a)]TJ
+/F51 9.9626 Tf 123.397 543.703 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 496.082 cm
+1 0 0 1 309.258 496.082 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 495.882 Td [(desc)]TJ
+/F59 9.9626 Tf 312.397 495.882 Td [(desc)]TJ
 ET
 q
-1 0 0 1 384.755 496.082 cm
+1 0 0 1 333.945 496.082 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 387.893 495.882 Td [(type)]TJ
+/F59 9.9626 Tf 337.084 495.882 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -258.11 -19.925 Td [(clear)]TJ
 0 g 0 G
-/F54 9.9626 Tf 26.56 0 Td [(Choose)-250(whether)-250(to)-250(zer)18(o)-250(out)-250(matrix)-250(coef)18(\002cients)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Default:)-310(tr)8(ue.)]TJ
+/F54 9.9626 Tf 26.561 0 Td [(Choose)-250(whether)-250(to)-250(zer)18(o)-250(out)-250(matrix)-250(coef)18(\002cients)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Default:)-310(tr)8(ue.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -21.917 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -21.917 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -19.926 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
  [-500(On)-250(exit)-250(fr)18(om)-250(this)-250(r)18(outine)-250(the)-250(sparse)-250(matrix)-250(is)-250(in)-250(the)-250(update)-250(state.)]TJ
 0 g 0 G
- 154.421 -206.192 Td [(88)]TJ
+ 154.421 -206.192 Td [(89)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1486 0 obj
+1493 0 obj
 <<
-/Length 4848      
+/Length 6166      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.12)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(6.12)-1000(psb)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(geall)-250(\227)-250(Allocates)-250(a)-250(dense)-250(matrix)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(geall)-250(\227)-250(Allocates)-250(a)-250(dense)-250(matrix)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info,)-525(n,)-525(lb\051)]TJ
+/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info[,)-525(dupl,)-525(bldmode,)-525(n,)-525(lb]\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -19.627 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -19.01 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(desc)]TJ
+ 0 -19.009 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 625.596 cm
+1 0 0 1 171.218 629.719 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 625.397 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 629.519 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 136.327 0 Td [(psb)]TJ
+/F59 9.9626 Tf 136.328 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 277.448 577.775 cm
+1 0 0 1 328.257 581.898 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 280.586 577.576 Td [(desc)]TJ
+/F59 9.9626 Tf 331.395 581.699 Td [(desc)]TJ
 ET
 q
-1 0 0 1 302.135 577.775 cm
+1 0 0 1 352.944 581.898 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 305.273 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 356.083 581.699 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -226.3 -31.88 Td [(n)]TJ
+/F51 9.9626 Tf -226.299 -30.965 Td [(n)]TJ
 0 g 0 G
-/F54 9.9626 Tf 11.069 0 Td [(The)-250(number)-250(of)-250(columns)-250(of)-250(the)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 13.838 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-296(1.)-451(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.577 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.741 -11.955 Td [(rank-1)-250(array)111(.)]TJ
+/F54 9.9626 Tf 11.068 0 Td [(The)-250(number)-250(of)-250(columns)-250(of)-250(the)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 13.838 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-297(1.)-450(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.578 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.742 -11.956 Td [(rank-1)-250(array)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(lb)]TJ
+/F51 9.9626 Tf -24.906 -19.009 Td [(lb)]TJ
 0 g 0 G
-/F54 9.9626 Tf 14.386 0 Td [(The)-237(lower)-238(bound)-237(for)-238(the)-237(column)-238(index)-237(range)-238(of)-237(the)-237(dense)-238(matrix)-237(to)-238(be)-237(allo-)]TJ 10.521 -11.955 Td [(cated.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-296(1.)-451(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.577 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.741 -11.956 Td [(rank-1)-250(array)111(.)]TJ
+/F54 9.9626 Tf 14.386 0 Td [(The)-237(lower)-238(bound)-237(for)-238(the)-237(column)-238(index)-237(range)-237(of)-238(the)-237(dense)-238(matrix)-237(to)-238(be)-237(allo-)]TJ 10.52 -11.955 Td [(cated.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-297(1.)-450(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.578 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.742 -11.955 Td [(rank-1)-250(array)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.917 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.906 -19.009 Td [(dupl)]TJ
 0 g 0 G
+/F54 9.9626 Tf 26.56 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.942 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.994 0 Td [(;)]TJ/F59 9.9626 Tf -316.314 -11.955 Td [(psb_dupl_err_)]TJ/F54 9.9626 Tf 70.485 0 Td [(has)-250(no)-250(ef)18(fect.)]TJ
 0 g 0 G
- 0 -19.926 Td [(x)]TJ
+/F51 9.9626 Tf -95.391 -19.009 Td [(bldmode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 45.937 0 Td [(Whether)-372(to)-372(keep)-371(track)-372(of)-372(matrix)-372(entries)-371(that)-372(do)-372(not)-372(belong)-371(to)-372(the)]TJ -21.031 -11.955 Td [(curr)18(ent)-250(pr)18(ocess.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-190(as:)-280(an)-190(integer)-190(value)]TJ/F59 9.9626 Tf 128.288 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(,)]TJ/F59 9.9626 Tf 4.503 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 94.146 0 Td [(.)]TJ -331.544 -11.955 Td [(Default:)]TJ/F59 9.9626 Tf 38.515 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -168.028 -19.627 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-273(as:)-357(a)-273(rank)-274(one)-273(or)-273(two)-274(array)-273(with)-274(the)-273(ALLOCA)74(T)74(ABLE)-273(attribute)]TJ 0 -11.956 Td [(or)-250(an)-250(object)-250(of)-250(type)]TJ
+0 g 0 G
+ 0 -19.009 Td [(x)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.943 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-273(as:)-357(a)-273(rank)-274(one)-273(or)-274(two)-273(array)-273(with)-274(the)-273(ALLOCA)74(T)74(ABLE)-273(attribute)]TJ 0 -11.955 Td [(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 86.634 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 227.755 292.844 cm
+1 0 0 1 278.564 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 230.893 292.645 Td [(T)]TJ
+/F59 9.9626 Tf 281.702 132.281 Td [(T)]TJ
 ET
 q
-1 0 0 1 236.751 292.844 cm
+1 0 0 1 287.56 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 239.889 292.645 Td [(vect)]TJ
+/F59 9.9626 Tf 290.699 132.281 Td [(vect)]TJ
 ET
 q
-1 0 0 1 261.438 292.844 cm
+1 0 0 1 312.247 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 264.576 292.645 Td [(type)]TJ
+/F59 9.9626 Tf 315.386 132.281 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(,)-250(of)-250(type)-250(r)18(eal,)-250(complex)-250(or)-250(integer)74(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(,)-250(of)-250(type)-250(r)18(eal,)-250(complex)-250(or)-250(integer)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -185.603 -31.881 Td [(info)]TJ
+ -18.728 -41.843 Td [(90)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+ET
+
+endstream
+endobj
+1497 0 obj
+<<
+/Length 925       
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F51 9.9626 Tf 99.895 706.129 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(Using)]TJ/F59 9.9626 Tf 41.798 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 97.28 0 Td [(is)-314(likely)-315(to)-315(cau)1(se)-315(a)-315(r)8(untime)-314(over)18(head)-315(at)-314(as-)]TJ -126.625 -11.955 Td [(sembly)-250(time;)]TJ
 0 g 0 G
- 141.968 -122.505 Td [(89)]TJ
+ 141.968 -514.072 Td [(91)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1492 0 obj
+1505 0 obj
 <<
-/Length 6547      
+/Length 6336      
 >>
 stream
 0 g 0 G
@@ -18356,7 +18432,7 @@ BT
 /F51 11.9552 Tf 207.803 706.129 Td [(geins)-250(\227)-250(Dense)-250(matrix)-250(insertion)-250(routine)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geins\050m,)-525(irw,)-525(val,)-525(x,)-525(desc_a,)-525(info)-525([,dupl,local]\051)]TJ
+/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geins\050m,)-525(irw,)-525(val,)-525(x,)-525(desc_a,)-525(info)-525([,local]\051)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -20.57 Td [(T)90(ype:)]TJ
 0 g 0 G
@@ -18406,82 +18482,79 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -258.11 -19.386 Td [(dupl)]TJ
-0 g 0 G
-/F54 9.9626 Tf 26.56 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.942 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.994 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -341.22 -19.387 Td [(local)]TJ
+/F51 9.9626 Tf -258.11 -19.386 Td [(local)]TJ
 0 g 0 G
-/F54 9.9626 Tf 26.56 0 Td [(Whether)-240(the)-240(entries)-241(in)-240(the)-240(index)-240(vector)]TJ/F59 9.9626 Tf 173.162 0 Td [(irw)]TJ/F54 9.9626 Tf 15.691 0 Td [(,)-242(ar)18(e)-240(alr)18(eady)-241(in)-240(local)-240(number)18(-)]TJ -190.507 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.613 0 Td [(.)]TJ
+/F54 9.9626 Tf 26.56 0 Td [(Whether)-240(the)-240(entries)-241(in)-240(the)-240(index)-240(vector)]TJ/F59 9.9626 Tf 173.162 0 Td [(irw)]TJ/F54 9.9626 Tf 15.692 0 Td [(,)-242(ar)18(e)-240(alr)18(eady)-241(i)1(n)-241(local)-240(number)18(-)]TJ -190.508 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.613 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -224.197 -20.57 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.386 Td [(x)]TJ
+ 0 -19.387 Td [(x)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(output)-250(dense)-250(matrix.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(rank)-190(one)-190(or)-190(two)-190(array)-190(or)-190(an)-190(object)-190(of)-190(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(output)-250(dense)-250(matrix.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(rank)-190(one)-190(or)-190(two)-190(array)-190(or)-190(an)-190(object)-190(of)-190(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 242.569 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 434.498 144.435 cm
+1 0 0 1 434.498 211.642 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 437.636 144.236 Td [(T)]TJ
+/F59 9.9626 Tf 437.636 211.443 Td [(T)]TJ
 ET
 q
-1 0 0 1 443.494 144.435 cm
+1 0 0 1 443.494 211.642 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 446.633 144.236 Td [(vect)]TJ
+/F59 9.9626 Tf 446.633 211.443 Td [(vect)]TJ
 ET
 q
-1 0 0 1 468.182 144.435 cm
+1 0 0 1 468.182 211.642 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 471.32 144.236 Td [(type)]TJ
+/F59 9.9626 Tf 471.32 211.443 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(,)]TJ -316.63 -11.955 Td [(of)-250(type)-250(r)18(eal,)-250(complex)-250(or)-250(integer)74(.)]TJ
 0 g 0 G
- 141.968 -41.843 Td [(90)]TJ
+/F51 9.9626 Tf -24.906 -31.342 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 141.968 -29.888 Td [(92)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1496 0 obj
+1509 0 obj
 <<
-/Length 1054      
+/Length 539       
 >>
 stream
 0 g 0 G
 0 g 0 G
-0 g 0 G
 BT
-/F51 9.9626 Tf 99.895 706.129 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(Notes)]TJ
 0 g 0 G
 /F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
  [-500(Dense)-250(vectors/matrices)-250(do)-250(not)-250(have)-250(an)-250(associated)-250(state;)]TJ
 0 g 0 G
- 0 -19.925 Td [(2.)]TJ
+ 0 -19.926 Td [(2.)]TJ
 0 g 0 G
  [-500(Duplicate)-326(entries)-326(ar)18(e)-325(either)-326(overwritten)-326(or)-326(added,)-345(ther)18(e)-325(is)-326(no)-326(pr)18(ovision)]TJ 12.453 -11.955 Td [(for)-250(raising)-250(an)-250(err)18(or)-250(condition.)]TJ
 0 g 0 G
- 141.968 -494.147 Td [(91)]TJ
+ 141.968 -563.885 Td [(93)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1506 0 obj
+1518 0 obj
 <<
-/Length 5014      
+/Length 6120      
 >>
 stream
 0 g 0 G
@@ -18626,15 +18699,23 @@ BT
 0 g 0 G
 /F51 9.9626 Tf -149.518 -31.881 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(On)-227(entry)-226(to)-227(this)-226(r)18(outine)-227(th)1(e)-227(descriptor)-226(must)-227(be)-226(in)-227(the)-226(assembled)-227(state,)-231(i.e.)]TJ/F59 9.9626 Tf 12.453 -11.956 Td [(psb_cdasb)]TJ/F54 9.9626 Tf 49.564 0 Td [(must)-250(alr)18(eady)-250(have)-250(been)-250(called.)]TJ
+0 g 0 G
+ -62.017 -19.925 Td [(2.)]TJ
+0 g 0 G
+ [-500(If)-431(the)]TJ/F59 9.9626 Tf 41.544 0 Td [(bldmode=psb_matbld_remote_)]TJ/F54 9.9626 Tf 140.287 0 Td [(value)-431(was)-432(speci\002ed)-431(at)-432(allocation)]TJ -169.378 -11.955 Td [(time,)-278(contributions)-272(de\002ned)-272(on)-273(the)-272(curr)18(ent)-272(pr)18(ocess)-272(but)-272(belonging)-273(to)-272(a)-272(r)18(e-)]TJ 0 -11.955 Td [(mote)-267(pr)18(ocess)-266(will)-267(be)-267(handled)-267(accor)18(dingly)111(.)-360(This)-267(is)-266(most)-267(likely)-267(to)-266(occur)-267(in)]TJ 0 -11.955 Td [(\002nite)-250(element)-250(applications,)-250(with)]TJ/F59 9.9626 Tf 144.277 0 Td [(dupl=psb_dupl_add_)]TJ/F54 9.9626 Tf 94.146 0 Td [(.)]TJ
 0 g 0 G
- 141.968 -214.162 Td [(92)]TJ
+ -96.455 -104.573 Td [(94)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1512 0 obj
+1526 0 obj
 <<
 /Length 3224      
 >>
@@ -18726,13 +18807,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -293.863 Td [(93)]TJ
+ 141.968 -293.863 Td [(95)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1516 0 obj
+1530 0 obj
 <<
 /Length 3218      
 >>
@@ -18778,13 +18859,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -226.117 Td [(94)]TJ
+ 141.968 -226.117 Td [(96)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1521 0 obj
+1535 0 obj
 <<
 /Length 6238      
 >>
@@ -18881,13 +18962,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.108 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 166.875 -29.888 Td [(95)]TJ
+/F54 9.9626 Tf 166.875 -29.888 Td [(97)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1525 0 obj
+1540 0 obj
 <<
 /Length 672       
 >>
@@ -18904,13 +18985,13 @@ BT
 0 g 0 G
  [-500(The)-416(default)]TJ/F59 9.9626 Tf 68.74 0 Td [(I)]TJ/F54 9.9626 Tf 5.23 0 Td [(gnor)18(e)-416(means)-417(that)-416(the)-417(negative)-416(output)-416(is)-417(the)-416(only)-416(action)]TJ -61.517 -11.955 Td [(taken)-250(on)-250(an)-250(out-of-range)-250(input.)]TJ
 0 g 0 G
- 141.968 -571.855 Td [(96)]TJ
+ 141.968 -571.855 Td [(98)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1532 0 obj
+1547 0 obj
 <<
 /Length 5458      
 >>
@@ -19003,15 +19084,15 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -114.535 Td [(97)]TJ
+ 141.968 -114.535 Td [(99)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1538 0 obj
+1552 0 obj
 <<
-/Length 3168      
+/Length 3169      
 >>
 stream
 0 g 0 G
@@ -19087,15 +19168,15 @@ BT
 0 g 0 G
  [-500(This)-240(r)18(outine)-239(r)18(eturns)-240(a)]TJ/F59 9.9626 Tf 109.67 0 Td [(.true.)]TJ/F54 9.9626 Tf 33.769 0 Td [(value)-240(for)-239(an)-240(index)-239(that)-240(is)-239(strictly)-240(owned)-239(by)]TJ -130.986 -11.955 Td [(the)-250(curr)18(ent)-250(pr)18(ocess,)-250(excluding)-250(the)-250(halo)-250(indices)]TJ
 0 g 0 G
- 141.968 -263.975 Td [(98)]TJ
+ 139.477 -263.975 Td [(100)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1544 0 obj
+1558 0 obj
 <<
-/Length 4794      
+/Length 4795      
 >>
 stream
 0 g 0 G
@@ -19179,13 +19260,13 @@ BT
 0 g 0 G
  [-500(This)-429(r)18(outine)-428(r)18(eturns)-429(a)]TJ/F59 9.9626 Tf 117.209 0 Td [(.true.)]TJ/F54 9.9626 Tf 35.654 0 Td [(value)-429(for)-428(those)-429(indices)-429(that)-429(ar)18(e)-428(strictly)]TJ -140.41 -11.955 Td [(owned)-250(by)-250(the)-250(curr)18(ent)-250(pr)18(ocess,)-250(excluding)-250(the)-250(halo)-250(indices)]TJ
 0 g 0 G
- 141.968 -140.438 Td [(99)]TJ
+ 139.477 -140.438 Td [(101)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1550 0 obj
+1564 0 obj
 <<
 /Length 3147      
 >>
@@ -19263,381 +19344,270 @@ BT
 0 g 0 G
  [-500(This)-199(r)18(outine)-200(r)18(eturns)-199(a)]TJ/F59 9.9626 Tf 108.069 0 Td [(.true.)]TJ/F54 9.9626 Tf 33.369 0 Td [(value)-199(for)-200(an)-199(index)-199(that)-200(is)-199(local)-200(to)-199(the)-199(curr)18(ent)]TJ -128.984 -11.955 Td [(pr)18(ocess,)-250(including)-250(the)-250(halo)-250(indices)]TJ
 0 g 0 G
- 139.476 -263.975 Td [(100)]TJ
+ 139.476 -263.975 Td [(102)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1556 0 obj
+1464 0 obj
 <<
-/Length 4785      
+/Type /ObjStm
+/N 100
+/First 976
+/Length 10636     
 >>
 stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.22)-1000(psb)]TJ
-ET
-q
-1 0 0 1 153.407 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 156.993 706.129 Td [(local)]TJ
-ET
-q
-1 0 0 1 183.605 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 187.192 706.129 Td [(index)-250(\227)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -87.297 -18.964 Td [(call)-525(psb_local_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(x)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(Integer)-250(indices.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in,)-250(inout)]TJ/F54 9.9626 Tf 38.735 0 Td [(.)]TJ -70.535 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(a)-250(rank)-250(one)-250(integer)-250(array)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ
-ET
-q
-1 0 0 1 120.408 545.895 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 123.397 545.696 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 309.258 498.074 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 312.397 497.875 Td [(desc)]TJ
-ET
-q
-1 0 0 1 333.945 498.074 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 337.084 497.875 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -258.11 -19.925 Td [(iact)]TJ
-0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(speci\002es)-250(action)-250(to)-250(be)-250(taken)-250(in)-250(case)-250(of)-250(range)-250(err)18(ors.)-310(Scope:)]TJ/F51 9.9626 Tf 253.796 0 Td [(global)]TJ/F54 9.9626 Tf -249.91 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(character)-190(variable)]TJ/F59 9.9626 Tf 143.341 0 Td [(I)]TJ/F54 9.9626 Tf 5.23 0 Td [(gnor)18(e,)]TJ/F59 9.9626 Tf 29.808 0 Td [(W)]TJ/F54 9.9626 Tf 5.231 0 Td [(arning)-190(or)]TJ/F59 9.9626 Tf 42.111 0 Td [(A)]TJ/F54 9.9626 Tf 5.231 0 Td [(bort,)-202(default)]TJ/F59 9.9626 Tf 55.839 0 Td [(I)]TJ/F54 9.9626 Tf 5.231 0 Td [(gnor)18(e.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -316.929 -21.918 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(y)]TJ
-0 g 0 G
-/F54 9.9626 Tf 10.521 0 Td [(A)-270(logical)-270(mask)-270(which)-271(is)-270(tr)8(ue)-270(for)-270(all)-270(corr)18(esponding)-270(entries)-270(of)]TJ/F52 9.9626 Tf 268.484 0 Td [(x)]TJ/F54 9.9626 Tf 7.897 0 Td [(that)-270(ar)18(e)-270(local)]TJ -261.995 -11.955 Td [(to)-250(the)-250(curr)18(ent)-250(pr)18(ocess)-250(Scope:)]TJ/F51 9.9626 Tf 128.666 0 Td [(local)]TJ/F54 9.9626 Tf -128.666 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(rank)-250(one)-250(logical)-250(array)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ
-0 g 0 G
-/F54 9.9626 Tf 12.454 -19.926 Td [(1.)]TJ
-0 g 0 G
- [-500(This)-264(r)18(outine)-265(r)18(eturns)-264(a)]TJ/F59 9.9626 Tf 110.663 0 Td [(.true.)]TJ/F54 9.9626 Tf 34.017 0 Td [(value)-264(for)-265(those)-264(indices)-265(that)-264(ar)18(e)-265(local)-264(to)-265(the)]TJ -132.227 -11.955 Td [(curr)18(ent)-250(pr)18(ocess,)-250(including)-250(the)-250(halo)-250(indices.)]TJ
-0 g 0 G
- 139.477 -140.438 Td [(101)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1562 0 obj
+1461 0 1457 157 1458 304 1459 449 1463 595 344 654 1460 712 1466 806 1468 924 1469 982
+1470 1040 1471 1098 1472 1156 1473 1214 1474 1272 1475 1330 1465 1388 1479 1482 1476 1630 1477 1773
+1481 1920 348 1979 1478 2037 1485 2131 1482 2279 1483 2424 1487 2571 352 2629 1488 2686 1484 2744
+1492 2838 1489 2986 1490 3129 1494 3273 356 3332 1491 3390 1496 3497 1498 3615 1499 3673 1495 3730
+1504 3824 1501 3972 1502 4118 1506 4262 360 4321 1503 4379 1508 4499 1510 4617 1511 4675 1512 4733
+1507 4791 1517 4872 1513 5029 1514 5170 1515 5313 1519 5457 364 5516 1520 5574 1521 5633 1516 5692
+1525 5799 1522 5947 1523 6090 1527 6237 368 6295 1524 6352 1529 6446 1531 6564 372 6623 1528 6681
+1534 6788 1532 6927 1536 7074 376 7132 1533 7189 1539 7296 1541 7414 1542 7473 1543 7532 1538 7591
+1546 7672 1544 7811 1548 7958 380 8016 1545 8073 1551 8180 1549 8319 1553 8466 384 8525 1554 8583
+1550 8642 1557 8749 1555 8888 1559 9035 388 9093 1560 9150 1556 9208 1563 9315 1561 9454 1565 9601
+% 1461 0 obj
 <<
-/Length 3647      
+/Type /Page
+/Contents 1462 0 R
+/Resources 1460 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1456 0 R
+/Annots [ 1457 0 R 1458 0 R 1459 0 R ]
 >>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.23)-1000(psb)]TJ
-ET
-q
-1 0 0 1 204.216 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 207.803 706.129 Td [(get)]TJ
-ET
-q
-1 0 0 1 225.126 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 228.712 706.129 Td [(boundary)-250(\227)-250(Extract)-250(list)-250(of)-250(boundary)-250(elements)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -78.007 -18.964 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(desc)]TJ
-0 g 0 G
-/F54 9.9626 Tf 24.896 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 360.068 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 363.206 577.576 Td [(desc)]TJ
-ET
-q
-1 0 0 1 384.755 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 387.893 577.576 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(bndel)]TJ
-0 g 0 G
-/F54 9.9626 Tf 31.541 0 Td [(The)-307(list)-307(of)-307(boundary)-307(elements)-307(on)-306(the)-307(calling)-307(pr)18(ocess,)-321(in)-307(local)-307(number)18(-)]TJ -6.635 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(a)-1(r)1(ray)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.906 -31.881 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
-0 g 0 G
-/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
-0 g 0 G
- [-500(If)-219(ther)18(e)-220(ar)18(e)-219(no)-220(boundary)-219(elements)-219(\050i.e.,)-226(if)-219(the)-220(local)-219(part)-219(of)-220(the)-219(connectivity)]TJ 12.453 -11.956 Td [(graph)-391(is)-392(self-contained\051)-391(the)-392(output)-391(vector)-391(is)-392(set)-391(to)-391(the)-392(\223not)-391(allocated\224)]TJ 0 -11.955 Td [(state.)]TJ
-0 g 0 G
- -12.453 -19.925 Td [(2.)]TJ
-0 g 0 G
- [-500(Otherwise)-206(the)-205(size)-206(of)]TJ/F59 9.9626 Tf 105.891 0 Td [(bndel)]TJ/F54 9.9626 Tf 28.201 0 Td [(will)-206(be)-205(exactly)-206(equal)-206(to)-206(the)-205(number)-206(of)-206(bound-)]TJ -121.639 -11.955 Td [(ary)-250(elements.)]TJ
-0 g 0 G
- 139.477 -196.229 Td [(102)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1458 0 obj
+% 1457 0 obj
 <<
-/Type /ObjStm
-/N 100
-/First 970
-/Length 10596     
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 572.168 409.811 584.228]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1458 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 276.913 420.271 288.973]
+/A << /S /GoTo /D (spdata) >>
+>>
+% 1459 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [345.92 208.672 412.978 220.731]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1463 0 obj
+<<
+/D [1461 0 R /XYZ 149.705 753.953 null]
 >>
-stream
-344 0 1453 57 1460 151 1462 269 1463 328 1464 387 1465 446 1466 505 1467 564 1468 623
-1459 682 1472 763 1469 911 1470 1054 1474 1201 348 1259 1471 1316 1478 1410 1475 1558 1476 1703
-1480 1850 352 1909 1481 1967 1477 2026 1485 2120 1482 2268 1483 2413 1487 2556 356 2614 1484 2671
-1491 2778 1488 2926 1489 3072 1493 3214 360 3273 1490 3331 1495 3451 1497 3569 1498 3627 1499 3684
-1494 3742 1505 3823 1501 3980 1502 4121 1503 4264 1507 4408 364 4467 1504 4525 1511 4632 1508 4780
-1509 4923 1513 5070 368 5128 1510 5185 1515 5279 1517 5397 372 5456 1514 5514 1520 5621 1518 5760
-1522 5907 376 5965 1519 6022 1524 6129 1526 6247 1527 6306 1528 6365 1523 6424 1531 6505 1529 6644
-1533 6791 380 6849 1530 6906 1537 7013 1535 7152 1539 7299 384 7358 1540 7416 1536 7475 1543 7582
-1541 7721 1545 7868 388 7926 1546 7983 1542 8041 1549 8148 1547 8287 1551 8434 392 8493 1552 8551
-1548 8610 1555 8717 1553 8856 1557 9003 396 9061 1558 9118 1554 9176 1561 9283 1559 9422 1563 9567
 % 344 0 obj
 <<
-/D [1454 0 R /XYZ 99.895 716.092 null]
+/D [1461 0 R /XYZ 150.705 716.092 null]
 >>
-% 1453 0 obj
+% 1460 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1460 0 obj
+% 1466 0 obj
 <<
 /Type /Page
-/Contents 1461 0 R
-/Resources 1459 0 R
+/Contents 1467 0 R
+/Resources 1465 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
+/Parent 1456 0 R
 >>
-% 1462 0 obj
+% 1468 0 obj
 <<
-/D [1460 0 R /XYZ 149.705 753.953 null]
+/D [1466 0 R /XYZ 98.895 753.953 null]
 >>
-% 1463 0 obj
+% 1469 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 716.092 null]
+/D [1466 0 R /XYZ 99.895 701.929 null]
 >>
-% 1464 0 obj
+% 1470 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 687.379 null]
+/D [1466 0 R /XYZ 99.895 667.454 null]
 >>
-% 1465 0 obj
+% 1471 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 667.454 null]
+/D [1466 0 R /XYZ 99.895 647.529 null]
 >>
-% 1466 0 obj
+% 1472 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 623.618 null]
+/D [1466 0 R /XYZ 99.895 603.693 null]
 >>
-% 1467 0 obj
+% 1473 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 567.828 null]
+/D [1466 0 R /XYZ 99.895 547.902 null]
 >>
-% 1468 0 obj
+% 1474 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 547.902 null]
+/D [1466 0 R /XYZ 99.895 527.977 null]
 >>
-% 1459 0 obj
+% 1475 0 obj
 <<
-/Font << /F54 586 0 R /F59 812 0 R >>
+/D [1466 0 R /XYZ 99.895 496.097 null]
+>>
+% 1465 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1472 0 obj
+% 1479 0 obj
 <<
 /Type /Page
-/Contents 1473 0 R
-/Resources 1471 0 R
+/Contents 1480 0 R
+/Resources 1478 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1469 0 R 1470 0 R ]
+/Parent 1456 0 R
+/Annots [ 1476 0 R 1477 0 R ]
 >>
-% 1469 0 obj
+% 1476 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 573.77 369.462 585.83]
+/Rect [342.753 573.77 420.271 585.83]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1470 0 obj
+% 1477 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 506.024 359.001 518.084]
+/Rect [342.753 506.024 409.811 518.084]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1474 0 obj
+% 1481 0 obj
 <<
-/D [1472 0 R /XYZ 98.895 753.953 null]
+/D [1479 0 R /XYZ 149.705 753.953 null]
 >>
 % 348 0 obj
 <<
-/D [1472 0 R /XYZ 99.895 716.092 null]
+/D [1479 0 R /XYZ 150.705 716.092 null]
 >>
-% 1471 0 obj
+% 1478 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1478 0 obj
+% 1485 0 obj
 <<
 /Type /Page
-/Contents 1479 0 R
-/Resources 1477 0 R
+/Contents 1486 0 R
+/Resources 1484 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1475 0 R 1476 0 R ]
+/Parent 1456 0 R
+/Annots [ 1482 0 R 1483 0 R ]
 >>
-% 1475 0 obj
+% 1482 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 559.823 420.271 571.882]
+/Rect [291.943 559.823 369.462 571.882]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1476 0 obj
+% 1483 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 492.077 409.811 504.136]
+/Rect [291.943 492.077 359.001 504.136]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1480 0 obj
+% 1487 0 obj
 <<
-/D [1478 0 R /XYZ 149.705 753.953 null]
+/D [1485 0 R /XYZ 98.895 753.953 null]
 >>
 % 352 0 obj
 <<
-/D [1478 0 R /XYZ 150.705 716.092 null]
+/D [1485 0 R /XYZ 99.895 716.092 null]
 >>
-% 1481 0 obj
+% 1488 0 obj
 <<
-/D [1478 0 R /XYZ 150.705 312.355 null]
+/D [1485 0 R /XYZ 99.895 312.355 null]
 >>
-% 1477 0 obj
+% 1484 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1485 0 obj
+% 1492 0 obj
 <<
 /Type /Page
-/Contents 1486 0 R
-/Resources 1484 0 R
+/Contents 1493 0 R
+/Resources 1491 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1482 0 R 1483 0 R ]
+/Parent 1456 0 R
+/Annots [ 1489 0 R 1490 0 R ]
 >>
-% 1482 0 obj
+% 1489 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [260.133 573.77 327.191 585.83]
+/Rect [310.942 577.893 378 589.953]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1483 0 obj
+% 1490 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [210.44 288.839 286.494 300.898]
+/Rect [261.249 128.475 337.303 140.535]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1487 0 obj
+% 1494 0 obj
 <<
-/D [1485 0 R /XYZ 98.895 753.953 null]
+/D [1492 0 R /XYZ 149.705 753.953 null]
 >>
 % 356 0 obj
 <<
-/D [1485 0 R /XYZ 99.895 716.092 null]
+/D [1492 0 R /XYZ 150.705 716.092 null]
 >>
-% 1484 0 obj
+% 1491 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1491 0 obj
+% 1496 0 obj
 <<
 /Type /Page
-/Contents 1492 0 R
-/Resources 1490 0 R
+/Contents 1497 0 R
+/Resources 1495 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1488 0 R 1489 0 R ]
+/Parent 1500 0 R
 >>
-% 1488 0 obj
+% 1498 0 obj
+<<
+/D [1496 0 R /XYZ 98.895 753.953 null]
+>>
+% 1499 0 obj
+<<
+/D [1496 0 R /XYZ 99.895 632.19 null]
+>>
+% 1495 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1504 0 obj
+<<
+/Type /Page
+/Contents 1505 0 R
+/Resources 1503 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1500 0 R
+/Annots [ 1501 0 R 1502 0 R ]
+>>
+% 1501 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19645,62 +19615,62 @@ stream
 /Rect [342.753 362.621 409.811 374.68]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1489 0 obj
+% 1502 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [417.183 140.43 493.237 152.49]
+/Rect [417.183 207.637 493.237 219.697]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1493 0 obj
+% 1506 0 obj
 <<
-/D [1491 0 R /XYZ 149.705 753.953 null]
+/D [1504 0 R /XYZ 149.705 753.953 null]
 >>
 % 360 0 obj
 <<
-/D [1491 0 R /XYZ 150.705 716.092 null]
+/D [1504 0 R /XYZ 150.705 716.092 null]
 >>
-% 1490 0 obj
+% 1503 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1495 0 obj
+% 1508 0 obj
 <<
 /Type /Page
-/Contents 1496 0 R
-/Resources 1494 0 R
+/Contents 1509 0 R
+/Resources 1507 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
 >>
-% 1497 0 obj
+% 1510 0 obj
 <<
-/D [1495 0 R /XYZ 98.895 753.953 null]
+/D [1508 0 R /XYZ 98.895 753.953 null]
 >>
-% 1498 0 obj
+% 1511 0 obj
 <<
-/D [1495 0 R /XYZ 99.895 632.19 null]
+/D [1508 0 R /XYZ 99.895 701.929 null]
 >>
-% 1499 0 obj
+% 1512 0 obj
 <<
-/D [1495 0 R /XYZ 99.895 610.946 null]
+/D [1508 0 R /XYZ 99.895 680.684 null]
 >>
-% 1494 0 obj
+% 1507 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1505 0 obj
+% 1517 0 obj
 <<
 /Type /Page
-/Contents 1506 0 R
-/Resources 1504 0 R
+/Contents 1518 0 R
+/Resources 1516 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
-/Annots [ 1501 0 R 1502 0 R 1503 0 R ]
+/Annots [ 1513 0 R 1514 0 R 1515 0 R ]
 >>
-% 1501 0 obj
+% 1513 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19708,7 +19678,7 @@ stream
 /Rect [310.942 573.77 378 585.83]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1502 0 obj
+% 1514 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19716,7 +19686,7 @@ stream
 /Rect [322.33 482.114 398.384 494.174]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1503 0 obj
+% 1515 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19724,29 +19694,37 @@ stream
 /Rect [225.165 380.495 301.219 392.555]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1507 0 obj
+% 1519 0 obj
 <<
-/D [1505 0 R /XYZ 149.705 753.953 null]
+/D [1517 0 R /XYZ 149.705 753.953 null]
 >>
 % 364 0 obj
 <<
-/D [1505 0 R /XYZ 150.705 716.092 null]
+/D [1517 0 R /XYZ 150.705 716.092 null]
 >>
-% 1504 0 obj
+% 1520 0 obj
+<<
+/D [1517 0 R /XYZ 150.705 278.482 null]
+>>
+% 1521 0 obj
+<<
+/D [1517 0 R /XYZ 150.705 244.007 null]
+>>
+% 1516 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1511 0 obj
+% 1525 0 obj
 <<
 /Type /Page
-/Contents 1512 0 R
-/Resources 1510 0 R
+/Contents 1526 0 R
+/Resources 1524 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
-/Annots [ 1508 0 R 1509 0 R ]
+/Annots [ 1522 0 R 1523 0 R ]
 >>
-% 1508 0 obj
+% 1522 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19754,7 +19732,7 @@ stream
 /Rect [174.355 561.815 250.41 573.875]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1509 0 obj
+% 1523 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19762,50 +19740,50 @@ stream
 /Rect [260.133 482.114 327.191 494.174]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1513 0 obj
+% 1527 0 obj
 <<
-/D [1511 0 R /XYZ 98.895 753.953 null]
+/D [1525 0 R /XYZ 98.895 753.953 null]
 >>
 % 368 0 obj
 <<
-/D [1511 0 R /XYZ 99.895 716.092 null]
+/D [1525 0 R /XYZ 99.895 716.092 null]
 >>
-% 1510 0 obj
+% 1524 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1515 0 obj
+% 1529 0 obj
 <<
 /Type /Page
-/Contents 1516 0 R
-/Resources 1514 0 R
+/Contents 1530 0 R
+/Resources 1528 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
 >>
-% 1517 0 obj
+% 1531 0 obj
 <<
-/D [1515 0 R /XYZ 149.705 753.953 null]
+/D [1529 0 R /XYZ 149.705 753.953 null]
 >>
 % 372 0 obj
 <<
-/D [1515 0 R /XYZ 150.705 716.092 null]
+/D [1529 0 R /XYZ 150.705 716.092 null]
 >>
-% 1514 0 obj
+% 1528 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1520 0 obj
+% 1534 0 obj
 <<
 /Type /Page
-/Contents 1521 0 R
-/Resources 1519 0 R
+/Contents 1535 0 R
+/Resources 1533 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1500 0 R
-/Annots [ 1518 0 R ]
+/Parent 1537 0 R
+/Annots [ 1532 0 R ]
 >>
-% 1518 0 obj
+% 1532 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19813,54 +19791,54 @@ stream
 /Rect [291.943 483.894 359.001 495.954]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1522 0 obj
+% 1536 0 obj
 <<
-/D [1520 0 R /XYZ 98.895 753.953 null]
+/D [1534 0 R /XYZ 98.895 753.953 null]
 >>
 % 376 0 obj
 <<
-/D [1520 0 R /XYZ 99.895 716.092 null]
+/D [1534 0 R /XYZ 99.895 716.092 null]
 >>
-% 1519 0 obj
+% 1533 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1524 0 obj
+% 1539 0 obj
 <<
 /Type /Page
-/Contents 1525 0 R
-/Resources 1523 0 R
+/Contents 1540 0 R
+/Resources 1538 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1500 0 R
+/Parent 1537 0 R
 >>
-% 1526 0 obj
+% 1541 0 obj
 <<
-/D [1524 0 R /XYZ 149.705 753.953 null]
+/D [1539 0 R /XYZ 149.705 753.953 null]
 >>
-% 1527 0 obj
+% 1542 0 obj
 <<
-/D [1524 0 R /XYZ 150.705 716.092 null]
+/D [1539 0 R /XYZ 150.705 716.092 null]
 >>
-% 1528 0 obj
+% 1543 0 obj
 <<
-/D [1524 0 R /XYZ 150.705 687.379 null]
+/D [1539 0 R /XYZ 150.705 687.379 null]
 >>
-% 1523 0 obj
+% 1538 0 obj
 <<
 /Font << /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1531 0 obj
+% 1546 0 obj
 <<
 /Type /Page
-/Contents 1532 0 R
-/Resources 1530 0 R
+/Contents 1547 0 R
+/Resources 1545 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1529 0 R ]
+/Parent 1537 0 R
+/Annots [ 1544 0 R ]
 >>
-% 1529 0 obj
+% 1544 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19868,29 +19846,29 @@ stream
 /Rect [291.943 482.114 359.001 494.174]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1533 0 obj
+% 1548 0 obj
 <<
-/D [1531 0 R /XYZ 98.895 753.953 null]
+/D [1546 0 R /XYZ 98.895 753.953 null]
 >>
 % 380 0 obj
 <<
-/D [1531 0 R /XYZ 99.895 716.092 null]
+/D [1546 0 R /XYZ 99.895 716.092 null]
 >>
-% 1530 0 obj
+% 1545 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1537 0 obj
+% 1551 0 obj
 <<
 /Type /Page
-/Contents 1538 0 R
-/Resources 1536 0 R
+/Contents 1552 0 R
+/Resources 1550 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1535 0 R ]
+/Parent 1537 0 R
+/Annots [ 1549 0 R ]
 >>
-% 1535 0 obj
+% 1549 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19898,33 +19876,33 @@ stream
 /Rect [342.753 494.069 409.811 506.129]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1539 0 obj
+% 1553 0 obj
 <<
-/D [1537 0 R /XYZ 149.705 753.953 null]
+/D [1551 0 R /XYZ 149.705 753.953 null]
 >>
 % 384 0 obj
 <<
-/D [1537 0 R /XYZ 150.705 716.092 null]
+/D [1551 0 R /XYZ 150.705 716.092 null]
 >>
-% 1540 0 obj
+% 1554 0 obj
 <<
-/D [1537 0 R /XYZ 150.705 382.093 null]
+/D [1551 0 R /XYZ 150.705 382.093 null]
 >>
-% 1536 0 obj
+% 1550 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1543 0 obj
+% 1557 0 obj
 <<
 /Type /Page
-/Contents 1544 0 R
-/Resources 1542 0 R
+/Contents 1558 0 R
+/Resources 1556 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1541 0 R ]
+/Parent 1537 0 R
+/Annots [ 1555 0 R ]
 >>
-% 1541 0 obj
+% 1555 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19932,141 +19910,73 @@ stream
 /Rect [291.943 494.069 359.001 506.129]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1545 0 obj
+% 1559 0 obj
 <<
-/D [1543 0 R /XYZ 98.895 753.953 null]
+/D [1557 0 R /XYZ 98.895 753.953 null]
 >>
 % 388 0 obj
 <<
-/D [1543 0 R /XYZ 99.895 716.092 null]
->>
-% 1546 0 obj
-<<
-/D [1543 0 R /XYZ 99.895 258.556 null]
->>
-% 1542 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1549 0 obj
-<<
-/Type /Page
-/Contents 1550 0 R
-/Resources 1548 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1547 0 R ]
->>
-% 1547 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 494.069 409.811 506.129]
-/A << /S /GoTo /D (descdata) >>
->>
-% 1551 0 obj
-<<
-/D [1549 0 R /XYZ 149.705 753.953 null]
+/D [1557 0 R /XYZ 99.895 716.092 null]
 >>
-% 392 0 obj
-<<
-/D [1549 0 R /XYZ 150.705 716.092 null]
->>
-% 1552 0 obj
+% 1560 0 obj
 <<
-/D [1549 0 R /XYZ 150.705 382.093 null]
+/D [1557 0 R /XYZ 99.895 258.556 null]
 >>
-% 1548 0 obj
+% 1556 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1555 0 obj
+% 1563 0 obj
 <<
 /Type /Page
-/Contents 1556 0 R
-/Resources 1554 0 R
+/Contents 1564 0 R
+/Resources 1562 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1553 0 R ]
->>
-% 1553 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 494.069 359.001 506.129]
-/A << /S /GoTo /D (descdata) >>
->>
-% 1557 0 obj
-<<
-/D [1555 0 R /XYZ 98.895 753.953 null]
->>
-% 396 0 obj
-<<
-/D [1555 0 R /XYZ 99.895 716.092 null]
->>
-% 1558 0 obj
-<<
-/D [1555 0 R /XYZ 99.895 258.556 null]
->>
-% 1554 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
+/Parent 1537 0 R
+/Annots [ 1561 0 R ]
 >>
 % 1561 0 obj
 <<
-/Type /Page
-/Contents 1562 0 R
-/Resources 1560 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1559 0 R ]
->>
-% 1559 0 obj
-<<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 573.77 409.811 585.83]
+/Rect [342.753 494.069 409.811 506.129]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1563 0 obj
+% 1565 0 obj
 <<
-/D [1561 0 R /XYZ 149.705 753.953 null]
+/D [1563 0 R /XYZ 149.705 753.953 null]
 >>
 
 endstream
 endobj
-1570 0 obj
+1571 0 obj
 <<
-/Length 3458      
+/Length 4785      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.24)-1000(psb)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(6.22)-1000(psb)]TJ
 ET
 q
 1 0 0 1 153.407 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(get)]TJ
+/F51 11.9552 Tf 156.993 706.129 Td [(local)]TJ
 ET
 q
-1 0 0 1 174.316 706.328 cm
+1 0 0 1 183.605 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 177.903 706.129 Td [(overlap)-250(\227)-250(Extract)-250(list)-250(of)-250(overlap)-250(elements)]TJ
+/F51 11.9552 Tf 187.192 706.129 Td [(index)-250(\227)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -78.008 -18.964 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ
+/F59 9.9626 Tf -87.297 -18.964 Td [(call)-525(psb_local_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
 0 g 0 G
@@ -20075,48 +19985,59 @@ BT
 /F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(desc)]TJ
+ 0 -19.925 Td [(x)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.897 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(Integer)-250(indices.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in,)-250(inout)]TJ/F54 9.9626 Tf 38.735 0 Td [(.)]TJ -70.535 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(a)-250(rank)-250(one)-250(integer)-250(array)111(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ
+ET
+q
+1 0 0 1 120.408 545.895 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 123.397 545.696 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 577.775 cm
+1 0 0 1 309.258 498.074 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 577.576 Td [(desc)]TJ
+/F59 9.9626 Tf 312.397 497.875 Td [(desc)]TJ
 ET
 q
-1 0 0 1 333.945 577.775 cm
+1 0 0 1 333.945 498.074 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 337.084 497.875 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -258.11 -19.925 Td [(iact)]TJ
 0 g 0 G
+/F54 9.9626 Tf 21.021 0 Td [(speci\002es)-250(action)-250(to)-250(be)-250(taken)-250(in)-250(case)-250(of)-250(range)-250(err)18(ors.)-310(Scope:)]TJ/F51 9.9626 Tf 253.796 0 Td [(global)]TJ/F54 9.9626 Tf -249.91 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(character)-190(variable)]TJ/F59 9.9626 Tf 143.341 0 Td [(I)]TJ/F54 9.9626 Tf 5.23 0 Td [(gnor)18(e,)]TJ/F59 9.9626 Tf 29.808 0 Td [(W)]TJ/F54 9.9626 Tf 5.231 0 Td [(arning)-190(or)]TJ/F59 9.9626 Tf 42.111 0 Td [(A)]TJ/F54 9.9626 Tf 5.231 0 Td [(bort,)-202(default)]TJ/F59 9.9626 Tf 55.839 0 Td [(I)]TJ/F54 9.9626 Tf 5.231 0 Td [(gnor)18(e.)]TJ
 0 g 0 G
- 0 -19.925 Td [(ovrel)]TJ
+/F51 9.9626 Tf -316.929 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 28.234 0 Td [(The)-250(list)-250(of)-250(overlap)-250(elements)-250(on)-250(the)-250(calling)-250(pr)18(ocess,)-250(in)-250(local)-250(numbering.)]TJ -3.327 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(array)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -31.88 Td [(info)]TJ
+ 0 -19.925 Td [(y)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 10.521 0 Td [(A)-270(logical)-270(mask)-270(which)-271(is)-270(tr)8(ue)-270(for)-270(all)-270(corr)18(esponding)-270(entries)-270(of)]TJ/F52 9.9626 Tf 268.484 0 Td [(x)]TJ/F54 9.9626 Tf 7.897 0 Td [(that)-270(ar)18(e)-270(local)]TJ -261.995 -11.955 Td [(to)-250(the)-250(curr)18(ent)-250(pr)18(ocess)-250(Scope:)]TJ/F51 9.9626 Tf 128.666 0 Td [(local)]TJ/F54 9.9626 Tf -128.666 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(rank)-250(one)-250(logical)-250(array)111(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
 0 g 0 G
- [-500(If)-287(ther)18(e)-287(ar)18(e)-287(no)-287(overlap)-287(elements)-287(the)-287(output)-287(vector)-287(is)-287(set)-287(to)-287(the)-287(\223not)-287(allo-)]TJ 12.453 -11.955 Td [(cated\224)-250(state.)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ
 0 g 0 G
- -12.453 -19.926 Td [(2.)]TJ
+/F54 9.9626 Tf 12.454 -19.926 Td [(1.)]TJ
 0 g 0 G
- [-500(Otherwise)-194(the)-194(size)-195(of)]TJ/F59 9.9626 Tf 105.434 0 Td [(ovrel)]TJ/F54 9.9626 Tf 28.087 0 Td [(will)-194(be)-194(exactly)-195(equal)-194(to)-194(the)-194(number)-195(of)-194(overlap)]TJ -121.068 -11.955 Td [(elements.)]TJ
+ [-500(This)-264(r)18(outine)-265(r)18(eturns)-264(a)]TJ/F59 9.9626 Tf 110.663 0 Td [(.true.)]TJ/F54 9.9626 Tf 34.017 0 Td [(value)-264(for)-265(those)-264(indices)-265(that)-264(ar)18(e)-265(local)-264(to)-265(the)]TJ -132.227 -11.955 Td [(curr)18(ent)-250(pr)18(ocess,)-250(including)-250(the)-250(halo)-250(indices.)]TJ
 0 g 0 G
- 139.477 -220.139 Td [(103)]TJ
+ 139.477 -140.438 Td [(103)]TJ
 0 g 0 G
 ET
 
@@ -20124,75 +20045,237 @@ endstream
 endobj
 1578 0 obj
 <<
-/Length 5480      
+/Length 3647      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.25)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(6.23)-1000(psb)]TJ
 ET
 q
 1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 207.803 706.129 Td [(sp)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(get)]TJ
 ET
 q
-1 0 0 1 221.133 706.328 cm
+1 0 0 1 225.126 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 224.719 706.129 Td [(getrow)-250(\227)-250(Extract)-250(row\050s\051)-250(from)-250(a)-250(sparse)-250(matrix)]TJ
+/F51 11.9552 Tf 228.712 706.129 Td [(boundary)-250(\227)-250(Extract)-250(list)-250(of)-250(boundary)-250(elements)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -74.014 -19.204 Td [(call)-525(psb_sp_getrow\050row,)-525(a,)-525(nz,)-525(ia,)-525(ja,)-525(val,)-525(info,)-525(&)]TJ 73.225 -11.955 Td [(&)-525(append,)-525(nzin,)-525(lrw\051)]TJ
+/F59 9.9626 Tf -78.007 -18.964 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf -73.225 -22.29 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -20.42 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -20.421 Td [(row)]TJ
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
-/F54 9.9626 Tf 22.695 0 Td [(The)-250(\050\002rst\051)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 2.212 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.322 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -140.191 -20.42 Td [(a)]TJ
+ 0 -19.925 Td [(desc)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(fr)18(om)-250(which)-250(to)-250(get)-250(r)18(ows.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 24.896 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 495.976 cm
+1 0 0 1 360.068 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 495.777 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 363.206 577.576 Td [(desc)]TJ
 ET
 q
-1 0 0 1 395.216 495.976 cm
+1 0 0 1 384.755 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 398.354 495.777 Td [(type)]TJ
+/F59 9.9626 Tf 387.893 577.576 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.57 -20.421 Td [(append)]TJ
+/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 39.292 0 Td [(Whether)-250(to)-250(append)-250(or)-250(overwrite)-250(existing)-250(output.)]TJ -14.386 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value)-250(default:)-310(false)-250(\050overwrite\051.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -20.421 Td [(nzin)]TJ
+ 0 -19.925 Td [(bndel)]TJ
 0 g 0 G
-/F54 9.9626 Tf 25.454 0 Td [(Input)-250(size)-250(to)-250(be)-250(appended)-250(to.)]TJ -0.548 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-304(as:)-417(an)-303(integer)]TJ/F61 10.3811 Tf 106.988 0 Td [(>)]TJ/F54 9.9626 Tf 11.949 0 Td [(0.)-471(When)-303(append)-303(is)-304(tr)8(ue,)-317(speci\002es)-303(how)-304(many)]TJ -118.937 -11.955 Td [(entries)-250(in)-250(the)-250(output)-250(vectors)-250(ar)18(e)-250(alr)18(eady)-250(\002lled.)]TJ
+/F54 9.9626 Tf 31.541 0 Td [(The)-307(list)-307(of)-307(boundary)-307(elements)-307(on)-306(the)-307(calling)-307(pr)18(ocess,)-321(in)-307(local)-307(number)18(-)]TJ -6.635 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(a)-1(r)1(ray)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -20.421 Td [(lrw)]TJ
+/F51 9.9626 Tf -24.906 -31.881 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(The)-250(last)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.323 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0,)-250(default:)]TJ/F52 9.9626 Tf 46.878 0 Td [(r)-17(o)-35(w)]TJ/F54 9.9626 Tf 16.134 0 Td [(.)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(If)-219(ther)18(e)-220(ar)18(e)-219(no)-220(boundary)-219(elements)-219(\050i.e.,)-226(if)-219(the)-220(local)-219(part)-219(of)-220(the)-219(connectivity)]TJ 12.453 -11.956 Td [(graph)-391(is)-392(self-contained\051)-391(the)-392(output)-391(vector)-391(is)-392(set)-391(to)-391(the)-392(\223not)-391(allocated\224)]TJ 0 -11.955 Td [(state.)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(2.)]TJ
+0 g 0 G
+ [-500(Otherwise)-206(the)-205(size)-206(of)]TJ/F59 9.9626 Tf 105.891 0 Td [(bndel)]TJ/F54 9.9626 Tf 28.201 0 Td [(will)-206(be)-205(exactly)-206(equal)-206(to)-206(the)-205(number)-206(of)-206(bound-)]TJ -121.639 -11.955 Td [(ary)-250(elements.)]TJ
+0 g 0 G
+ 139.477 -196.229 Td [(104)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1585 0 obj
+<<
+/Length 3458      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(6.24)-1000(psb)]TJ
+ET
+q
+1 0 0 1 153.407 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 156.993 706.129 Td [(get)]TJ
+ET
+q
+1 0 0 1 174.316 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 177.903 706.129 Td [(overlap)-250(\227)-250(Extract)-250(list)-250(of)-250(overlap)-250(elements)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -78.008 -18.964 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(desc)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.897 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 309.258 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 312.397 577.576 Td [(desc)]TJ
+ET
+q
+1 0 0 1 333.945 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 337.084 577.576 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(ovrel)]TJ
+0 g 0 G
+/F54 9.9626 Tf 28.234 0 Td [(The)-250(list)-250(of)-250(overlap)-250(elements)-250(on)-250(the)-250(calling)-250(pr)18(ocess,)-250(in)-250(local)-250(numbering.)]TJ -3.327 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(array)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -31.88 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(If)-287(ther)18(e)-287(ar)18(e)-287(no)-287(overlap)-287(elements)-287(the)-287(output)-287(vector)-287(is)-287(set)-287(to)-287(the)-287(\223not)-287(allo-)]TJ 12.453 -11.955 Td [(cated\224)-250(state.)]TJ
+0 g 0 G
+ -12.453 -19.926 Td [(2.)]TJ
+0 g 0 G
+ [-500(Otherwise)-194(the)-194(size)-195(of)]TJ/F59 9.9626 Tf 105.434 0 Td [(ovrel)]TJ/F54 9.9626 Tf 28.087 0 Td [(will)-194(be)-194(exactly)-195(equal)-194(to)-194(the)-194(number)-195(of)-194(overlap)]TJ -121.068 -11.955 Td [(elements.)]TJ
+0 g 0 G
+ 139.477 -220.139 Td [(105)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1592 0 obj
+<<
+/Length 5480      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(6.25)-1000(psb)]TJ
+ET
+q
+1 0 0 1 204.216 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 207.803 706.129 Td [(sp)]TJ
+ET
+q
+1 0 0 1 221.133 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 224.719 706.129 Td [(getrow)-250(\227)-250(Extract)-250(row\050s\051)-250(from)-250(a)-250(sparse)-250(matrix)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -74.014 -19.204 Td [(call)-525(psb_sp_getrow\050row,)-525(a,)-525(nz,)-525(ia,)-525(ja,)-525(val,)-525(info,)-525(&)]TJ 73.225 -11.955 Td [(&)-525(append,)-525(nzin,)-525(lrw\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf -73.225 -22.29 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -20.42 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.421 Td [(row)]TJ
+0 g 0 G
+/F54 9.9626 Tf 22.695 0 Td [(The)-250(\050\002rst\051)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 2.212 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.322 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -140.191 -20.42 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(fr)18(om)-250(which)-250(to)-250(get)-250(r)18(ows.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 495.976 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 495.777 Td [(Tspmat)]TJ
+ET
+q
+1 0 0 1 395.216 495.976 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 398.354 495.777 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -268.57 -20.421 Td [(append)]TJ
+0 g 0 G
+/F54 9.9626 Tf 39.292 0 Td [(Whether)-250(to)-250(append)-250(or)-250(overwrite)-250(existing)-250(output.)]TJ -14.386 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value)-250(default:)-310(false)-250(\050overwrite\051.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.421 Td [(nzin)]TJ
+0 g 0 G
+/F54 9.9626 Tf 25.454 0 Td [(Input)-250(size)-250(to)-250(be)-250(appended)-250(to.)]TJ -0.548 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-304(as:)-417(an)-303(integer)]TJ/F61 10.3811 Tf 106.988 0 Td [(>)]TJ/F54 9.9626 Tf 11.949 0 Td [(0.)-471(When)-303(append)-303(is)-304(tr)8(ue,)-317(speci\002es)-303(how)-304(many)]TJ -118.937 -11.955 Td [(entries)-250(in)-250(the)-250(output)-250(vectors)-250(ar)18(e)-250(alr)18(eady)-250(\002lled.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.421 Td [(lrw)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(The)-250(last)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.323 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0,)-250(default:)]TJ/F52 9.9626 Tf 46.878 0 Td [(r)-17(o)-35(w)]TJ/F54 9.9626 Tf 16.134 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -203.203 -22.29 Td [(On)-250(Return)]TJ
 0 g 0 G
@@ -20205,13 +20288,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 13.28 0 Td [(the)-250(r)18(ow)-250(indices.)]TJ 11.626 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(with)-250(the)]TJ/F59 9.9626 Tf 169.114 0 Td [(ALLOCATABLE)]TJ/F54 9.9626 Tf 60.025 0 Td [(attribute.)]TJ
 0 g 0 G
- -89.662 -29.887 Td [(104)]TJ
+ -89.662 -29.887 Td [(106)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1582 0 obj
+1596 0 obj
 <<
 /Length 3529      
 >>
@@ -20244,13 +20327,13 @@ BT
 0 g 0 G
  [-500(The)-218(r)18(ow)-218(and)-219(column)-218(indices)-218(ar)18(e)-218(r)18(eturned)-218(in)-219(the)-218(local)-218(numbering)-218(scheme;)]TJ 12.453 -11.955 Td [(if)-190(the)-190(global)-190(numbering)-190(is)-190(desir)18(ed,)-202(the)-190(user)-190(may)-190(employ)-190(the)]TJ/F59 9.9626 Tf 258.836 0 Td [(psb_loc_to_glob)]TJ/F54 9.9626 Tf -258.836 -11.955 Td [(r)18(outine)-250(on)-250(the)-250(output.)]TJ
 0 g 0 G
- 139.477 -290.909 Td [(105)]TJ
+ 139.477 -290.909 Td [(107)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1592 0 obj
+1606 0 obj
 <<
 /Length 3995      
 >>
@@ -20357,13 +20440,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.776 0 Td [(The)-322(memory)-322(occupation)-322(of)-323(the)-322(object)-322(speci\002ed)-322(in)-322(the)-322(calling)]TJ -47.87 -11.956 Td [(sequence,)-250(in)-250(bytes.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(Returned)-250(as:)-310(an)]TJ/F59 9.9626 Tf 71.82 0 Td [(integer\050psb_long_int_k_\051)]TJ/F54 9.9626 Tf 128.019 0 Td [(number)74(.)]TJ
 0 g 0 G
- -60.362 -242.057 Td [(106)]TJ
+ -60.362 -242.057 Td [(108)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1596 0 obj
+1610 0 obj
 <<
 /Length 5626      
 >>
@@ -20439,13 +20522,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 13.281 0 Td [(A)-250(vector)-250(of)-250(indices.)]TJ 11.626 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-238(integer)-237(array)-238(of)-237(rank)-238(1,)-240(whose)-238(entries)-237(ar)18(e)-238(moved)-237(to)-238(the)-238(same)-237(position)]TJ 0 -11.955 Td [(as)-250(the)-250(corr)18(esponding)-250(entries)-250(in)]TJ/F52 9.9626 Tf 138.215 0 Td [(x)]TJ/F54 9.9626 Tf 5.205 0 Td [(.)]TJ
 0 g 0 G
- -3.943 -44.517 Td [(107)]TJ
+ -3.943 -44.517 Td [(109)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1600 0 obj
+1615 0 obj
 <<
 /Length 7300      
 >>
@@ -20547,13 +20630,13 @@ BT
 0 g 0 G
  [-500(The)-244(mer)18(ge-sort)-244(algorithm)-243(is)-244(implemented)-244(to)-244(take)-244(advantage)-243(of)-244(sub-)]TJ 16.04 -11.955 Td [(sequences)-314(that)-313(may)-314(be)-314(alr)18(eady)-314(in)-313(the)-314(desir)18(ed)-314(or)18(dering)-314(prior)-313(to)-314(the)]TJ 0 -11.956 Td [(subr)18(outine)-390(call;)-459(this)-390(situation)-389(is)-390(r)18(elatively)-390(common)-389(when)-390(dealing)]TJ 0 -11.955 Td [(with)-335(gr)18(oups)-335(of)-335(indices)-335(of)-335(sparse)-336(matrix)-335(entries,)-356(thus)-335(mer)18(ge-sort)-335(is)]TJ 0 -11.955 Td [(the)-319(pr)18(eferr)18(ed)-318(choice)-319(when)-319(a)-318(sorting)-319(is)-319(needed)-318(by)-319(other)-319(r)18(outi)1(nes)-319(in)]TJ 0 -11.955 Td [(the)-250(library)111(.)]TJ
 0 g 0 G
- 117.559 -193.275 Td [(108)]TJ
+ 117.559 -193.275 Td [(110)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1613 0 obj
+1628 0 obj
 <<
 /Length 171       
 >>
@@ -20563,13 +20646,13 @@ stream
 BT
 /F51 14.3462 Tf 99.895 705.784 Td [(7)-1000(Parallel)-250(environment)-250(routines)]TJ
 0 g 0 G
-/F54 9.9626 Tf 164.384 -615.346 Td [(109)]TJ
+/F54 9.9626 Tf 164.384 -615.346 Td [(111)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1618 0 obj
+1632 0 obj
 <<
 /Length 5510      
 >>
@@ -20637,13 +20720,13 @@ BT
 0 g 0 G
  [-500(It)-194(is)-195(an)-194(err)18(or)-194(to)-194(specify)-195(a)-194(value)-194(for)]TJ/F52 9.9626 Tf 158.156 0 Td [(n)-80(p)]TJ/F54 9.9626 Tf 13.378 0 Td [(gr)18(eater)-194(than)-195(the)-194(number)-194(of)-194(pr)18(ocesses)]TJ -159.081 -11.955 Td [(available)-250(in)-250(the)-250(underlying)-250(base)-250(parallel)-250(envir)18(onment.)]TJ
 0 g 0 G
- 139.477 -84.647 Td [(110)]TJ
+ 139.477 -84.647 Td [(112)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1624 0 obj
+1638 0 obj
 <<
 /Length 4457      
 >>
@@ -20693,13 +20776,13 @@ BT
 0 g 0 G
  [-500(If)-349(the)-349(user)-350(has)-349(r)18(equested)-349(on)]TJ/F59 9.9626 Tf 142.217 0 Td [(psb_init)]TJ/F54 9.9626 Tf 45.321 0 Td [(a)-349(number)-349(of)-350(pr)18(ocesses)-349(less)-349(than)]TJ -175.085 -11.956 Td [(the)-321(total)-322(available)-321(in)-321(the)-322(parallel)-321(execution)-322(envir)18(onment,)-339(the)-321(r)18(emaining)]TJ 0 -11.955 Td [(pr)18(ocesses)-229(will)-228(have)-229(on)-229(r)18(eturn)]TJ/F52 9.9626 Tf 130.21 0 Td [(i)-47(a)-25(m)]TJ/F85 10.3811 Tf 18.678 0 Td [(=)]TJ/F83 10.3811 Tf 11.086 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1;)-236(the)-229(on)1(ly)-229(call)-229(involving)]TJ/F59 9.9626 Tf 110.162 0 Td [(ctxt)]TJ/F54 9.9626 Tf 23.2 0 Td [(that)]TJ -301.53 -11.955 Td [(any)-250(such)-250(pr)18(ocess)-250(may)-250(execute)-250(is)-250(to)]TJ/F59 9.9626 Tf 155.296 0 Td [(psb_exit)]TJ/F54 9.9626 Tf 41.843 0 Td [(.)]TJ
 0 g 0 G
- -57.662 -174.311 Td [(111)]TJ
+ -57.662 -174.311 Td [(113)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1630 0 obj
+1644 0 obj
 <<
 /Length 4180      
 >>
@@ -20746,13 +20829,13 @@ BT
 0 g 0 G
  [-500(If)-289(the)-288(user)-288(whishes)-289(to)-288(use)-289(multiple)-288(communication)-289(contexts)-288(in)-289(the)-288(same)]TJ 12.454 -11.955 Td [(pr)18(ogram,)-401(or)-371(to)-371(enter)-371(and)-371(exit)-371(multiple)-371(times)-370(into)-371(the)-371(parallel)-371(envir)18(on-)]TJ 0 -11.956 Td [(ment,)-425(this)-389(r)18(outine)-390(may)-390(be)-390(called)-389(to)-390(selectively)-390(close)-390(the)-389(contexts)-390(with)]TJ/F59 9.9626 Tf 0 -11.955 Td [(close=.false.)]TJ/F54 9.9626 Tf 67.994 0 Td [(,)-202(while)-190(on)-190(the)-190(last)-190(call)-190(it)-190(should)-190(be)-190(called)-190(with)]TJ/F59 9.9626 Tf 196.919 0 Td [(close=.true.)]TJ/F54 9.9626 Tf -264.913 -11.955 Td [(to)-250(shutdown)-250(in)-250(a)-250(clean)-250(way)-250(the)-250(entir)18(e)-250(parallel)-250(envir)18(onment.)]TJ
 0 g 0 G
- 139.477 -212.169 Td [(112)]TJ
+ 139.477 -212.169 Td [(114)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1637 0 obj
+1651 0 obj
 <<
 /Length 2476      
 >>
@@ -20804,13 +20887,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.777 0 Td [(The)-372(MPI)-371(communicator)-372(associated)-371(with)-372(the)-372(PSBLAS)-371(virtual)]TJ -47.87 -11.955 Td [(parallel)-250(machine.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ/F51 11.9552 Tf -71.651 -33.873 Td [(Notes)]TJ/F54 9.9626 Tf 34.165 0 Td [(The)-230(subr)18(outine)-230(version)]TJ/F59 9.9626 Tf 103.913 0 Td [(psb_get_mpicomm)]TJ/F54 9.9626 Tf 80.748 0 Td [(is)-230(still)-230(available)-230(but)-230(is)-230(depr)18(e-)]TJ -218.826 -11.955 Td [(cated.)]TJ
 0 g 0 G
- 164.384 -319.766 Td [(113)]TJ
+ 164.384 -319.766 Td [(115)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1641 0 obj
+1656 0 obj
 <<
 /Length 3337      
 >>
@@ -20866,13 +20949,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.777 0 Td [(The)-250(MPI)-250(rank)-250(associated)-250(with)-250(the)-250(PSBLAS)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 224.291 0 Td [(i)-32(d)]TJ/F54 9.9626 Tf 8.195 0 Td [(.)]TJ -280.356 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ/F51 11.9552 Tf -71.651 -33.873 Td [(Notes)]TJ/F54 9.9626 Tf 35.734 0 Td [(The)-388(subr)18(outine)-387(version)]TJ/F59 9.9626 Tf 108.62 0 Td [(psb_get_rank)]TJ/F54 9.9626 Tf 66.626 0 Td [(is)-388(still)-387(available)-388(but)-387(is)-388(depr)18(e-)]TJ -210.98 -11.955 Td [(cated.)]TJ
 0 g 0 G
- 164.384 -275.93 Td [(114)]TJ
+ 164.384 -275.93 Td [(116)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1645 0 obj
+1660 0 obj
 <<
 /Length 1155      
 >>
@@ -20903,13 +20986,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.777 0 Td [(the)-250(elapsed)-250(time)-250(in)-250(seconds.)]TJ -47.87 -11.955 Td [(Returned)-250(as:)-310(a)]TJ/F59 9.9626 Tf 66.022 0 Td [(real\050psb_dpk_\051)]TJ/F54 9.9626 Tf 75.715 0 Td [(variable.)]TJ
 0 g 0 G
- -2.26 -491.123 Td [(115)]TJ
+ -2.26 -491.123 Td [(117)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1650 0 obj
+1664 0 obj
 <<
 /Length 1388      
 >>
@@ -20940,13 +21023,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
- 139.477 -455.258 Td [(116)]TJ
+ 139.477 -455.258 Td [(118)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1654 0 obj
+1668 0 obj
 <<
 /Length 1283      
 >>
@@ -20977,296 +21060,75 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
- 139.477 -467.213 Td [(117)]TJ
+ 139.477 -467.213 Td [(119)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1658 0 obj
+1567 0 obj
 <<
-/Length 5526      
+/Type /ObjStm
+/N 100
+/First 970
+/Length 9451      
 >>
 stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(7.9)-1000(psb)]TJ
-ET
-q
-1 0 0 1 198.238 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 201.825 706.129 Td [(bcast)-250(\227)-250(Broadcast)-250(data)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -51.12 -20.269 Td [(call)-525(psb_bcast\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -24.611 Td [(This)-221(subr)18(outine)-222(implements)-221(a)-221(br)18(oadcast)-222(operation)-221(based)-221(on)-222(the)-221(underlying)]TJ -14.944 -11.955 Td [(communication)-250(library)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.945 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -22.619 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -22.619 Td [(ctxt)]TJ
-0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -22.619 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(On)-250(the)-250(r)18(oot)-250(pr)18(ocess,)-250(the)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-344(a)-344(rank)-344(1)-344(or)-344(2)-344(array)111(,)-367(or)-344(a)-344(character)-344(or)-344(logical)-344(variable,)-367(which)-344(may)-344(be)]TJ 0 -11.955 Td [(a)-377(scalar)-377(or)-377(rank)-377(1)-377(array)111(.)-1067(T)90(ype,)-409(kind,)-409(rank)-377(and)-376(size)-377(must)-377(agr)18(ee)-377(on)-377(all)]TJ 0 -11.955 Td [(pr)18(ocesses.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -22.619 Td [(root)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Root)-250(pr)18(ocess)-250(holding)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 10.986 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.132 0 Td [(1,)-250(default)-250(0)]TJ
-0 g 0 G
-/F51 9.9626 Tf -246.025 -22.618 Td [(mode)]TJ
-0 g 0 G
-/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.955 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.956 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -34.573 Td [(request)]TJ
-0 g 0 G
-/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
-/F54 9.9626 Tf 164.384 -29.887 Td [(118)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1662 0 obj
+392 0 1566 58 1562 117 1570 224 1568 363 1572 510 396 568 1573 625 1569 683 1577 790
+1575 929 1579 1074 400 1133 1580 1191 1581 1250 1576 1309 1584 1403 1582 1542 1586 1687 405 1745
+1587 1802 1588 1860 1583 1918 1591 2012 1589 2151 1593 2296 409 2355 1590 2413 1595 2534 1597 2652
+1598 2710 1599 2768 1600 2826 1594 2884 1605 3004 1601 3161 1602 3306 1603 3453 1607 3600 413 3659
+1604 3717 1609 3824 1611 3942 417 4000 1608 4057 1614 4164 1616 4282 1617 4341 1618 4400 1619 4459
+1620 4518 1621 4577 1622 4636 1623 4695 1624 4754 1625 4813 1613 4872 1627 4992 1629 5110 421 5168
+1626 5225 1631 5306 1633 5424 425 5483 1634 5541 1635 5600 1630 5659 1637 5792 1639 5910 429 5968
+1640 6025 1641 6082 1636 6138 1643 6271 1645 6389 433 6448 1646 6506 1647 6565 1648 6624 1642 6683
+1650 6816 1652 6934 437 6992 1649 7049 1655 7143 1657 7261 441 7320 1654 7378 1659 7498 1661 7616
+445 7674 1658 7731 1663 7825 1665 7943 449 8002 1662 8060 1667 8154 1669 8272 453 8330 1666 8387
+% 392 0 obj
 <<
-/Length 4820      
+/D [1563 0 R /XYZ 150.705 716.092 null]
 >>
-stream
-0 g 0 G
-0 g 0 G
-0 g 0 G
-BT
-/F51 9.9626 Tf 99.895 706.129 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(On)-250(all)-250(pr)18(ocesses)-250(other)-250(than)-250(r)18(oot,)-250(the)-250(br)18(oadcasted)-250(data.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-315(a)-314(rank)-315(1)-315(or)-314(2)-315(array)111(,)-331(or)-314(a)-315(character)-315(or)-314(logical)-315(scalar)74(.)-819(T)90(ype,)-330(kind,)-331(rank)]TJ 0 -11.955 Td [(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
-0 g 0 G
-/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
-0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
-0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.956 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
-0 g 0 G
- -12.453 -19.925 Td [(2.)]TJ
-0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-ET
-q
-1 0 0 1 124.802 417.212 cm
-0 0 318.804 27.895 re f
-Q
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
-BT
-/F94 8.9664 Tf 137.205 434.448 Td [(call)]TJ
-0 g 0 G
- [-525(psb_bcast\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(=)]TJ
-0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- [(ior)]TJ
-0 g 0 G
- [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-0 g 0 G
-0 g 0 G
-/F54 9.9626 Tf -48.393 -32.18 Td [(3.)]TJ
-0 g 0 G
- [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-ET
-q
-1 0 0 1 124.802 306.627 cm
-0 0 318.804 60.772 re f
-Q
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
-BT
-/F94 8.9664 Tf 137.205 356.739 Td [(call)]TJ
-0 g 0 G
- [-525(psb_bcast\050ctxt,dat,mode)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(=)]TJ
-0 g 0 G
- [(psb_collective_start_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(=)]TJ
-0 g 0 G
- [(bcast_request\051)]TJ -23.537 -10.959 Td [(.......)]TJ
-0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
-/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
-0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
-/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
-0 g 0 G
- [-525(psb_bcast\050ctxt,dat,mode)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(=)]TJ
-0 g 0 G
- [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(=)]TJ
-0 g 0 G
- [(bcast_request\051)]TJ
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
-0 g 0 G
-0 g 0 G
-/F54 9.9626 Tf 103.537 -222.465 Td [(119)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1670 0 obj
-<<
-/Length 5829      
->>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(7.10)-1000(psb)]TJ
-ET
-q
-1 0 0 1 204.216 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 207.803 706.129 Td [(sum)-250(\227)-250(Global)-250(sum)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -57.098 -19.198 Td [(call)-525(psb_sum\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -22.401 Td [(This)-353(subr)18(outine)-353(implements)-354(a)-353(sum)-353(r)18(eduction)-353(operation)-353(based)-354(on)-353(the)-353(un-)]TJ -14.944 -11.955 Td [(derlying)-250(communication)-250(library)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -20.288 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -20.409 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -20.408 Td [(ctxt)]TJ
-0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -20.409 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(sum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -20.408 Td [(root)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-250(to)-250(hold)-250(the)-250(\002nal)-250(sum,)-250(or)]TJ/F83 10.3811 Tf 143.744 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-250(to)-250(make)-250(it)-250(available)-250(on)-250(all)-250(pr)18(ocesses.)]TJ -150.284 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -254.343 -20.409 Td [(mode)]TJ
-0 g 0 G
-/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.956 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.955 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -32.364 Td [(request)]TJ
-0 g 0 G
-/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.956 Td [(be)-250(pr)18(esent.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -22.401 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -20.408 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(sum)-250(operation.)]TJ 5.54 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.781 0 Td [(.)]TJ
-0 g 0 G
- 79.264 -29.887 Td [(120)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1566 0 obj
-<<
-/Type /ObjStm
-/N 100
-/First 970
-/Length 9361      
->>
-stream
-400 0 1564 58 1565 117 1560 176 1569 270 1567 409 1571 554 405 612 1572 669 1573 727
-1568 785 1577 879 1575 1018 1579 1163 409 1222 1576 1280 1581 1401 1583 1519 1584 1577 1585 1635
-1586 1693 1580 1751 1591 1871 1587 2028 1588 2173 1589 2320 1593 2467 413 2526 1590 2584 1595 2691
-1597 2809 417 2867 1594 2924 1599 3031 1601 3149 1602 3208 1603 3267 1604 3326 1605 3385 1606 3444
-1607 3503 1608 3562 1609 3621 1610 3680 1598 3739 1612 3859 1614 3977 421 4035 1611 4092 1617 4173
-1619 4291 425 4350 1620 4408 1621 4467 1616 4526 1623 4659 1625 4777 429 4835 1626 4892 1627 4949
-1622 5005 1629 5138 1631 5256 433 5315 1632 5373 1633 5432 1634 5491 1628 5550 1636 5683 1638 5801
-437 5859 1635 5916 1640 6010 1642 6128 441 6187 1639 6245 1644 6365 1646 6483 445 6541 1643 6598
-1649 6692 1651 6810 449 6869 1648 6927 1653 7021 1655 7139 453 7197 1652 7254 1657 7348 1659 7466
-457 7525 1656 7583 1661 7730 1663 7848 1664 7906 1665 7964 1666 8022 1660 8079 1669 8214 1671 8332
-% 400 0 obj
-<<
-/D [1561 0 R /XYZ 150.705 716.092 null]
->>
-% 1564 0 obj
-<<
-/D [1561 0 R /XYZ 150.705 358.183 null]
->>
-% 1565 0 obj
+% 1566 0 obj
 <<
-/D [1561 0 R /XYZ 150.705 314.403 null]
+/D [1563 0 R /XYZ 150.705 382.093 null]
 >>
-% 1560 0 obj
+% 1562 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1569 0 obj
+% 1570 0 obj
 <<
 /Type /Page
-/Contents 1570 0 R
-/Resources 1568 0 R
+/Contents 1571 0 R
+/Resources 1569 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
-/Annots [ 1567 0 R ]
+/Annots [ 1568 0 R ]
 >>
-% 1567 0 obj
+% 1568 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 573.77 359.001 585.83]
+/Rect [291.943 494.069 359.001 506.129]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1571 0 obj
-<<
-/D [1569 0 R /XYZ 98.895 753.953 null]
->>
-% 405 0 obj
+% 1572 0 obj
 <<
-/D [1569 0 R /XYZ 99.895 716.092 null]
+/D [1570 0 R /XYZ 98.895 753.953 null]
 >>
-% 1572 0 obj
+% 396 0 obj
 <<
-/D [1569 0 R /XYZ 99.895 370.138 null]
+/D [1570 0 R /XYZ 99.895 716.092 null]
 >>
 % 1573 0 obj
 <<
-/D [1569 0 R /XYZ 99.895 338.313 null]
+/D [1570 0 R /XYZ 99.895 258.556 null]
 >>
-% 1568 0 obj
+% 1569 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
 % 1577 0 obj
@@ -21283,49 +21145,66 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 491.971 420.271 504.031]
-/A << /S /GoTo /D (spdata) >>
+/Rect [342.753 573.77 409.811 585.83]
+/A << /S /GoTo /D (descdata) >>
 >>
 % 1579 0 obj
 <<
 /D [1577 0 R /XYZ 149.705 753.953 null]
 >>
-% 409 0 obj
+% 400 0 obj
 <<
 /D [1577 0 R /XYZ 150.705 716.092 null]
 >>
+% 1580 0 obj
+<<
+/D [1577 0 R /XYZ 150.705 358.183 null]
+>>
+% 1581 0 obj
+<<
+/D [1577 0 R /XYZ 150.705 314.403 null]
+>>
 % 1576 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F52 585 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1581 0 obj
+% 1584 0 obj
 <<
 /Type /Page
-/Contents 1582 0 R
-/Resources 1580 0 R
+/Contents 1585 0 R
+/Resources 1583 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
+/Annots [ 1582 0 R ]
 >>
-% 1583 0 obj
+% 1582 0 obj
 <<
-/D [1581 0 R /XYZ 98.895 753.953 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [291.943 573.77 359.001 585.83]
+/A << /S /GoTo /D (descdata) >>
 >>
-% 1584 0 obj
+% 1586 0 obj
 <<
-/D [1581 0 R /XYZ 99.895 496.698 null]
+/D [1584 0 R /XYZ 98.895 753.953 null]
 >>
-% 1585 0 obj
+% 405 0 obj
 <<
-/D [1581 0 R /XYZ 99.895 438.313 null]
+/D [1584 0 R /XYZ 99.895 716.092 null]
 >>
-% 1586 0 obj
+% 1587 0 obj
 <<
-/D [1581 0 R /XYZ 99.895 418.388 null]
+/D [1584 0 R /XYZ 99.895 370.138 null]
 >>
-% 1580 0 obj
+% 1588 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R >>
+/D [1584 0 R /XYZ 99.895 338.313 null]
+>>
+% 1583 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
 % 1591 0 obj
@@ -21335,43 +21214,27 @@ stream
 /Resources 1590 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
-/Annots [ 1587 0 R 1588 0 R 1589 0 R ]
->>
-% 1587 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 527.942 420.271 540.002]
-/A << /S /GoTo /D (spdata) >>
->>
-% 1588 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 460.196 409.811 472.256]
-/A << /S /GoTo /D (descdata) >>
+/Annots [ 1589 0 R ]
 >>
 % 1589 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [371.126 404.405 438.184 416.465]
-/A << /S /GoTo /D (precdata) >>
+/Rect [342.753 491.971 420.271 504.031]
+/A << /S /GoTo /D (spdata) >>
 >>
 % 1593 0 obj
 <<
 /D [1591 0 R /XYZ 149.705 753.953 null]
 >>
-% 413 0 obj
+% 409 0 obj
 <<
 /D [1591 0 R /XYZ 150.705 716.092 null]
 >>
 % 1590 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
 % 1595 0 obj
@@ -21386,351 +21249,577 @@ stream
 <<
 /D [1595 0 R /XYZ 98.895 753.953 null]
 >>
-% 417 0 obj
+% 1598 0 obj
+<<
+/D [1595 0 R /XYZ 99.895 496.698 null]
+>>
+% 1599 0 obj
+<<
+/D [1595 0 R /XYZ 99.895 438.313 null]
+>>
+% 1600 0 obj
 <<
-/D [1595 0 R /XYZ 99.895 716.092 null]
+/D [1595 0 R /XYZ 99.895 418.388 null]
 >>
 % 1594 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1599 0 obj
+% 1605 0 obj
 <<
 /Type /Page
-/Contents 1600 0 R
-/Resources 1598 0 R
+/Contents 1606 0 R
+/Resources 1604 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
+/Annots [ 1601 0 R 1602 0 R 1603 0 R ]
 >>
 % 1601 0 obj
 <<
-/D [1599 0 R /XYZ 149.705 753.953 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 527.942 420.271 540.002]
+/A << /S /GoTo /D (spdata) >>
 >>
 % 1602 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 701.929 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 460.196 409.811 472.256]
+/A << /S /GoTo /D (descdata) >>
 >>
 % 1603 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 668.729 null]
->>
-% 1604 0 obj
-<<
-/D [1599 0 R /XYZ 150.705 624.894 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [371.126 404.405 438.184 416.465]
+/A << /S /GoTo /D (precdata) >>
 >>
-% 1605 0 obj
+% 1607 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 555.872 null]
+/D [1605 0 R /XYZ 149.705 753.953 null]
 >>
-% 1606 0 obj
+% 413 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 500.082 null]
+/D [1605 0 R /XYZ 150.705 716.092 null]
 >>
-% 1607 0 obj
+% 1604 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 468.201 null]
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1608 0 obj
+% 1609 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 425.023 null]
+/Type /Page
+/Contents 1610 0 R
+/Resources 1608 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1612 0 R
 >>
-% 1609 0 obj
+% 1611 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 382.522 null]
+/D [1609 0 R /XYZ 98.895 753.953 null]
 >>
-% 1610 0 obj
+% 417 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 354.627 null]
+/D [1609 0 R /XYZ 99.895 716.092 null]
 >>
-% 1598 0 obj
+% 1608 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1612 0 obj
+% 1614 0 obj
 <<
 /Type /Page
-/Contents 1613 0 R
-/Resources 1611 0 R
+/Contents 1615 0 R
+/Resources 1613 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1614 0 obj
+% 1616 0 obj
 <<
-/D [1612 0 R /XYZ 98.895 753.953 null]
+/D [1614 0 R /XYZ 149.705 753.953 null]
+>>
+% 1617 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 701.929 null]
+>>
+% 1618 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 668.729 null]
+>>
+% 1619 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 624.894 null]
+>>
+% 1620 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 555.872 null]
+>>
+% 1621 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 500.082 null]
+>>
+% 1622 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 468.201 null]
+>>
+% 1623 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 425.023 null]
+>>
+% 1624 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 382.522 null]
+>>
+% 1625 0 obj
+<<
+/D [1614 0 R /XYZ 150.705 354.627 null]
+>>
+% 1613 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1627 0 obj
+<<
+/Type /Page
+/Contents 1628 0 R
+/Resources 1626 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1612 0 R
+>>
+% 1629 0 obj
+<<
+/D [1627 0 R /XYZ 98.895 753.953 null]
 >>
 % 421 0 obj
 <<
-/D [1612 0 R /XYZ 99.895 716.092 null]
+/D [1627 0 R /XYZ 99.895 716.092 null]
 >>
-% 1611 0 obj
+% 1626 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1617 0 obj
+% 1631 0 obj
 <<
 /Type /Page
-/Contents 1618 0 R
-/Resources 1616 0 R
+/Contents 1632 0 R
+/Resources 1630 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1619 0 obj
+% 1633 0 obj
 <<
-/D [1617 0 R /XYZ 149.705 753.953 null]
+/D [1631 0 R /XYZ 149.705 753.953 null]
 >>
 % 425 0 obj
 <<
-/D [1617 0 R /XYZ 150.705 716.092 null]
+/D [1631 0 R /XYZ 150.705 716.092 null]
 >>
-% 1620 0 obj
+% 1634 0 obj
 <<
-/D [1617 0 R /XYZ 150.705 222.691 null]
+/D [1631 0 R /XYZ 150.705 222.691 null]
 >>
-% 1621 0 obj
+% 1635 0 obj
 <<
-/D [1617 0 R /XYZ 150.705 200.171 null]
+/D [1631 0 R /XYZ 150.705 200.171 null]
 >>
-% 1616 0 obj
+% 1630 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1623 0 obj
+% 1637 0 obj
 <<
 /Type /Page
-/Contents 1624 0 R
-/Resources 1622 0 R
+/Contents 1638 0 R
+/Resources 1636 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1625 0 obj
+% 1639 0 obj
 <<
-/D [1623 0 R /XYZ 98.895 753.953 null]
+/D [1637 0 R /XYZ 98.895 753.953 null]
 >>
 % 429 0 obj
 <<
-/D [1623 0 R /XYZ 99.895 716.092 null]
+/D [1637 0 R /XYZ 99.895 716.092 null]
 >>
-% 1626 0 obj
+% 1640 0 obj
 <<
-/D [1623 0 R /XYZ 99.895 348.22 null]
+/D [1637 0 R /XYZ 99.895 348.22 null]
 >>
-% 1627 0 obj
+% 1641 0 obj
 <<
-/D [1623 0 R /XYZ 99.895 313.8 null]
+/D [1637 0 R /XYZ 99.895 313.8 null]
 >>
-% 1622 0 obj
+% 1636 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1629 0 obj
+% 1643 0 obj
 <<
 /Type /Page
-/Contents 1630 0 R
-/Resources 1628 0 R
+/Contents 1644 0 R
+/Resources 1642 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1631 0 obj
+% 1645 0 obj
 <<
-/D [1629 0 R /XYZ 149.705 753.953 null]
+/D [1643 0 R /XYZ 149.705 753.953 null]
 >>
 % 433 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 716.092 null]
+/D [1643 0 R /XYZ 150.705 716.092 null]
 >>
-% 1632 0 obj
+% 1646 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 441.869 null]
+/D [1643 0 R /XYZ 150.705 441.869 null]
 >>
-% 1633 0 obj
+% 1647 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 395.439 null]
+/D [1643 0 R /XYZ 150.705 395.439 null]
 >>
-% 1634 0 obj
+% 1648 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 363.559 null]
+/D [1643 0 R /XYZ 150.705 363.559 null]
 >>
-% 1628 0 obj
+% 1642 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1636 0 obj
+% 1650 0 obj
 <<
 /Type /Page
-/Contents 1637 0 R
-/Resources 1635 0 R
+/Contents 1651 0 R
+/Resources 1649 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1653 0 R
 >>
-% 1638 0 obj
+% 1652 0 obj
 <<
-/D [1636 0 R /XYZ 98.895 753.953 null]
+/D [1650 0 R /XYZ 98.895 753.953 null]
 >>
 % 437 0 obj
 <<
-/D [1636 0 R /XYZ 99.895 716.092 null]
+/D [1650 0 R /XYZ 99.895 716.092 null]
 >>
-% 1635 0 obj
+% 1649 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1640 0 obj
+% 1655 0 obj
 <<
 /Type /Page
-/Contents 1641 0 R
-/Resources 1639 0 R
+/Contents 1656 0 R
+/Resources 1654 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1653 0 R
 >>
-% 1642 0 obj
+% 1657 0 obj
 <<
-/D [1640 0 R /XYZ 149.705 753.953 null]
+/D [1655 0 R /XYZ 149.705 753.953 null]
 >>
 % 441 0 obj
 <<
-/D [1640 0 R /XYZ 150.705 716.092 null]
+/D [1655 0 R /XYZ 150.705 716.092 null]
 >>
-% 1639 0 obj
+% 1654 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1644 0 obj
+% 1659 0 obj
 <<
 /Type /Page
-/Contents 1645 0 R
-/Resources 1643 0 R
+/Contents 1660 0 R
+/Resources 1658 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
+/Parent 1653 0 R
 >>
-% 1646 0 obj
+% 1661 0 obj
 <<
-/D [1644 0 R /XYZ 98.895 753.953 null]
+/D [1659 0 R /XYZ 98.895 753.953 null]
 >>
 % 445 0 obj
 <<
-/D [1644 0 R /XYZ 99.895 716.092 null]
+/D [1659 0 R /XYZ 99.895 716.092 null]
 >>
-% 1643 0 obj
+% 1658 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1649 0 obj
+% 1663 0 obj
 <<
 /Type /Page
-/Contents 1650 0 R
-/Resources 1648 0 R
+/Contents 1664 0 R
+/Resources 1662 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
+/Parent 1653 0 R
 >>
-% 1651 0 obj
+% 1665 0 obj
 <<
-/D [1649 0 R /XYZ 149.705 753.953 null]
+/D [1663 0 R /XYZ 149.705 753.953 null]
 >>
 % 449 0 obj
 <<
-/D [1649 0 R /XYZ 150.705 716.092 null]
+/D [1663 0 R /XYZ 150.705 716.092 null]
 >>
-% 1648 0 obj
+% 1662 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1653 0 obj
+% 1667 0 obj
 <<
 /Type /Page
-/Contents 1654 0 R
-/Resources 1652 0 R
+/Contents 1668 0 R
+/Resources 1666 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
+/Parent 1653 0 R
 >>
-% 1655 0 obj
+% 1669 0 obj
 <<
-/D [1653 0 R /XYZ 98.895 753.953 null]
+/D [1667 0 R /XYZ 98.895 753.953 null]
 >>
 % 453 0 obj
 <<
-/D [1653 0 R /XYZ 99.895 716.092 null]
+/D [1667 0 R /XYZ 99.895 716.092 null]
 >>
-% 1652 0 obj
+% 1666 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1657 0 obj
-<<
-/Type /Page
-/Contents 1658 0 R
-/Resources 1656 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
->>
-% 1659 0 obj
-<<
-/D [1657 0 R /XYZ 149.705 753.953 null]
->>
-% 457 0 obj
-<<
-/D [1657 0 R /XYZ 150.705 716.092 null]
->>
-% 1656 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1661 0 obj
-<<
-/Type /Page
-/Contents 1662 0 R
-/Resources 1660 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
->>
-% 1663 0 obj
-<<
-/D [1661 0 R /XYZ 98.895 753.953 null]
->>
-% 1664 0 obj
-<<
-/D [1661 0 R /XYZ 99.895 528.579 null]
->>
-% 1665 0 obj
-<<
-/D [1661 0 R /XYZ 99.895 494.104 null]
->>
-% 1666 0 obj
-<<
-/D [1661 0 R /XYZ 99.895 407.25 null]
->>
-% 1660 0 obj
+
+endstream
+endobj
+1672 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1667 0 R >>
-/ProcSet [ /PDF /Text ]
+/Length 5526      
 >>
-% 1669 0 obj
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(7.9)-1000(psb)]TJ
+ET
+q
+1 0 0 1 198.238 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 201.825 706.129 Td [(bcast)-250(\227)-250(Broadcast)-250(data)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -51.12 -20.269 Td [(call)-525(psb_bcast\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -24.611 Td [(This)-221(subr)18(outine)-222(implements)-221(a)-221(br)18(oadcast)-222(operation)-221(based)-221(on)-222(the)-221(underlying)]TJ -14.944 -11.955 Td [(communication)-250(library)111(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -21.945 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -22.619 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -22.619 Td [(ctxt)]TJ
+0 g 0 G
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -22.619 Td [(dat)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.367 0 Td [(On)-250(the)-250(r)18(oot)-250(pr)18(ocess,)-250(the)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-344(a)-344(rank)-344(1)-344(or)-344(2)-344(array)111(,)-367(or)-344(a)-344(character)-344(or)-344(logical)-344(variable,)-367(which)-344(may)-344(be)]TJ 0 -11.955 Td [(a)-377(scalar)-377(or)-377(rank)-377(1)-377(array)111(.)-1067(T)90(ype,)-409(kind,)-409(rank)-377(and)-376(size)-377(must)-377(agr)18(ee)-377(on)-377(all)]TJ 0 -11.955 Td [(pr)18(ocesses.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -22.619 Td [(root)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.253 0 Td [(Root)-250(pr)18(ocess)-250(holding)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 10.986 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.132 0 Td [(1,)-250(default)-250(0)]TJ
+0 g 0 G
+/F51 9.9626 Tf -246.025 -22.618 Td [(mode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.955 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.956 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -34.573 Td [(request)]TJ
+0 g 0 G
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf 164.384 -29.887 Td [(120)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1677 0 obj
 <<
-/Type /Page
-/Contents 1670 0 R
-/Resources 1668 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
+/Length 4820      
 >>
-% 1671 0 obj
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F51 9.9626 Tf 99.895 706.129 Td [(dat)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.368 0 Td [(On)-250(all)-250(pr)18(ocesses)-250(other)-250(than)-250(r)18(oot,)-250(the)-250(br)18(oadcasted)-250(data.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-315(a)-314(rank)-315(1)-315(or)-314(2)-315(array)111(,)-331(or)-314(a)-315(character)-315(or)-314(logical)-315(scalar)74(.)-819(T)90(ype,)-330(kind,)-331(rank)]TJ 0 -11.955 Td [(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
+0 g 0 G
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.956 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(2.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 417.212 cm
+0 0 318.804 27.895 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 434.448 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_bcast\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [(ior)]TJ
+0 g 0 G
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf -48.393 -32.18 Td [(3.)]TJ
+0 g 0 G
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 306.627 cm
+0 0 318.804 60.772 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 356.739 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_bcast\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+ [(psb_collective_start_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+ [(bcast_request\051)]TJ -23.537 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_bcast\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+ [(bcast_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf 103.537 -222.465 Td [(121)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1686 0 obj
 <<
-/D [1669 0 R /XYZ 149.705 753.953 null]
+/Length 5829      
 >>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(7.10)-1000(psb)]TJ
+ET
+q
+1 0 0 1 204.216 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 207.803 706.129 Td [(sum)-250(\227)-250(Global)-250(sum)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -57.098 -19.198 Td [(call)-525(psb_sum\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -22.401 Td [(This)-353(subr)18(outine)-353(implements)-354(a)-353(sum)-353(r)18(eduction)-353(operation)-353(based)-354(on)-353(the)-353(un-)]TJ -14.944 -11.955 Td [(derlying)-250(communication)-250(library)111(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -20.288 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -20.409 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.408 Td [(ctxt)]TJ
+0 g 0 G
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -20.409 Td [(dat)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(sum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -20.408 Td [(root)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-250(to)-250(hold)-250(the)-250(\002nal)-250(sum,)-250(or)]TJ/F83 10.3811 Tf 143.744 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-250(to)-250(make)-250(it)-250(available)-250(on)-250(all)-250(pr)18(ocesses.)]TJ -150.284 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -254.343 -20.409 Td [(mode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.956 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.955 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -32.364 Td [(request)]TJ
+0 g 0 G
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.956 Td [(be)-250(pr)18(esent.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -22.401 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.408 Td [(dat)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(sum)-250(operation.)]TJ 5.54 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.781 0 Td [(.)]TJ
+0 g 0 G
+ 79.264 -29.887 Td [(122)]TJ
+0 g 0 G
+ET
 
 endstream
 endobj
-1675 0 obj
+1690 0 obj
 <<
 /Length 4455      
 >>
@@ -21818,13 +21907,13 @@ BT
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 103.537 -246.376 Td [(121)]TJ
+/F54 9.9626 Tf 103.537 -246.376 Td [(123)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1683 0 obj
+1697 0 obj
 <<
 /Length 5548      
 >>
@@ -21874,13 +21963,13 @@ BT
 /F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 164.384 -29.887 Td [(122)]TJ
+/F54 9.9626 Tf 164.384 -29.887 Td [(124)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1687 0 obj
+1701 0 obj
 <<
 /Length 4718      
 >>
@@ -21971,13 +22060,13 @@ BT
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 103.537 -234.421 Td [(123)]TJ
+/F54 9.9626 Tf 103.537 -234.421 Td [(125)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1694 0 obj
+1708 0 obj
 <<
 /Length 5813      
 >>
@@ -22031,13 +22120,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(minimum)-250(operation.)]TJ 5.54 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.781 0 Td [(.)]TJ
 0 g 0 G
- 79.264 -29.887 Td [(124)]TJ
+ 79.264 -29.887 Td [(126)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1698 0 obj
+1712 0 obj
 <<
 /Length 4437      
 >>
@@ -22125,13 +22214,13 @@ BT
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 103.537 -246.376 Td [(125)]TJ
+/F54 9.9626 Tf 103.537 -246.376 Td [(127)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1705 0 obj
+1720 0 obj
 <<
 /Length 5616      
 >>
@@ -22181,13 +22270,13 @@ BT
 /F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 164.384 -29.887 Td [(126)]TJ
+/F54 9.9626 Tf 164.384 -29.887 Td [(128)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1709 0 obj
+1724 0 obj
 <<
 /Length 4760      
 >>
@@ -22278,13 +22367,13 @@ BT
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 103.537 -222.465 Td [(127)]TJ
+/F54 9.9626 Tf 103.537 -222.465 Td [(129)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1717 0 obj
+1731 0 obj
 <<
 /Length 5619      
 >>
@@ -22334,13 +22423,13 @@ BT
 /F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 164.384 -29.887 Td [(128)]TJ
+/F54 9.9626 Tf 164.384 -29.887 Td [(130)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1721 0 obj
+1735 0 obj
 <<
 /Length 4753      
 >>
@@ -22431,13 +22520,13 @@ BT
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 103.537 -222.465 Td [(129)]TJ
+/F54 9.9626 Tf 103.537 -222.465 Td [(131)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1728 0 obj
+1742 0 obj
 <<
 /Length 5776      
 >>
@@ -22491,13 +22580,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(2-norm)-250(r)18(eduction.)]TJ 5.54 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.781 0 Td [(.)]TJ
 0 g 0 G
- 79.264 -29.887 Td [(130)]TJ
+ 79.264 -29.887 Td [(132)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1732 0 obj
+1746 0 obj
 <<
 /Length 5783      
 >>
@@ -22600,13 +22689,13 @@ BT
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 103.537 -138.296 Td [(131)]TJ
+/F54 9.9626 Tf 103.537 -138.296 Td [(133)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1742 0 obj
+1757 0 obj
 <<
 /Length 5352      
 >>
@@ -22657,13 +22746,13 @@ BT
 0 g 0 G
  [-500(This)-292(subr)18(outine)-292(impl)1(ies)-292(a)-292(synchr)18(onization,)-302(but)-292(only)-292(between)-291(the)-292(calling)]TJ 12.454 -11.955 Td [(pr)18(ocess)-250(and)-250(the)-250(destination)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 158.309 0 Td [(d)-25(s)-25(t)]TJ/F54 9.9626 Tf 12.797 0 Td [(.)]TJ
 0 g 0 G
- -31.629 -104.573 Td [(132)]TJ
+ -31.629 -104.573 Td [(134)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1747 0 obj
+1762 0 obj
 <<
 /Length 5356      
 >>
@@ -22713,13 +22802,13 @@ BT
 0 g 0 G
  [-500(This)-292(subr)18(outine)-291(implies)-292(a)-292(synchr)18(onization,)-302(but)-292(only)-292(between)-291(the)-292(calling)]TJ 12.453 -11.955 Td [(pr)18(ocess)-250(and)-250(the)-250(sour)18(ce)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 137.538 0 Td [(s)-15(r)-17(c)]TJ/F54 9.9626 Tf 12.249 0 Td [(.)]TJ
 0 g 0 G
- -10.31 -104.573 Td [(133)]TJ
+ -10.31 -104.573 Td [(135)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1755 0 obj
+1769 0 obj
 <<
 /Length 6241      
 >>
@@ -22737,13 +22826,13 @@ BT
 0 g 0 G
  [-348(r)18(eports)-347(a)-347(sample)-347(err)18(or)-348(message)-347(generated)-347(by)-348(the)-347(PSBLAS-2.0)-347(li-)]TJ -14.944 -11.955 Td [(brary)111(.)-539(This)-327(err)18(or)-326(has)-327(been)-326(generated)-327(by)-326(the)-326(fact)-327(that)-326(the)-327(user)-326(has)-327(chosen)-326(the)]TJ 0 -11.955 Td [(invalid)-379(\223FOO\224)-380(stor)1(a)-1(g)1(e)-380(format)-379(to)-379(r)18(epr)18(esent)-380(the)-379(sparse)-379(matrix.)-698(Fr)18(om)-380(this)-379(er)18(-)]TJ 0 -11.955 Td [(r)18(or)-394(message)-393(it)-394(is)-393(possible)-394(to)-394(se)1(e)-394(that)-394(the)-393(err)18(or)-394(has)-393(been)-394(detected)-394(inside)-393(the)]TJ/F59 9.9626 Tf 0 -11.955 Td [(psb_cest)]TJ/F54 9.9626 Tf 45.361 0 Td [(subr)18(outine)-353(called)-353(by)]TJ/F59 9.9626 Tf 95.326 0 Td [(psb_spasb)]TJ/F54 9.9626 Tf 50.591 0 Td [(...)-619(by)-354(pr)18(ocess)-353(0)-353(\050i.e.)-619(the)-353(r)18(oot)-354(pr)18(o-)]TJ -191.278 -11.956 Td [(cess\051.)]TJ
 0 g 0 G
- 164.384 -198.123 Td [(134)]TJ
+ 164.384 -198.123 Td [(136)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1761 0 obj
+1775 0 obj
 <<
 /Length 6642      
 >>
@@ -22994,13 +23083,13 @@ Q
 BT
 /F54 9.9626 Tf 209.204 153.726 Td [(cest)-250(subr)18(outine)]TJ
 0 g 0 G
- 55.075 -63.288 Td [(135)]TJ
+ 55.075 -63.288 Td [(137)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1765 0 obj
+1779 0 obj
 <<
 /Length 3570      
 >>
@@ -23105,13 +23194,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 17.713 0 Td [(addional)-250(info)-250(for)-250(err)18(or)-250(code)]TJ -1.375 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(string.)]TJ
 0 g 0 G
- 139.477 -271.945 Td [(136)]TJ
+ 139.477 -271.945 Td [(138)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1771 0 obj
+1785 0 obj
 <<
 /Length 1332      
 >>
@@ -23148,514 +23237,448 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 35.965 0 Td [(the)-250(communication)-250(context.)]TJ -11.058 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
 0 g 0 G
- 139.477 -461.235 Td [(137)]TJ
+ 139.477 -461.235 Td [(139)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1777 0 obj
+1674 0 obj
 <<
-/Length 1526      
+/Type /ObjStm
+/N 100
+/First 975
+/Length 9667      
 >>
 stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(8.3)-1000(psb)]TJ
-ET
-q
-1 0 0 1 198.238 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 201.825 706.129 Td [(set)]TJ
-ET
-q
-1 0 0 1 217.809 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 221.396 706.129 Td [(errverbosity)-190(\227)-190(Sets)-190(the)-190(verbosity)-190(of)-190(error)-190(messages)]TJ/F54 9.9626 Tf -68.95 -24.942 Td [(c)-175(a)-175(l)-174(l)-921(p)-147(s)-146(b)]TJ
-ET
-q
-1 0 0 1 202.736 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 207.181 681.187 Td [(s)-146(e)-146(t)]TJ
-ET
-q
-1 0 0 1 224.391 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 228.836 681.187 Td [(e)-146(r)-146(r)-146(v)-147(e)-146(r)-146(b)-146(o)-146(s)-146(i)-146(t)-147(y)-279(\050)-151(v)-151(\051)]TJ
-0 g 0 G
-0 g 0 G
-0 g 0 G
-/F51 9.9626 Tf -78.131 -27.895 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(v)]TJ
-0 g 0 G
-/F54 9.9626 Tf 10.52 0 Td [(the)-250(verbosity)-250(level)]TJ 14.386 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
-0 g 0 G
- 139.477 -475.183 Td [(138)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1783 0 obj
+1671 0 1673 118 457 177 1670 235 1676 382 1678 500 1679 558 1680 616 1681 674 1675 731
+1685 866 1687 984 461 1043 1684 1101 1689 1248 1691 1366 1692 1424 1693 1482 1694 1540 1688 1597
+1696 1732 1698 1850 465 1909 1695 1967 1700 2114 1702 2232 1703 2290 1704 2348 1705 2406 1699 2464
+1707 2599 1709 2717 469 2776 1706 2834 1711 2981 1713 3099 1714 3157 1715 3215 1716 3273 1710 3330
+1719 3465 1721 3583 473 3642 1718 3700 1723 3847 1725 3965 1726 4023 1727 4081 1728 4139 1722 4196
+1730 4331 1732 4449 477 4508 1729 4566 1734 4713 1736 4831 1737 4889 1738 4947 1739 5005 1733 5062
+1741 5197 1743 5315 481 5374 1740 5432 1745 5579 1747 5697 1748 5755 1749 5813 1751 5870 1752 5928
+1753 5986 1744 6043 1756 6218 1758 6336 485 6395 1759 6453 1755 6512 1761 6659 1763 6777 489 6835
+1764 6892 1760 6950 1768 7097 1765 7245 1766 7393 1770 7541 493 7600 1767 7658 1774 7752 1776 7870
+1771 7928 1772 7986 1773 8044 1778 8140 1780 8258 497 8317 1781 8375 1782 8434 1777 8493 1784 8574
+% 1671 0 obj
 <<
-/Length 2016      
+/Type /Page
+/Contents 1672 0 R
+/Resources 1670 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1653 0 R
 >>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(8.4)-1000(psb)]TJ
-ET
-q
-1 0 0 1 147.429 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 151.016 706.129 Td [(set)]TJ
-ET
-q
-1 0 0 1 166.999 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 170.586 706.129 Td [(erraction)-223(\227)-223(Set)-222(the)-223(type)-223(of)-223(action)-223(to)-222(be)-223(taken)-223(upon)]TJ -43.792 -13.948 Td [(error)-250(condition)]TJ/F54 9.9626 Tf -25.157 -24.941 Td [(c)-175(a)-175(l)-174(l)-926(p)-151(s)-151(b)]TJ
-ET
-q
-1 0 0 1 152.113 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 156.605 667.24 Td [(s)-151(e)-151(t)]TJ
-ET
-q
-1 0 0 1 173.955 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 178.447 667.24 Td [(e)-151(r)-151(r)-150(a)-151(c)-151(t)-151(i)-151(o)-151(n)-284(\050)-296(e)-163(r)-162(r)]TJ
-ET
-q
-1 0 0 1 257.102 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 261.712 667.24 Td [(a)-163(c)-162(t)-296(\051)]TJ
-0 g 0 G
-0 g 0 G
-0 g 0 G
-/F51 9.9626 Tf -161.817 -27.896 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(err)]TJ
-ET
-q
-1 0 0 1 113.225 599.693 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 116.214 599.494 Td [(act)]TJ
-0 g 0 G
-/F54 9.9626 Tf 17.703 0 Td [(the)-250(type)-250(of)-250(action.)]TJ -9.115 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)-310(Possible)-250(values:)]TJ/F59 9.9626 Tf 179.116 0 Td [(psb_act_ret)]TJ/F54 9.9626 Tf 57.534 0 Td [(,)]TJ/F59 9.9626 Tf 4.981 0 Td [(psb_act_abort)]TJ/F54 9.9626 Tf 67.995 0 Td [(.)]TJ
-0 g 0 G
- -170.149 -461.235 Td [(139)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1672 0 obj
+% 1673 0 obj
 <<
-/Type /ObjStm
-/N 100
-/First 973
-/Length 9485      
+/D [1671 0 R /XYZ 149.705 753.953 null]
+>>
+% 457 0 obj
+<<
+/D [1671 0 R /XYZ 150.705 716.092 null]
+>>
+% 1670 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1676 0 obj
+<<
+/Type /Page
+/Contents 1677 0 R
+/Resources 1675 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1683 0 R
+>>
+% 1678 0 obj
+<<
+/D [1676 0 R /XYZ 98.895 753.953 null]
+>>
+% 1679 0 obj
+<<
+/D [1676 0 R /XYZ 99.895 528.579 null]
+>>
+% 1680 0 obj
+<<
+/D [1676 0 R /XYZ 99.895 494.104 null]
+>>
+% 1681 0 obj
+<<
+/D [1676 0 R /XYZ 99.895 407.25 null]
+>>
+% 1675 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1685 0 obj
+<<
+/Type /Page
+/Contents 1686 0 R
+/Resources 1684 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1683 0 R
+>>
+% 1687 0 obj
+<<
+/D [1685 0 R /XYZ 149.705 753.953 null]
 >>
-stream
-461 0 1668 58 1674 205 1676 323 1677 381 1678 439 1679 497 1673 554 1682 689 1684 807
-465 866 1681 924 1686 1071 1688 1189 1689 1247 1690 1305 1691 1363 1685 1421 1693 1556 1695 1674
-469 1733 1692 1791 1697 1938 1699 2056 1700 2114 1701 2172 1702 2230 1696 2287 1704 2422 1706 2540
-473 2599 1703 2657 1708 2804 1710 2922 1711 2980 1712 3038 1713 3096 1707 3153 1716 3288 1718 3406
-477 3465 1715 3523 1720 3670 1722 3788 1723 3846 1724 3904 1725 3962 1719 4019 1727 4154 1729 4272
-481 4331 1726 4389 1731 4536 1733 4654 1734 4712 1735 4770 1737 4827 1738 4885 1739 4943 1730 5000
-1741 5175 1743 5293 485 5352 1744 5410 1740 5469 1746 5616 1748 5734 489 5792 1749 5849 1745 5907
-1754 6054 1751 6202 1752 6350 1756 6498 493 6557 1753 6615 1760 6709 1762 6827 1757 6885 1758 6943
-1759 7001 1764 7097 1766 7215 497 7274 1767 7332 1768 7391 1763 7450 1770 7531 1772 7649 501 7707
-1773 7764 1774 7821 1769 7879 1776 7960 1778 8078 505 8137 1779 8195 1780 8254 1775 8313 1782 8394
 % 461 0 obj
 <<
-/D [1669 0 R /XYZ 150.705 716.092 null]
+/D [1685 0 R /XYZ 150.705 716.092 null]
 >>
-% 1668 0 obj
+% 1684 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1674 0 obj
+% 1689 0 obj
 <<
 /Type /Page
-/Contents 1675 0 R
-/Resources 1673 0 R
+/Contents 1690 0 R
+/Resources 1688 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1680 0 R
+/Parent 1683 0 R
 >>
-% 1676 0 obj
+% 1691 0 obj
 <<
-/D [1674 0 R /XYZ 98.895 753.953 null]
+/D [1689 0 R /XYZ 98.895 753.953 null]
 >>
-% 1677 0 obj
+% 1692 0 obj
 <<
-/D [1674 0 R /XYZ 99.895 552.489 null]
+/D [1689 0 R /XYZ 99.895 552.489 null]
 >>
-% 1678 0 obj
+% 1693 0 obj
 <<
-/D [1674 0 R /XYZ 99.895 518.014 null]
+/D [1689 0 R /XYZ 99.895 518.014 null]
 >>
-% 1679 0 obj
+% 1694 0 obj
 <<
-/D [1674 0 R /XYZ 99.895 431.16 null]
+/D [1689 0 R /XYZ 99.895 431.16 null]
 >>
-% 1673 0 obj
+% 1688 0 obj
 <<
-/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1667 0 R >>
+/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1682 0 obj
+% 1696 0 obj
 <<
 /Type /Page
-/Contents 1683 0 R
-/Resources 1681 0 R
+/Contents 1697 0 R
+/Resources 1695 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1680 0 R
+/Parent 1683 0 R
 >>
-% 1684 0 obj
+% 1698 0 obj
 <<
-/D [1682 0 R /XYZ 149.705 753.953 null]
+/D [1696 0 R /XYZ 149.705 753.953 null]
 >>
 % 465 0 obj
 <<
-/D [1682 0 R /XYZ 150.705 716.092 null]
+/D [1696 0 R /XYZ 150.705 716.092 null]
 >>
-% 1681 0 obj
+% 1695 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1686 0 obj
+% 1700 0 obj
 <<
 /Type /Page
-/Contents 1687 0 R
-/Resources 1685 0 R
+/Contents 1701 0 R
+/Resources 1699 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1680 0 R
+/Parent 1683 0 R
 >>
-% 1688 0 obj
+% 1702 0 obj
 <<
-/D [1686 0 R /XYZ 98.895 753.953 null]
+/D [1700 0 R /XYZ 98.895 753.953 null]
 >>
-% 1689 0 obj
+% 1703 0 obj
 <<
-/D [1686 0 R /XYZ 99.895 540.534 null]
+/D [1700 0 R /XYZ 99.895 540.534 null]
 >>
-% 1690 0 obj
+% 1704 0 obj
 <<
-/D [1686 0 R /XYZ 99.895 506.059 null]
+/D [1700 0 R /XYZ 99.895 506.059 null]
 >>
-% 1691 0 obj
+% 1705 0 obj
 <<
-/D [1686 0 R /XYZ 99.895 419.205 null]
+/D [1700 0 R /XYZ 99.895 419.205 null]
 >>
-% 1685 0 obj
+% 1699 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1667 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1693 0 obj
+% 1707 0 obj
 <<
 /Type /Page
-/Contents 1694 0 R
-/Resources 1692 0 R
+/Contents 1708 0 R
+/Resources 1706 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1680 0 R
+/Parent 1683 0 R
 >>
-% 1695 0 obj
+% 1709 0 obj
 <<
-/D [1693 0 R /XYZ 149.705 753.953 null]
+/D [1707 0 R /XYZ 149.705 753.953 null]
 >>
 % 469 0 obj
 <<
-/D [1693 0 R /XYZ 150.705 716.092 null]
+/D [1707 0 R /XYZ 150.705 716.092 null]
 >>
-% 1692 0 obj
+% 1706 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1697 0 obj
+% 1711 0 obj
 <<
 /Type /Page
-/Contents 1698 0 R
-/Resources 1696 0 R
+/Contents 1712 0 R
+/Resources 1710 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1680 0 R
+/Parent 1717 0 R
 >>
-% 1699 0 obj
+% 1713 0 obj
 <<
-/D [1697 0 R /XYZ 98.895 753.953 null]
+/D [1711 0 R /XYZ 98.895 753.953 null]
 >>
-% 1700 0 obj
+% 1714 0 obj
 <<
-/D [1697 0 R /XYZ 99.895 552.489 null]
+/D [1711 0 R /XYZ 99.895 552.489 null]
 >>
-% 1701 0 obj
+% 1715 0 obj
 <<
-/D [1697 0 R /XYZ 99.895 518.014 null]
+/D [1711 0 R /XYZ 99.895 518.014 null]
 >>
-% 1702 0 obj
+% 1716 0 obj
 <<
-/D [1697 0 R /XYZ 99.895 431.16 null]
+/D [1711 0 R /XYZ 99.895 431.16 null]
 >>
-% 1696 0 obj
+% 1710 0 obj
 <<
-/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1667 0 R >>
+/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1704 0 obj
+% 1719 0 obj
 <<
 /Type /Page
-/Contents 1705 0 R
-/Resources 1703 0 R
+/Contents 1720 0 R
+/Resources 1718 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1680 0 R
+/Parent 1717 0 R
 >>
-% 1706 0 obj
+% 1721 0 obj
 <<
-/D [1704 0 R /XYZ 149.705 753.953 null]
+/D [1719 0 R /XYZ 149.705 753.953 null]
 >>
 % 473 0 obj
 <<
-/D [1704 0 R /XYZ 150.705 716.092 null]
+/D [1719 0 R /XYZ 150.705 716.092 null]
 >>
-% 1703 0 obj
+% 1718 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1708 0 obj
+% 1723 0 obj
 <<
 /Type /Page
-/Contents 1709 0 R
-/Resources 1707 0 R
+/Contents 1724 0 R
+/Resources 1722 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1714 0 R
+/Parent 1717 0 R
 >>
-% 1710 0 obj
+% 1725 0 obj
 <<
-/D [1708 0 R /XYZ 98.895 753.953 null]
+/D [1723 0 R /XYZ 98.895 753.953 null]
 >>
-% 1711 0 obj
+% 1726 0 obj
 <<
-/D [1708 0 R /XYZ 99.895 528.579 null]
+/D [1723 0 R /XYZ 99.895 528.579 null]
 >>
-% 1712 0 obj
+% 1727 0 obj
 <<
-/D [1708 0 R /XYZ 99.895 494.104 null]
+/D [1723 0 R /XYZ 99.895 494.104 null]
 >>
-% 1713 0 obj
+% 1728 0 obj
 <<
-/D [1708 0 R /XYZ 99.895 407.25 null]
+/D [1723 0 R /XYZ 99.895 407.25 null]
 >>
-% 1707 0 obj
+% 1722 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1667 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1716 0 obj
+% 1730 0 obj
 <<
 /Type /Page
-/Contents 1717 0 R
-/Resources 1715 0 R
+/Contents 1731 0 R
+/Resources 1729 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1714 0 R
+/Parent 1717 0 R
 >>
-% 1718 0 obj
+% 1732 0 obj
 <<
-/D [1716 0 R /XYZ 149.705 753.953 null]
+/D [1730 0 R /XYZ 149.705 753.953 null]
 >>
 % 477 0 obj
 <<
-/D [1716 0 R /XYZ 150.705 716.092 null]
+/D [1730 0 R /XYZ 150.705 716.092 null]
 >>
-% 1715 0 obj
+% 1729 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1720 0 obj
+% 1734 0 obj
 <<
 /Type /Page
-/Contents 1721 0 R
-/Resources 1719 0 R
+/Contents 1735 0 R
+/Resources 1733 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1714 0 R
+/Parent 1717 0 R
 >>
-% 1722 0 obj
+% 1736 0 obj
 <<
-/D [1720 0 R /XYZ 98.895 753.953 null]
+/D [1734 0 R /XYZ 98.895 753.953 null]
 >>
-% 1723 0 obj
+% 1737 0 obj
 <<
-/D [1720 0 R /XYZ 99.895 528.579 null]
+/D [1734 0 R /XYZ 99.895 528.579 null]
 >>
-% 1724 0 obj
+% 1738 0 obj
 <<
-/D [1720 0 R /XYZ 99.895 494.104 null]
+/D [1734 0 R /XYZ 99.895 494.104 null]
 >>
-% 1725 0 obj
+% 1739 0 obj
 <<
-/D [1720 0 R /XYZ 99.895 407.25 null]
+/D [1734 0 R /XYZ 99.895 407.25 null]
 >>
-% 1719 0 obj
+% 1733 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1667 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1727 0 obj
+% 1741 0 obj
 <<
 /Type /Page
-/Contents 1728 0 R
-/Resources 1726 0 R
+/Contents 1742 0 R
+/Resources 1740 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1714 0 R
+/Parent 1717 0 R
 >>
-% 1729 0 obj
+% 1743 0 obj
 <<
-/D [1727 0 R /XYZ 149.705 753.953 null]
+/D [1741 0 R /XYZ 149.705 753.953 null]
 >>
 % 481 0 obj
 <<
-/D [1727 0 R /XYZ 150.705 716.092 null]
+/D [1741 0 R /XYZ 150.705 716.092 null]
 >>
-% 1726 0 obj
+% 1740 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1731 0 obj
+% 1745 0 obj
 <<
 /Type /Page
-/Contents 1732 0 R
-/Resources 1730 0 R
+/Contents 1746 0 R
+/Resources 1744 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1714 0 R
+/Parent 1754 0 R
 >>
-% 1733 0 obj
+% 1747 0 obj
 <<
-/D [1731 0 R /XYZ 98.895 753.953 null]
+/D [1745 0 R /XYZ 98.895 753.953 null]
 >>
-% 1734 0 obj
+% 1748 0 obj
 <<
-/D [1731 0 R /XYZ 99.895 564.444 null]
+/D [1745 0 R /XYZ 99.895 564.444 null]
 >>
-% 1735 0 obj
+% 1749 0 obj
 <<
-/D [1731 0 R /XYZ 99.895 529.97 null]
+/D [1745 0 R /XYZ 99.895 529.97 null]
 >>
-% 1737 0 obj
+% 1751 0 obj
 <<
-/D [1731 0 R /XYZ 99.895 441.815 null]
+/D [1745 0 R /XYZ 99.895 441.815 null]
 >>
-% 1738 0 obj
+% 1752 0 obj
 <<
-/D [1731 0 R /XYZ 99.895 409.935 null]
+/D [1745 0 R /XYZ 99.895 409.935 null]
 >>
-% 1739 0 obj
+% 1753 0 obj
 <<
-/D [1731 0 R /XYZ 99.895 323.08 null]
+/D [1745 0 R /XYZ 99.895 323.08 null]
 >>
-% 1730 0 obj
+% 1744 0 obj
 <<
-/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R /F1 1736 0 R /F96 1154 0 R /F94 915 0 R /F112 1667 0 R >>
+/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R /F1 1750 0 R /F96 1154 0 R /F94 915 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1741 0 obj
+% 1756 0 obj
 <<
 /Type /Page
-/Contents 1742 0 R
-/Resources 1740 0 R
+/Contents 1757 0 R
+/Resources 1755 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1714 0 R
+/Parent 1754 0 R
 >>
-% 1743 0 obj
+% 1758 0 obj
 <<
-/D [1741 0 R /XYZ 149.705 753.953 null]
+/D [1756 0 R /XYZ 149.705 753.953 null]
 >>
 % 485 0 obj
 <<
-/D [1741 0 R /XYZ 150.705 716.092 null]
+/D [1756 0 R /XYZ 150.705 716.092 null]
 >>
-% 1744 0 obj
+% 1759 0 obj
 <<
-/D [1741 0 R /XYZ 150.705 222.691 null]
+/D [1756 0 R /XYZ 150.705 222.691 null]
 >>
-% 1740 0 obj
+% 1755 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F61 1360 0 R /F85 814 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1746 0 obj
+% 1761 0 obj
 <<
 /Type /Page
-/Contents 1747 0 R
-/Resources 1745 0 R
+/Contents 1762 0 R
+/Resources 1760 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1750 0 R
+/Parent 1754 0 R
 >>
-% 1748 0 obj
+% 1763 0 obj
 <<
-/D [1746 0 R /XYZ 98.895 753.953 null]
+/D [1761 0 R /XYZ 98.895 753.953 null]
 >>
 % 489 0 obj
 <<
-/D [1746 0 R /XYZ 99.895 716.092 null]
+/D [1761 0 R /XYZ 99.895 716.092 null]
 >>
-% 1749 0 obj
+% 1764 0 obj
 <<
-/D [1746 0 R /XYZ 99.895 222.691 null]
+/D [1761 0 R /XYZ 99.895 222.691 null]
 >>
-% 1745 0 obj
+% 1760 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1754 0 obj
+% 1768 0 obj
 <<
 /Type /Page
-/Contents 1755 0 R
-/Resources 1753 0 R
+/Contents 1769 0 R
+/Resources 1767 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1750 0 R
-/Annots [ 1751 0 R 1752 0 R ]
+/Parent 1754 0 R
+/Annots [ 1765 0 R 1766 0 R ]
 >>
-% 1751 0 obj
+% 1765 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -23663,7 +23686,7 @@ stream
 /Rect [196.011 499.949 202.985 512.009]
 /A << /S /GoTo /D (listing.5) >>
 >>
-% 1752 0 obj
+% 1766 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -23671,143 +23694,213 @@ stream
 /Rect [196.625 344.532 203.599 356.591]
 /A << /S /GoTo /D (listing.6) >>
 >>
-% 1756 0 obj
+% 1770 0 obj
 <<
-/D [1754 0 R /XYZ 149.705 753.953 null]
+/D [1768 0 R /XYZ 149.705 753.953 null]
 >>
 % 493 0 obj
 <<
-/D [1754 0 R /XYZ 150.705 716.092 null]
+/D [1768 0 R /XYZ 150.705 716.092 null]
 >>
-% 1753 0 obj
+% 1767 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1760 0 obj
+% 1774 0 obj
 <<
 /Type /Page
-/Contents 1761 0 R
-/Resources 1759 0 R
+/Contents 1775 0 R
+/Resources 1773 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1750 0 R
+/Parent 1754 0 R
 >>
-% 1762 0 obj
+% 1776 0 obj
 <<
-/D [1760 0 R /XYZ 98.895 753.953 null]
+/D [1774 0 R /XYZ 98.895 753.953 null]
 >>
-% 1757 0 obj
+% 1771 0 obj
 <<
-/D [1760 0 R /XYZ 99.895 411.235 null]
+/D [1774 0 R /XYZ 99.895 411.235 null]
 >>
-% 1758 0 obj
+% 1772 0 obj
 <<
-/D [1760 0 R /XYZ 99.895 182.902 null]
+/D [1774 0 R /XYZ 99.895 182.902 null]
 >>
-% 1759 0 obj
+% 1773 0 obj
 <<
-/Font << /F59 812 0 R /F112 1667 0 R /F54 586 0 R >>
+/Font << /F59 812 0 R /F112 1682 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1764 0 obj
+% 1778 0 obj
 <<
 /Type /Page
-/Contents 1765 0 R
-/Resources 1763 0 R
+/Contents 1779 0 R
+/Resources 1777 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1750 0 R
+/Parent 1754 0 R
 >>
-% 1766 0 obj
+% 1780 0 obj
 <<
-/D [1764 0 R /XYZ 149.705 753.953 null]
+/D [1778 0 R /XYZ 149.705 753.953 null]
 >>
 % 497 0 obj
 <<
-/D [1764 0 R /XYZ 150.705 716.092 null]
->>
-% 1767 0 obj
-<<
-/D [1764 0 R /XYZ 150.705 690.058 null]
->>
-% 1768 0 obj
-<<
-/D [1764 0 R /XYZ 150.705 693.143 null]
->>
-% 1763 0 obj
-<<
-/Font << /F51 584 0 R /F54 586 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1770 0 obj
-<<
-/Type /Page
-/Contents 1771 0 R
-/Resources 1769 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1750 0 R
->>
-% 1772 0 obj
-<<
-/D [1770 0 R /XYZ 98.895 753.953 null]
+/D [1778 0 R /XYZ 150.705 716.092 null]
 >>
-% 501 0 obj
-<<
-/D [1770 0 R /XYZ 99.895 716.092 null]
->>
-% 1773 0 obj
+% 1781 0 obj
 <<
-/D [1770 0 R /XYZ 99.895 678.98 null]
+/D [1778 0 R /XYZ 150.705 690.058 null]
 >>
-% 1774 0 obj
+% 1782 0 obj
 <<
-/D [1770 0 R /XYZ 99.895 679.195 null]
+/D [1778 0 R /XYZ 150.705 693.143 null]
 >>
-% 1769 0 obj
+% 1777 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1776 0 obj
+% 1784 0 obj
 <<
 /Type /Page
-/Contents 1777 0 R
-/Resources 1775 0 R
+/Contents 1785 0 R
+/Resources 1783 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1750 0 R
->>
-% 1778 0 obj
-<<
-/D [1776 0 R /XYZ 149.705 753.953 null]
+/Parent 1789 0 R
 >>
-% 505 0 obj
-<<
-/D [1776 0 R /XYZ 150.705 716.092 null]
->>
-% 1779 0 obj
-<<
-/D [1776 0 R /XYZ 150.705 689.963 null]
->>
-% 1780 0 obj
-<<
-/D [1776 0 R /XYZ 150.705 693.143 null]
->>
-% 1775 0 obj
+
+endstream
+endobj
+1793 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R >>
-/ProcSet [ /PDF /Text ]
+/Length 1526      
 >>
-% 1782 0 obj
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(8.3)-1000(psb)]TJ
+ET
+q
+1 0 0 1 198.238 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 201.825 706.129 Td [(set)]TJ
+ET
+q
+1 0 0 1 217.809 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 221.396 706.129 Td [(errverbosity)-190(\227)-190(Sets)-190(the)-190(verbosity)-190(of)-190(error)-190(messages)]TJ/F54 9.9626 Tf -68.95 -24.942 Td [(c)-175(a)-175(l)-174(l)-921(p)-147(s)-146(b)]TJ
+ET
+q
+1 0 0 1 202.736 681.387 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 207.181 681.187 Td [(s)-146(e)-146(t)]TJ
+ET
+q
+1 0 0 1 224.391 681.387 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 228.836 681.187 Td [(e)-146(r)-146(r)-146(v)-147(e)-146(r)-146(b)-146(o)-146(s)-146(i)-146(t)-147(y)-279(\050)-151(v)-151(\051)]TJ
+0 g 0 G
+0 g 0 G
+0 g 0 G
+/F51 9.9626 Tf -78.131 -27.895 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(v)]TJ
+0 g 0 G
+/F54 9.9626 Tf 10.52 0 Td [(the)-250(verbosity)-250(level)]TJ 14.386 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
+0 g 0 G
+ 139.477 -475.183 Td [(140)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1799 0 obj
 <<
-/Type /Page
-/Contents 1783 0 R
-/Resources 1781 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1787 0 R
+/Length 2016      
 >>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(8.4)-1000(psb)]TJ
+ET
+q
+1 0 0 1 147.429 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 151.016 706.129 Td [(set)]TJ
+ET
+q
+1 0 0 1 166.999 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 170.586 706.129 Td [(erraction)-223(\227)-223(Set)-222(the)-223(type)-223(of)-223(action)-223(to)-222(be)-223(taken)-223(upon)]TJ -43.792 -13.948 Td [(error)-250(condition)]TJ/F54 9.9626 Tf -25.157 -24.941 Td [(c)-175(a)-175(l)-174(l)-926(p)-151(s)-151(b)]TJ
+ET
+q
+1 0 0 1 152.113 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 156.605 667.24 Td [(s)-151(e)-151(t)]TJ
+ET
+q
+1 0 0 1 173.955 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 178.447 667.24 Td [(e)-151(r)-151(r)-150(a)-151(c)-151(t)-151(i)-151(o)-151(n)-284(\050)-296(e)-163(r)-162(r)]TJ
+ET
+q
+1 0 0 1 257.102 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 261.712 667.24 Td [(a)-163(c)-162(t)-296(\051)]TJ
+0 g 0 G
+0 g 0 G
+0 g 0 G
+/F51 9.9626 Tf -161.817 -27.896 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(err)]TJ
+ET
+q
+1 0 0 1 113.225 599.693 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 116.214 599.494 Td [(act)]TJ
+0 g 0 G
+/F54 9.9626 Tf 17.703 0 Td [(the)-250(type)-250(of)-250(action.)]TJ -9.115 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)-310(Possible)-250(values:)]TJ/F59 9.9626 Tf 179.116 0 Td [(psb_act_ret)]TJ/F54 9.9626 Tf 57.534 0 Td [(,)]TJ/F59 9.9626 Tf 4.981 0 Td [(psb_act_abort)]TJ/F54 9.9626 Tf 67.995 0 Td [(.)]TJ
+0 g 0 G
+ -170.149 -461.235 Td [(141)]TJ
+0 g 0 G
+ET
 
 endstream
 endobj
-1791 0 obj
+1805 0 obj
 <<
 /Length 507       
 >>
@@ -23817,13 +23910,13 @@ stream
 BT
 /F51 14.3462 Tf 150.705 705.784 Td [(9)-1000(Utilities)]TJ/F54 9.9626 Tf 0 -22.702 Td [(W)92(e)-323(have)-322(some)-323(utilities)-322(available)-323(for)-322(input)-323(and)-323(output)-322(of)-323(sparse)-322(matrices;)-359(the)]TJ 0 -11.955 Td [(interfaces)-250(to)-250(these)-250(r)18(outines)-250(ar)18(e)-250(available)-250(in)-250(the)-250(module)]TJ/F59 9.9626 Tf 242.009 0 Td [(psb_util_mod)]TJ/F54 9.9626 Tf 62.764 0 Td [(.)]TJ
 0 g 0 G
- -140.39 -580.689 Td [(140)]TJ
+ -140.39 -580.689 Td [(142)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1796 0 obj
+1810 0 obj
 <<
 /Length 4553      
 >>
@@ -23901,13 +23994,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 139.477 -184.274 Td [(141)]TJ
+ 139.477 -184.274 Td [(143)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1803 0 obj
+1817 0 obj
 <<
 /Length 4948      
 >>
@@ -23989,13 +24082,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.433 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 139.477 -128.483 Td [(142)]TJ
+ 139.477 -128.483 Td [(144)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1810 0 obj
+1824 0 obj
 <<
 /Length 3542      
 >>
@@ -24079,13 +24172,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 139.477 -307.811 Td [(143)]TJ
+ 139.477 -307.811 Td [(145)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1817 0 obj
+1832 0 obj
 <<
 /Length 4155      
 >>
@@ -24176,15 +24269,15 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 139.476 -248.035 Td [(144)]TJ
+ 139.476 -248.035 Td [(146)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1824 0 obj
+1839 0 obj
 <<
-/Length 4008      
+/Length 6815      
 >>
 stream
 0 g 0 G
@@ -24204,81 +24297,153 @@ q
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 177.245 706.129 Td [(write)-275(\227)-275(W)74(rite)-275(a)-275(sparse)-275(matrix)-275(to)-275(a)-275(\002le)-275(in)-275(the)-275(Ma-)]TJ -50.45 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-828(m)-52(m)]TJ
+/F51 11.9552 Tf 177.245 706.129 Td [(write)-275(\227)-275(W)74(rite)-275(a)-275(sparse)-275(matrix)-275(to)-275(a)-275(\002le)-275(in)-275(the)-275(Ma-)]TJ -50.45 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.48 Td [(c)-175(a)-175(l)-174(l)-828(m)-52(m)]TJ
 ET
 q
-1 0 0 1 149.539 667.439 cm
+1 0 0 1 149.539 667.901 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 153.049 667.24 Td [(m)-52(a)-53(t)]TJ
+/F54 9.9626 Tf 153.049 667.701 Td [(m)-52(a)-53(t)]TJ
 ET
 q
-1 0 0 1 172.236 667.439 cm
+1 0 0 1 172.236 667.901 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 175.746 667.24 Td [(w)-52(r)-53(i)-52(t)-52(e)-186(\050)-167(a)-242(,)-900(m)-126(t)-125(i)-126(t)-125(l)-126(e)-426(,)-926(i)-152(r)-151(e)-152(t)-478(,)-904(i)-130(u)-129(n)-130(i)-130(t)-434(,)-882(f)-107(i)-107(l)-106(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
+/F54 9.9626 Tf 175.746 667.701 Td [(w)-52(r)-53(i)-52(t)-52(e)-186(\050)-167(a)-242(,)-900(m)-126(t)-125(i)-126(t)-125(l)-126(e)-426(,)-926(i)-152(r)-151(e)-152(t)-478(,)-904(i)-130(u)-129(n)-130(i)-130(t)-434(,)-882(f)-107(i)-107(l)-106(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
 0 g 0 G
 0 g 0 G
 0 g 0 G
-/F51 9.9626 Tf -75.851 -27.896 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -75.851 -26.279 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -19.464 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(a)]TJ
+ 0 -19.464 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(to)-250(be)-250(written.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(to)-250(be)-250(written.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 575.783 cm
+1 0 0 1 309.258 578.783 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 575.584 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 312.397 578.584 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 344.406 575.783 cm
+1 0 0 1 344.406 578.783 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 575.584 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 578.584 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.926 Td [(mtitle)]TJ
+/F51 9.9626 Tf -268.571 -19.464 Td [(mtitle)]TJ
 0 g 0 G
 /F54 9.9626 Tf 32.09 0 Td [(Matrix)-250(title.)]TJ -7.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-231(charachter)-230(variable)-231(holding)-231(a)-230(descriptive)-231(title)-231(for)-230(the)-231(matrix)-231(to)-230(be)-231(writ-)]TJ 0 -11.955 Td [(ten)-250(to)-250(\002le.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(\002lename)]TJ
+/F51 9.9626 Tf -24.907 -19.464 Td [(\002lename)]TJ
+0 g 0 G
+/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written)-250(to.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-234(case)-234(the)-233(default)-234(output)-234(unit)-234(6)-233(\050i.e.)-305(standar)18(d)-234(output)-234(in)-233(Unix)-234(jar)18(gon\051)]TJ 0 -11.956 Td [(is)-250(used.)-310(Default:)]TJ/F59 9.9626 Tf 74.799 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -104.936 -19.463 Td [(iunit)]TJ
+0 g 0 G
+/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -317.895 -20.764 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.463 Td [(iret)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -20.763 Td [(Notes)]TJ/F54 9.9626 Tf 14.944 -11.956 Td [(If)-283(this)-282(function)-283(is)-283(called)-282(on)-283(a)-282(matrix)-283(a)]TJ
+0 g 0 G
+0 g 0 G
+ [-283(on)-282(a)-283(distributed)-283(communicator)-282(only)]TJ -14.944 -11.955 Td [(the)-316(local)-317(part)-316(is)-316(written)-317(in)-316(output.)-509(T)92(o)-316(get)-317(a)-316(single)-316(MatrixMarket)-317(\002le)-316(with)-316(the)]TJ 0 -11.955 Td [(whole)-225(matrix)-225(when)-225(appr)18(opriate,)-230(e.g.)-302(for)-225(debugging)-225(purposes,)-230(one)-225(could)]TJ/F52 9.9626 Tf 318.257 0 Td [(gather)]TJ/F54 9.9626 Tf -318.257 -11.955 Td [(the)-339(whole)-338(matrix)-339(on)-338(a)-339(single)-338(rank)-339(and)-338(then)-339(write)-338(it.)-576(Consider)-339(the)-338(following)]TJ 0 -11.955 Td [(example)-250(for)-250(a)]TJ/F52 9.9626 Tf 62.495 0 Td [(double)]TJ/F54 9.9626 Tf 28.692 0 Td [(pr)18(ecision)-250(matrix)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 99.895 178.717 cm
+0 0 343.711 82.69 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 102.884 250.747 Td [(type)]TJ
+0 g 0 G
+ [(\050psb_ldspmat_type\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(::)]TJ
+0 g 0 G
+ [-525(aglobal)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -21.918 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_gather\050aglobal,a,desc_a,info\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(if)]TJ
+0 g 0 G
+ [-525(\050iam)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(==)]TJ
+0 g 0 G
+ [-525(psb_root_\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(then)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 37.659 -10.959 Td [(call)]TJ
+0 g 0 G
+ [-525(mm_mat_write\050aglobal,mtitle,info,filename\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ -37.659 -10.959 Td [(end)-525(if)]TJ
 0 g 0 G
-/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written)-250(to.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-234(case)-234(the)-233(default)-234(output)-234(unit)-234(6)-233(\050i.e.)-305(standar)18(d)-234(output)-234(in)-233(Unix)-234(jar)18(gon\051)]TJ 0 -11.955 Td [(is)-250(used.)-310(Default:)]TJ/F59 9.9626 Tf 74.799 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -104.936 -19.926 Td [(iunit)]TJ
+ [-525(psb_spfree\050aglobal,)-525(desc_a,)-525(info\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+/F54 9.9626 Tf -2.989 -23.747 Td [(T)92(o)-250(simplify)-250(this)-250(pr)18(ocedur)18(e)-250(in)]TJ/F59 9.9626 Tf 129.513 0 Td [(C)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-250(ther)18(e)-250(is)-250(a)-250(utility)-250(function)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 99.895 137.797 cm
+0 0 343.711 16.936 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F51 9.9626 Tf -317.895 -21.918 Td [(On)-250(Return)]TJ
+BT
+/F94 8.9664 Tf 102.884 144.073 Td [(psb_i_t)-525(psb_c_)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(<)]TJ
 0 g 0 G
+ [(s,d,c,z)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(>)]TJ
 0 g 0 G
- 0 -19.925 Td [(iret)]TJ
+ [(global_mat_write\050ah,cdh\051;)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf -2.989 -23.747 Td [(that)-250(pr)18(oduces)-250(exactly)-250(this)-250(r)18(esult.)]TJ
 0 g 0 G
- 139.477 -252.02 Td [(145)]TJ
+ 164.384 -29.888 Td [(147)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1832 0 obj
+1846 0 obj
 <<
-/Length 4286      
+/Length 6720      
 >>
 stream
 0 g 0 G
@@ -24298,86 +24463,181 @@ q
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 235.371 706.129 Td [(write)-374(\227)-375(W)74(rite)-374(a)-375(dense)-374(array)-374(from)-375(a)-374(\002le)-375(in)-374(the)]TJ -57.767 -13.948 Td [(MatrixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-858(m)-83(m)]TJ
+/F51 11.9552 Tf 235.371 706.129 Td [(write)-374(\227)-375(W)74(rite)-374(a)-375(dense)-374(array)-374(from)-375(a)-374(\002le)-375(in)-374(the)]TJ -57.767 -13.948 Td [(MatrixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.509 Td [(c)-175(a)-175(l)-174(l)-858(m)-83(m)]TJ
 ET
 q
-1 0 0 1 201.262 667.439 cm
+1 0 0 1 201.262 667.872 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 205.076 667.24 Td [(a)-83(r)-83(r)-83(a)-83(y)]TJ
+/F54 9.9626 Tf 205.076 667.672 Td [(a)-83(r)-83(r)-83(a)-83(y)]TJ
 ET
 q
-1 0 0 1 233.175 667.439 cm
+1 0 0 1 233.175 667.872 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 236.989 667.24 Td [(w)-83(r)-83(i)-83(t)-82(e)-217(\050)-149(b)-206(,)-941(v)-165(t)-165(i)-165(t)-166(l)-165(e)-505(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-130(u)-129(n)-130(i)-129(t)-435(,)-881(f)-107(i)-107(l)-107(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
+/F54 9.9626 Tf 236.989 667.672 Td [(w)-83(r)-83(i)-83(t)-82(e)-217(\050)-149(b)-206(,)-941(v)-165(t)-165(i)-165(t)-166(l)-165(e)-505(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-130(u)-129(n)-130(i)-129(t)-435(,)-881(f)-107(i)-107(l)-107(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
 0 g 0 G
 0 g 0 G
 0 g 0 G
-/F51 9.9626 Tf -86.284 -27.896 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -86.284 -26.38 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -19.493 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(b)]TJ
+ 0 -19.493 Td [(b)]TJ
 0 g 0 G
-/F54 9.9626 Tf 11.068 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.839 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-190(array)-190(of)-190(type)-190(r)18(eal)-190(or)-190(complex,)-202(rank)-190(1)-190(or)-190(2,)-202(or)-190(an)-190(object)-190(of)-190(type)]TJ
+/F54 9.9626 Tf 11.068 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.839 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-190(array)-190(of)-190(type)-190(r)18(eal)-190(or)-190(complex,)-202(rank)-190(1)-190(or)-190(2,)-202(or)-190(an)-190(object)-190(of)-190(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 277.745 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 469.676 575.783 cm
+1 0 0 1 469.676 578.595 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 472.814 575.584 Td [(T)]TJ
+/F59 9.9626 Tf 472.814 578.396 Td [(T)]TJ
 ET
 q
-1 0 0 1 478.672 575.783 cm
+1 0 0 1 478.672 578.595 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 481.81 575.584 Td [(vect)]TJ
+/F59 9.9626 Tf 481.81 578.396 Td [(vect)]TJ
 ET
 q
-1 0 0 1 503.359 575.783 cm
+1 0 0 1 503.359 578.595 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 506.497 575.584 Td [(type)]TJ
+/F59 9.9626 Tf 506.497 578.396 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(,)]TJ -351.808 -11.956 Td [(of)-250(type)-250(r)18(eal)-250(or)-250(complex;)-250(its)-250(contents)-250(will)-250(be)-250(written)-250(to)-250(disk.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(,)]TJ -351.808 -11.955 Td [(of)-250(type)-250(r)18(eal)-250(or)-250(complex;)-250(its)-250(contents)-250(will)-250(be)-250(written)-250(to)-250(disk.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -31.88 Td [(\002lename)]TJ
+/F51 9.9626 Tf -24.906 -31.448 Td [(\002lename)]TJ
 0 g 0 G
 /F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -44.274 -31.881 Td [(vtitle)]TJ
+/F51 9.9626 Tf -44.274 -31.448 Td [(vtitle)]TJ
 0 g 0 G
-/F54 9.9626 Tf 28.772 0 Td [(Matrix)-250(title.)]TJ -3.865 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-244(charachter)-243(variable)-244(holding)-244(a)-243(descriptive)-244(title)-244(for)-243(the)-244(vector)-244(to)-243(be)-244(writ-)]TJ 0 -11.955 Td [(ten)-250(to)-250(\002le.)-310(T)90(ype:)]TJ/F51 9.9626 Tf 70.763 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -108.95 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.533 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.956 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.184 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+/F54 9.9626 Tf 28.772 0 Td [(Matrix)-250(title.)]TJ -3.865 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-244(charachter)-243(variable)-244(holding)-244(a)-243(descriptive)-244(title)-244(for)-243(the)-244(vector)-244(to)-243(be)-244(writ-)]TJ 0 -11.955 Td [(ten)-250(to)-250(\002le.)-310(T)90(ype:)]TJ/F51 9.9626 Tf 70.763 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -108.95 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.533 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.764 -11.956 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.184 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
+/F51 9.9626 Tf -95.322 -19.492 Td [(iunit)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.201 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.201 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.894 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -317.894 -20.836 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.492 Td [(iret)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -20.836 Td [(Notes)]TJ/F54 9.9626 Tf 14.944 -11.955 Td [(If)-290(this)-289(function)-290(is)-290(call)1(ed)-290(on)-290(a)-289(vector)-290(v)]TJ
+0 g 0 G
+0 g 0 G
+ [-290(on)-289(a)-290(distributed)-290(communicator)-289(only)]TJ -14.944 -11.955 Td [(the)-316(local)-317(part)-316(is)-316(written)-317(in)-316(output.)-509(T)92(o)-316(get)-317(a)-316(single)-316(MatrixMarket)-317(\002le)-316(with)-316(the)]TJ 0 -11.955 Td [(whole)-243(vect)1(or)-243(when)-243(appr)18(opriate,)-244(e.g.)-307(for)-243(debugging)-242(purposes,)-244(one)-243(could)]TJ/F52 9.9626 Tf 318.257 0 Td [(gather)]TJ/F54 9.9626 Tf -318.257 -11.955 Td [(the)-349(whole)-349(vector)-349(on)-349(a)-349(single)-349(rank)-349(and)-349(then)-349(writ)1(e)-349(it.)-607(Consider)-349(the)-349(following)]TJ 0 -11.956 Td [(example)-250(for)-250(a)]TJ/F52 9.9626 Tf 62.495 0 Td [(double)]TJ/F54 9.9626 Tf 28.692 0 Td [(pr)18(ecision)-250(vector)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 150.705 149.348 cm
+0 0 343.711 82.69 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.56 0.13 0.00 rg 0.56 0.13 0.00 RG
+BT
+/F94 8.9664 Tf 153.694 221.378 Td [(real)]TJ
+0 g 0 G
+ [(\050psb_dpk_\051,)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(allocatable)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(::)]TJ
+0 g 0 G
+ [-525(vglobal\050:\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -21.918 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_gather\050vglobal,v,desc,info\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(if)]TJ
+0 g 0 G
+ [-525(\050iam)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(==)]TJ
+0 g 0 G
+ [-525(psb_root_\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(then)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(call)]TJ
+0 g 0 G
+ [-525(mm_array_write\050vglobal,vtitle,info,filename\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.958 Td [(end)-525(if)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(call)-525(deallocate)]TJ
+0 g 0 G
+ [(\050vglobal,)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(stat)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+ [(info\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
+/F54 9.9626 Tf -2.989 -23.777 Td [(T)92(o)-250(simplify)-250(this)-250(pr)18(ocedur)18(e)-250(in)]TJ/F59 9.9626 Tf 129.513 0 Td [(C)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-250(ther)18(e)-250(is)-250(a)-250(utility)-250(function)]TJ
 0 g 0 G
- 0 -19.925 Td [(iret)]TJ
+ 29.64 -41.41 Td [(148)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+ET
+
+endstream
+endobj
+1852 0 obj
+<<
+/Length 604       
+>>
+stream
+0 g 0 G
+0 g 0 G
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+q
+1 0 0 1 99.895 695.17 cm
+0 0 343.711 16.936 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+BT
+/F94 8.9664 Tf 102.884 701.446 Td [(psb_i_t)-525(psb_c_)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(<)]TJ
+0 g 0 G
+ [(s,d,c,z)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(>)]TJ
+0 g 0 G
+ [(global_vec_write\050vh,cdh\051;)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+/F54 9.9626 Tf -2.989 -24.209 Td [(that)-250(pr)18(oduces)-250(exactly)-250(this)-250(r)18(esult.)]TJ
 0 g 0 G
- 139.477 -228.109 Td [(146)]TJ
+ 164.384 -586.799 Td [(149)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1838 0 obj
+1856 0 obj
 <<
 /Length 1109      
 >>
@@ -24385,7 +24645,7 @@ stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 14.3462 Tf 99.895 705.784 Td [(10)-1000(Preconditioner)-250(routines)]TJ/F54 9.9626 Tf 0 -22.702 Td [(The)-228(base)-227(PSBLAS)-228(library)-227(contains)-228(the)-227(implementation)-228(of)-227(two)-228(simple)-227(pr)18(econdi-)]TJ 0 -11.955 Td [(tioning)-250(techniques:)]TJ
+/F51 14.3462 Tf 150.705 705.784 Td [(10)-1000(Preconditioner)-250(routines)]TJ/F54 9.9626 Tf 0 -22.702 Td [(The)-228(base)-227(PSBLAS)-228(library)-227(contains)-228(the)-227(implementation)-228(of)-227(two)-228(simple)-227(pr)18(econdi-)]TJ 0 -11.955 Td [(tioning)-250(techniques:)]TJ
 0 g 0 G
  13.888 -19.925 Td [(\225)]TJ
 0 g 0 G
@@ -24393,23 +24653,23 @@ BT
 0 g 0 G
  0 -19.926 Td [(\225)]TJ
 0 g 0 G
- [-500(Block)-250(Jacobi)-250(with)-250(ILU\0500\051)-250(factorization)]TJ -13.888 -19.925 Td [(The)-356(supporting)-356(data)-356(type)-356(and)-356(subr)18(outine)-356(interfaces)-356(ar)18(e)-356(de\002ned)-356(in)-356(the)-356(mod-)]TJ 0 -11.955 Td [(ule)]TJ/F59 9.9626 Tf 16.301 0 Td [(psb_prec_mod)]TJ/F54 9.9626 Tf 62.764 0 Td [(.)-350(The)-263(old)-263(interfaces)]TJ/F59 9.9626 Tf 87.315 0 Td [(psb_precinit)]TJ/F54 9.9626 Tf 65.386 0 Td [(and)]TJ/F59 9.9626 Tf 19.489 0 Td [(psb_precbld)]TJ/F54 9.9626 Tf 60.156 0 Td [(ar)18(e)-263(still)]TJ -311.411 -11.955 Td [(supported)-250(for)-250(backwar)18(d)-250(compatibility)]TJ
+ [-500(Block)-250(Jacobi)-250(with)-250(ILU\0500\051)-250(factorization)]TJ -13.888 -19.925 Td [(The)-356(supporting)-356(data)-356(type)-356(and)-356(subr)18(outine)-356(interfaces)-356(ar)18(e)-356(de\002ned)-356(in)-356(the)-356(mod-)]TJ 0 -11.955 Td [(ule)]TJ/F59 9.9626 Tf 16.301 0 Td [(psb_prec_mod)]TJ/F54 9.9626 Tf 62.764 0 Td [(.)-350(The)-263(old)-263(interfaces)]TJ/F59 9.9626 Tf 87.314 0 Td [(psb_precinit)]TJ/F54 9.9626 Tf 65.386 0 Td [(and)]TJ/F59 9.9626 Tf 19.489 0 Td [(psb_precbld)]TJ/F54 9.9626 Tf 60.156 0 Td [(ar)18(e)-263(still)]TJ -311.41 -11.955 Td [(supported)-250(for)-250(backwar)18(d)-250(compatibility)]TJ
 0 g 0 G
- 164.384 -497.003 Td [(147)]TJ
+ 164.383 -497.003 Td [(150)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1844 0 obj
+1862 0 obj
 <<
-/Length 5035      
+/Length 5016      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(10.1)-1000(init)-250(\227)-250(Initialize)-250(a)-250(preconditioner)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(10.1)-1000(init)-250(\227)-250(Initialize)-250(a)-250(preconditioner)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%init\050icontxt,ptype,)-525(info\051)]TJ
@@ -24423,7 +24683,7 @@ BT
 0 g 0 G
  0 -19.925 Td [(icontxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 35.965 0 Td [(the)-250(communication)-250(context.)]TJ -11.058 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -57.125 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
+/F54 9.9626 Tf 35.965 0 Td [(the)-250(communication)-250(context.)]TJ -11.058 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -57.125 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -24.907 -19.925 Td [(ptype)]TJ
 0 g 0 G
@@ -24434,29 +24694,29 @@ BT
 0 g 0 G
  0 -19.925 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf -30.873 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 24.349 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -30.874 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 388.441 446.268 cm
+1 0 0 1 337.631 446.268 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 391.579 446.069 Td [(prec)]TJ
+/F59 9.9626 Tf 340.77 446.069 Td [(prec)]TJ
 ET
 q
-1 0 0 1 413.128 446.268 cm
+1 0 0 1 362.319 446.268 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 416.266 446.069 Td [(type)]TJ
+/F59 9.9626 Tf 365.457 446.069 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -286.483 -19.925 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.956 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.906 -21.917 Td [(Notes)]TJ/F54 9.9626 Tf 34.31 0 Td [(Legal)-245(inputs)-244(to)-245(this)-245(subr)18(outine)-245(ar)18(e)-244(interpr)18(eted)-245(depending)-245(on)-245(the)]TJ/F52 9.9626 Tf 285.596 0 Td [(p)-25(t)-25(y)-80(p)-25(e)]TJ/F54 9.9626 Tf -319.906 -11.956 Td [(string)-250(as)-250(follows)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ/F54 9.9626 Tf 34.311 0 Td [(Legal)-245(inputs)-244(to)-245(this)-245(subr)18(outine)-245(ar)18(e)-244(interpr)18(eted)-245(depending)-245(on)-244(the)]TJ/F52 9.9626 Tf 285.595 0 Td [(p)-25(t)-25(y)-80(p)-25(e)]TJ/F54 9.9626 Tf -319.906 -11.956 Td [(string)-250(as)-250(follows)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 7.5716 Tf 72.358 3.617 Td [(4)]TJ
 0 g 0 G
@@ -24468,36 +24728,36 @@ BT
 0 g 0 G
 /F51 9.9626 Tf -35.965 -19.925 Td [(DIAG)]TJ
 0 g 0 G
-/F54 9.9626 Tf 33.205 0 Td [(Diagonal)-371(scaling;)-432(each)-371(entry)-372(of)-371(the)-371(input)-371(vector)-371(is)-372(multiplied)-371(by)-371(the)]TJ -8.299 -11.955 Td [(r)18(ecipr)18(ocal)-266(of)-267(the)-266(sum)-267(of)-266(the)-266(absolute)-267(values)-266(of)-267(the)-266(coef)18(\002cients)-266(in)-267(the)-266(cor)18(-)]TJ 0 -11.955 Td [(r)18(esponding)-250(r)18(ow)-250(of)-250(matrix)]TJ/F52 9.9626 Tf 116.149 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(;)]TJ
+/F54 9.9626 Tf 33.205 0 Td [(Diagonal)-371(scaling;)-432(each)-371(entry)-372(of)-371(the)-371(input)-371(vector)-372(is)-371(multiplied)-371(by)-371(the)]TJ -8.298 -11.955 Td [(r)18(ecipr)18(ocal)-266(of)-267(the)-266(sum)-267(of)-266(the)-266(absolute)-267(values)-266(of)-267(the)-266(coef)18(\002cients)-266(in)-267(the)-266(cor)18(-)]TJ 0 -11.955 Td [(r)18(esponding)-250(r)18(ow)-250(of)-250(matrix)]TJ/F52 9.9626 Tf 116.148 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(;)]TJ
 0 g 0 G
-/F51 9.9626 Tf -148.372 -19.926 Td [(BJAC)]TJ
+/F51 9.9626 Tf -148.373 -19.926 Td [(BJAC)]TJ
 0 g 0 G
-/F54 9.9626 Tf 30.445 0 Td [(Pr)18(econdition)-211(by)-212(a)-211(factorization)-212(of)-211(the)-212(block-diagonal)-211(of)-212(matrix)]TJ/F52 9.9626 Tf 273.867 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(,)-219(wher)18(e)]TJ -286.724 -11.955 Td [(block)-347(boundaries)-348(ar)18(e)-347(determined)-347(by)-348(the)-347(data)-348(alloc)1(a)-1(t)1(ion)-348(boundaries)-347(for)]TJ 0 -11.955 Td [(each)-223(pr)18(ocess;)-232(r)18(equir)18(es)-222(no)-223(communication.)-301(Only)-223(the)-223(i)1(ncomplete)-223(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F52 9.9626 Tf 20.498 0 Td [(I)-96(L)-9(U)]TJ/F85 10.3811 Tf 18.202 0 Td [(\050)]TJ/F54 9.9626 Tf 4.149 0 Td [(0)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 6.64 0 Td [(is)-250(curr)18(ently)-250(implemented.)]TJ
+/F54 9.9626 Tf 30.446 0 Td [(Pr)18(econdition)-211(by)-212(a)-211(factorization)-212(of)-211(the)-212(block-diagonal)-211(of)-212(matrix)]TJ/F52 9.9626 Tf 273.867 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(,)-219(wher)18(e)]TJ -286.723 -11.955 Td [(block)-347(boundaries)-348(ar)18(e)-347(determined)-347(by)-348(the)-347(data)-347(allocation)-348(boundaries)-347(for)]TJ 0 -11.955 Td [(each)-223(pr)18(ocess;)-232(r)18(equir)18(es)-222(no)-223(communication.)-301(Only)-223(the)-222(incomplete)-223(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F52 9.9626 Tf 20.498 0 Td [(I)-96(L)-9(U)]TJ/F85 10.3811 Tf 18.202 0 Td [(\050)]TJ/F54 9.9626 Tf 4.149 0 Td [(0)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 6.64 0 Td [(is)-250(curr)18(ently)-250(implemented.)]TJ
 0 g 0 G
 ET
 q
-1 0 0 1 150.705 130.181 cm
+1 0 0 1 99.895 130.181 cm
 []0 d 0 J 0.398 w 0 0 m 137.482 0 l S
 Q
 BT
-/F54 5.9776 Tf 161.564 123.219 Td [(4)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(The)-250(string)-250(is)-250(case-insensitive)]TJ
+/F54 5.9776 Tf 110.755 123.219 Td [(4)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(The)-250(string)-250(is)-250(case-insensitive)]TJ
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 150.037 -29.888 Td [(148)]TJ
+/F54 9.9626 Tf 150.037 -29.888 Td [(151)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1853 0 obj
+1872 0 obj
 <<
-/Length 7557      
+/Length 7572      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(10.2)-1000(build)-250(\227)-250(Builds)-250(a)-250(preconditioner)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(10.2)-1000(build)-250(\227)-250(Builds)-250(a)-250(preconditioner)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf 0 -20.364 Td [(call)-525(prec%build\050a,)-525(desc_a,)-525(info[,amold,vmold,imold]\051)]TJ
@@ -24511,230 +24771,230 @@ BT
 0 g 0 G
  0 -22.816 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(system)-250(sparse)-250(matrix.)-310(Scope:)]TJ/F51 9.9626 Tf 146.23 0 Td [(local)]TJ/F54 9.9626 Tf -131.286 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(sparse)-250(matrix)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(system)-250(sparse)-250(matrix.)-310(Scope:)]TJ/F51 9.9626 Tf 146.229 0 Td [(local)]TJ/F54 9.9626 Tf -131.285 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(sparse)-250(matrix)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 190.872 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 331.993 580.382 cm
+1 0 0 1 382.802 580.382 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 335.131 580.183 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 385.94 580.183 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 367.141 580.382 cm
+1 0 0 1 417.95 580.382 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 370.279 580.183 Td [(type)]TJ
+/F59 9.9626 Tf 421.088 580.183 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -291.305 -22.815 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(an)-190(alr)18(eady)-190(initialized)-190(pr)18(econdtioner)-190(data)-190(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(an)-190(alr)18(eady)-190(initialized)-190(pr)18(econdtioner)-190(data)-190(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 277.287 0 Td [(psb)]TJ
+/F59 9.9626 Tf 277.288 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 418.408 509.746 cm
+1 0 0 1 469.217 509.746 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 421.546 509.547 Td [(prec)]TJ
+/F59 9.9626 Tf 472.355 509.547 Td [(prec)]TJ
 ET
 q
-1 0 0 1 443.095 509.746 cm
+1 0 0 1 493.904 509.746 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 446.233 509.547 Td [(type)]TJ
+/F59 9.9626 Tf 497.043 509.547 Td [(type)]TJ
 0 g 0 G
 0 g 0 G
 /F51 9.9626 Tf -346.338 -34.771 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 474.975 cm
+1 0 0 1 171.218 474.975 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 474.776 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 474.776 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(descriptor)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(descriptor)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 247.648 0 Td [(psb)]TJ
+/F59 9.9626 Tf 247.649 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 388.769 439.11 cm
+1 0 0 1 439.579 439.11 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 391.907 438.911 Td [(desc)]TJ
+/F59 9.9626 Tf 442.717 438.911 Td [(desc)]TJ
 ET
 q
-1 0 0 1 413.456 439.11 cm
+1 0 0 1 464.266 439.11 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 416.594 438.911 Td [(type)]TJ
+/F59 9.9626 Tf 467.404 438.911 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -337.621 -22.816 Td [(amold)]TJ
+/F51 9.9626 Tf -337.62 -22.816 Td [(amold)]TJ
 0 g 0 G
-/F54 9.9626 Tf 33.764 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -8.857 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
+/F54 9.9626 Tf 33.763 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -8.857 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 342.513 368.474 cm
+1 0 0 1 393.323 368.474 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 345.652 368.275 Td [(T)]TJ
+/F59 9.9626 Tf 396.461 368.275 Td [(T)]TJ
 ET
 q
-1 0 0 1 351.51 368.474 cm
+1 0 0 1 402.319 368.474 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 354.648 368.275 Td [(base)]TJ
+/F59 9.9626 Tf 405.457 368.275 Td [(base)]TJ
 ET
 q
-1 0 0 1 376.197 368.474 cm
+1 0 0 1 427.006 368.474 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 379.335 368.275 Td [(sparse)]TJ
+/F59 9.9626 Tf 430.144 368.275 Td [(sparse)]TJ
 ET
 q
-1 0 0 1 411.345 368.474 cm
+1 0 0 1 462.154 368.474 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 414.483 368.275 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
+/F59 9.9626 Tf 465.292 368.275 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -330.279 -22.816 Td [(vmold)]TJ
+/F51 9.9626 Tf -330.278 -22.816 Td [(vmold)]TJ
 0 g 0 G
-/F54 9.9626 Tf 34.321 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(vector)-250(storage.)]TJ -9.414 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
+/F54 9.9626 Tf 34.321 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(vector)-250(storage.)]TJ -9.415 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 342.513 297.838 cm
+1 0 0 1 393.323 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 345.652 297.638 Td [(T)]TJ
+/F59 9.9626 Tf 396.461 297.638 Td [(T)]TJ
 ET
 q
-1 0 0 1 351.51 297.838 cm
+1 0 0 1 402.319 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 354.648 297.638 Td [(base)]TJ
+/F59 9.9626 Tf 405.457 297.638 Td [(base)]TJ
 ET
 q
-1 0 0 1 376.197 297.838 cm
+1 0 0 1 427.006 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 379.335 297.638 Td [(vect)]TJ
+/F59 9.9626 Tf 430.144 297.638 Td [(vect)]TJ
 ET
 q
-1 0 0 1 400.884 297.838 cm
+1 0 0 1 451.693 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 404.022 297.638 Td [(type)]TJ/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F59 9.9626 Tf 454.832 297.638 Td [(type)]TJ/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -325.049 -22.815 Td [(imold)]TJ
+/F51 9.9626 Tf -325.048 -22.815 Td [(imold)]TJ
 0 g 0 G
-/F54 9.9626 Tf 32.1 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(integer)-250(vector)-250(storage.)]TJ -7.193 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-190(as:)-280(an)-190(object)-190(of)-190(a)-190(class)-190(derived)-190(fr)18(om)-190(\050integer\051)]TJ/F59 9.9626 Tf 235.803 0 Td [(psb)]TJ
+/F54 9.9626 Tf 32.099 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(integer)-250(vector)-250(storage.)]TJ -7.193 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-190(as:)-280(an)-190(object)-190(of)-190(a)-190(class)-190(derived)-190(fr)18(om)-190(\050integer\051)]TJ/F59 9.9626 Tf 235.804 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 376.924 227.202 cm
+1 0 0 1 427.733 227.202 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 380.062 227.002 Td [(T)]TJ
+/F59 9.9626 Tf 430.872 227.002 Td [(T)]TJ
 ET
 q
-1 0 0 1 385.92 227.202 cm
+1 0 0 1 436.73 227.202 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 389.058 227.002 Td [(base)]TJ
+/F59 9.9626 Tf 439.868 227.002 Td [(base)]TJ
 ET
 q
-1 0 0 1 410.607 227.202 cm
+1 0 0 1 461.417 227.202 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 413.746 227.002 Td [(vect)]TJ
+/F59 9.9626 Tf 464.555 227.002 Td [(vect)]TJ
 ET
 q
-1 0 0 1 435.294 227.202 cm
+1 0 0 1 486.104 227.202 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 438.433 227.002 Td [(type)]TJ/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F59 9.9626 Tf 489.242 227.002 Td [(type)]TJ/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -359.459 -24.085 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -22.816 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econdtioner)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econdtioner)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 193.612 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 334.732 132.48 cm
+1 0 0 1 385.542 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.871 132.281 Td [(prec)]TJ
+/F59 9.9626 Tf 388.68 132.281 Td [(prec)]TJ
 ET
 q
-1 0 0 1 359.42 132.48 cm
+1 0 0 1 410.229 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 362.558 132.281 Td [(type)]TJ
+/F59 9.9626 Tf 413.367 132.281 Td [(type)]TJ
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf -98.279 -41.843 Td [(149)]TJ
+/F54 9.9626 Tf -98.279 -41.843 Td [(152)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1857 0 obj
+1876 0 obj
 <<
-/Length 1022      
+/Length 1021      
 >>
 stream
 0 g 0 G
 0 g 0 G
 0 g 0 G
 BT
-/F51 9.9626 Tf 150.705 706.129 Td [(info)]TJ
+/F51 9.9626 Tf 99.895 706.129 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ -24.906 -21.918 Td [(The)]TJ/F59 9.9626 Tf 20.387 0 Td [(amold)]TJ/F54 9.9626 Tf 26.152 0 Td [(,)]TJ/F59 9.9626 Tf 6.506 0 Td [(vmold)]TJ/F54 9.9626 Tf 29.862 0 Td [(and)]TJ/F59 9.9626 Tf 20.577 0 Td [(imold)]TJ/F54 9.9626 Tf 29.862 0 Td [(ar)18(guments)-372(may)-373(be)-372(employed)-373(to)-372(interface)-372(with)]TJ -133.346 -11.955 Td [(special)-250(devices,)-250(such)-250(as)-250(GPUs)-250(and)-250(other)-250(accelerators.)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ -24.907 -21.918 Td [(The)]TJ/F59 9.9626 Tf 20.388 0 Td [(amold)]TJ/F54 9.9626 Tf 26.152 0 Td [(,)]TJ/F59 9.9626 Tf 6.506 0 Td [(vmold)]TJ/F54 9.9626 Tf 29.862 0 Td [(and)]TJ/F59 9.9626 Tf 20.577 0 Td [(imold)]TJ/F54 9.9626 Tf 29.862 0 Td [(ar)18(guments)-372(may)-373(be)-372(employed)-373(to)-372(interface)-372(with)]TJ -133.347 -11.955 Td [(special)-250(devices,)-250(such)-250(as)-250(GPUs)-250(and)-250(other)-250(accelerators.)]TJ
 0 g 0 G
- 164.383 -533.997 Td [(150)]TJ
+ 164.384 -533.997 Td [(153)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1865 0 obj
+1884 0 obj
 <<
-/Length 5659      
+/Length 5673      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(10.3)-1000(apply)-250(\227)-250(Preconditioner)-250(application)-250(routine)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(10.3)-1000(apply)-250(\227)-250(Preconditioner)-250(application)-250(routine)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%apply\050x,y,desc_a,info,trans,work\051)]TJ 0 -11.955 Td [(call)-525(prec%apply\050x,desc_a,info,trans\051)]TJ
@@ -24748,143 +25008,143 @@ BT
 0 g 0 G
  0 -19.925 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.836 0 Td [(local)]TJ/F54 9.9626 Tf -117.278 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.837 0 Td [(local)]TJ/F54 9.9626 Tf -117.279 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 337.631 577.775 cm
+1 0 0 1 388.441 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 340.77 577.576 Td [(prec)]TJ
+/F59 9.9626 Tf 391.579 577.576 Td [(prec)]TJ
 ET
 q
-1 0 0 1 362.319 577.775 cm
+1 0 0 1 413.128 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 365.457 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 416.266 577.576 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -286.483 -19.925 Td [(x)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(sour)18(ce)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 111.142 0 Td [(local)]TJ/F54 9.9626 Tf -96.198 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(sour)18(ce)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 111.142 0 Td [(local)]TJ/F54 9.9626 Tf -96.198 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 359.808 521.985 cm
+1 0 0 1 410.618 521.985 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 362.947 521.785 Td [(T)]TJ
+/F59 9.9626 Tf 413.756 521.785 Td [(T)]TJ
 ET
 q
-1 0 0 1 368.804 521.985 cm
+1 0 0 1 419.614 521.985 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 371.943 521.785 Td [(vect)]TJ
+/F59 9.9626 Tf 422.752 521.785 Td [(vect)]TJ
 ET
 q
-1 0 0 1 393.492 521.985 cm
+1 0 0 1 444.301 521.985 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 396.63 521.785 Td [(type)]TJ
+/F59 9.9626 Tf 447.439 521.785 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -317.656 -19.925 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 502.059 cm
+1 0 0 1 171.218 502.059 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 501.86 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 501.86 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 200.207 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 341.328 466.194 cm
+1 0 0 1 392.137 466.194 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 344.466 465.994 Td [(desc)]TJ
+/F59 9.9626 Tf 395.275 465.994 Td [(desc)]TJ
 ET
 q
-1 0 0 1 366.015 466.194 cm
+1 0 0 1 416.824 466.194 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 369.153 465.994 Td [(type)]TJ
+/F59 9.9626 Tf 419.963 465.994 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -290.179 -19.925 Td [(trans)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.666 0 Td [(Scope:)]TJ -2.759 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(character)74(.)]TJ
+/F54 9.9626 Tf 27.666 0 Td [(Scope:)]TJ -2.76 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(character)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(work)]TJ
+/F51 9.9626 Tf -24.906 -19.926 Td [(work)]TJ
 0 g 0 G
-/F54 9.9626 Tf 28.782 0 Td [(an)-250(optional)-250(work)-250(space)-250(Scope:)]TJ/F51 9.9626 Tf 136.477 0 Td [(local)]TJ/F54 9.9626 Tf -140.352 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(double)-250(pr)18(ecision)-250(array)111(.)]TJ
+/F54 9.9626 Tf 28.782 0 Td [(an)-250(optional)-250(work)-250(space)-250(Scope:)]TJ/F51 9.9626 Tf 136.476 0 Td [(local)]TJ/F54 9.9626 Tf -140.352 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(double)-250(pr)18(ecision)-250(array)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.906 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -19.925 Td [(y)]TJ
 0 g 0 G
-/F54 9.9626 Tf 10.521 0 Td [(the)-250(destination)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 131.913 0 Td [(local)]TJ/F54 9.9626 Tf -117.527 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 10.52 0 Td [(the)-250(destination)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 131.914 0 Td [(local)]TJ/F54 9.9626 Tf -117.528 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 359.808 276.904 cm
+1 0 0 1 410.618 276.904 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 362.947 276.704 Td [(T)]TJ
+/F59 9.9626 Tf 413.756 276.704 Td [(T)]TJ
 ET
 q
-1 0 0 1 368.804 276.904 cm
+1 0 0 1 419.614 276.904 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 371.943 276.704 Td [(vect)]TJ
+/F59 9.9626 Tf 422.752 276.704 Td [(vect)]TJ
 ET
 q
-1 0 0 1 393.492 276.904 cm
+1 0 0 1 444.301 276.904 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 396.63 276.704 Td [(type)]TJ
+/F59 9.9626 Tf 447.439 276.704 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -317.656 -19.925 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 139.477 -118.52 Td [(151)]TJ
+ 139.477 -118.52 Td [(154)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1871 0 obj
+1889 0 obj
 <<
-/Length 3391      
+/Length 3387      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(10.4)-1000(descr)-250(\227)-250(Prints)-250(a)-250(description)-250(of)-250(current)-250(preconditioner)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(10.4)-1000(descr)-250(\227)-250(Prints)-250(a)-250(description)-250(of)-250(current)-250(preconditioner)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%descr\050info\051)]TJ 0 -11.955 Td [(call)-525(prec%descr\050info,iout,)-525(root\051)]TJ
@@ -24898,313 +25158,161 @@ BT
 0 g 0 G
  0 -19.925 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.837 0 Td [(local)]TJ/F54 9.9626 Tf -117.279 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.836 0 Td [(local)]TJ/F54 9.9626 Tf -117.278 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 388.441 577.775 cm
+1 0 0 1 337.631 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 391.579 577.576 Td [(prec)]TJ
+/F59 9.9626 Tf 340.77 577.576 Td [(prec)]TJ
 ET
 q
-1 0 0 1 413.128 577.775 cm
+1 0 0 1 362.319 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 416.266 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 365.457 577.576 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -286.483 -19.925 Td [(iout)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.243 0 Td [(output)-250(unit.)-310(Scope:)]TJ/F51 9.9626 Tf 87.39 0 Td [(local)]TJ/F54 9.9626 Tf -85.727 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(number)74(.)-310(Default:)-310(default)-250(output)-250(unit.)]TJ
+/F54 9.9626 Tf 23.243 0 Td [(output)-250(unit.)-310(Scope:)]TJ/F51 9.9626 Tf 87.391 0 Td [(local)]TJ/F54 9.9626 Tf -85.727 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(number)74(.)-310(Default:)-310(default)-250(output)-250(unit.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -19.925 Td [(root)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.252 0 Td [(Pr)18(ocess)-250(fr)18(om)-250(which)-250(to)-250(print)-250(Scope:)]TJ/F51 9.9626 Tf 155.834 0 Td [(local)]TJ/F54 9.9626 Tf -154.18 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-387(as:)-585(an)-387(integer)-387(number)-388(between)-387(0)-387(and)]TJ/F52 9.9626 Tf 220.442 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 14.01 0 Td [(\000)]TJ/F54 9.9626 Tf 10.638 0 Td [(1,)-422(in)-387(which)-387(case)]TJ -245.09 -11.955 Td [(the)-314(speci\002ed)-313(pr)18(ocess)-314(will)-313(print)-314(the)-313(description,)-330(or)]TJ/F83 10.3811 Tf 225.38 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1,)-329(in)-314(which)-314(case)-313(all)]TJ -233.574 -11.955 Td [(pr)18(ocesses)-250(will)-250(print.)-310(Default:)-310(0.)]TJ
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-250(fr)18(om)-250(which)-250(to)-250(print)-250(Scope:)]TJ/F51 9.9626 Tf 155.834 0 Td [(local)]TJ/F54 9.9626 Tf -154.18 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-387(as:)-585(an)-387(integer)-387(number)-388(between)-387(0)-387(and)]TJ/F52 9.9626 Tf 220.442 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 14.01 0 Td [(\000)]TJ/F54 9.9626 Tf 10.638 0 Td [(1,)-422(in)-387(which)-387(case)]TJ -245.09 -11.955 Td [(the)-314(speci\002e)1(d)-314(pr)18(ocess)-314(will)-313(print)-314(the)-313(description,)-330(or)]TJ/F83 10.3811 Tf 225.38 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1,)-329(in)-314(which)-314(case)-313(all)]TJ -233.574 -11.955 Td [(pr)18(ocesses)-250(will)-250(print.)-310(Default:)-310(0.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -19.925 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -19.925 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
-0 g 0 G
- 139.477 -263.975 Td [(152)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1875 0 obj
-<<
-/Length 974       
->>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(10.5)-1000(clone)-250(\227)-250(clone)-250(current)-250(preconditioner)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf 0 -18.964 Td [(call)-1050(prec%clone\050precout,info\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(prec)]TJ
-0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -77.918 -33.873 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.926 Td [(precout)]TJ
-0 g 0 G
-/F54 9.9626 Tf 39.293 0 Td [(A)-250(copy)-250(of)-250(the)-250(input)-250(object.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -39.293 -19.925 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Return)-250(code.)]TJ
-0 g 0 G
- 140.583 -449.28 Td [(153)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1881 0 obj
-<<
-/Length 2709      
->>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(10.6)-1000(free)-250(\227)-250(Free)-250(a)-250(preconditioner)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%free\050info\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(prec)]TJ
-0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 388.441 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 391.579 577.576 Td [(prec)]TJ
-ET
-q
-1 0 0 1 413.128 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 416.266 577.576 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -286.483 -19.925 Td [(On)-250(Exit)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.926 Td [(prec)]TJ
-0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -30.874 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 388.441 502.059 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 391.579 501.86 Td [(prec)]TJ
-ET
-q
-1 0 0 1 413.128 502.059 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 416.266 501.86 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -286.483 -19.925 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ/F54 9.9626 Tf 34.363 0 Td [(Releases)-250(all)-250(internal)-250(storage.)]TJ
-0 g 0 G
- 130.02 -333.713 Td [(154)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1885 0 obj
-<<
-/Length 547       
->>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 14.3462 Tf 99.895 705.784 Td [(11)-1000(Iterative)-250(Methods)]TJ/F54 9.9626 Tf 0 -22.702 Td [(In)-402(this)-403(chapter)-402(we)-403(pr)18(ovide)-402(r)18(outines)-403(for)-402(pr)18(econditioners)-402(and)-403(iterative)-402(meth-)]TJ 0 -11.955 Td [(ods.)-472(The)-304(interfaces)-304(for)-304(Krylov)-304(subspace)-304(methods)-303(ar)18(e)-304(available)-304(in)-304(the)-304(module)]TJ/F59 9.9626 Tf 0 -11.955 Td [(psb_krylov_mod)]TJ/F54 9.9626 Tf 73.225 0 Td [(.)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 91.159 -568.734 Td [(155)]TJ
+ 139.477 -263.975 Td [(155)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1788 0 obj
+1790 0 obj
 <<
 /Type /ObjStm
 /N 100
-/First 968
-/Length 10357     
+/First 967
+/Length 10102     
 >>
 stream
-1784 0 509 58 1785 115 1786 172 1781 230 1790 324 1792 442 513 501 1789 559 1795 653
-1793 792 1797 937 517 995 1798 1052 1799 1110 1794 1168 1802 1262 1800 1401 1804 1546 521 1605
-1805 1663 1806 1722 1801 1781 1809 1875 1807 2014 1811 2159 525 2217 1812 2274 1813 2331 1808 2389
-1816 2483 1814 2622 1818 2765 529 2824 1819 2882 1820 2940 1815 2999 1823 3093 1821 3232 1825 3377
-533 3435 1826 3492 1827 3549 1822 3607 1831 3701 1829 3840 1833 3984 537 4043 1834 4101 1835 4159
-1830 4218 1837 4312 1839 4430 541 4488 1836 4545 1843 4639 1840 4787 1841 4934 1845 5082 545 5141
-1846 5199 1842 5257 1852 5377 1847 5543 1848 5688 1849 5835 1850 5982 1854 6129 549 6187 1851 6244
-1856 6338 1858 6456 1855 6515 1864 6609 1859 6775 1860 6920 1861 7063 1862 7210 1866 7354 553 7412
-1863 7469 1870 7563 1868 7702 1872 7847 557 7906 1869 7964 1874 8084 1876 8202 561 8260 1873 8317
-1880 8411 1877 8559 1878 8704 1882 8851 565 8910 1879 8968 1884 9062 1886 9180 569 9238 1883 9295
-% 1784 0 obj
-<<
-/D [1782 0 R /XYZ 98.895 753.953 null]
->>
-% 509 0 obj
-<<
-/D [1782 0 R /XYZ 99.895 716.092 null]
->>
-% 1785 0 obj
-<<
-/D [1782 0 R /XYZ 99.895 678.98 null]
->>
+1786 0 501 58 1787 115 1788 172 1783 230 1792 311 1794 429 505 488 1795 546 1796 605
+1791 664 1798 745 1800 863 509 921 1801 978 1802 1035 1797 1093 1804 1187 1806 1305 513 1364
+1803 1422 1809 1516 1807 1655 1811 1800 517 1858 1812 1915 1813 1973 1808 2031 1816 2125 1814 2264
+1818 2409 521 2468 1819 2526 1820 2585 1815 2644 1823 2738 1821 2877 1825 3022 525 3080 1826 3137
+1827 3194 1822 3252 1831 3346 1829 3485 1833 3628 529 3687 1834 3745 1835 3803 1830 3862 1838 3956
+1836 4095 1840 4240 533 4298 1841 4355 1842 4413 1837 4471 1845 4591 1843 4730 1847 4872 537 4931
+1848 4989 1849 5048 1844 5107 1851 5227 1853 5345 1850 5403 1855 5484 1857 5602 541 5661 1854 5719
+1861 5813 1858 5961 1859 6108 1863 6256 545 6314 1864 6371 1860 6429 1871 6549 1866 6715 1867 6860
+1868 7006 1869 7153 1873 7300 549 7359 1870 7417 1875 7511 1877 7629 1874 7687 1883 7781 1878 7947
+1879 8092 1880 8235 1881 8381 1885 8525 553 8584 1882 8642 1888 8736 1886 8875 1890 9020 557 9078
 % 1786 0 obj
 <<
-/D [1782 0 R /XYZ 99.895 679.195 null]
->>
-% 1781 0 obj
-<<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1784 0 R /XYZ 98.895 753.953 null]
 >>
-% 1790 0 obj
+% 501 0 obj
 <<
-/Type /Page
-/Contents 1791 0 R
-/Resources 1789 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1787 0 R
+/D [1784 0 R /XYZ 99.895 716.092 null]
 >>
-% 1792 0 obj
+% 1787 0 obj
 <<
-/D [1790 0 R /XYZ 149.705 753.953 null]
+/D [1784 0 R /XYZ 99.895 678.98 null]
 >>
-% 513 0 obj
+% 1788 0 obj
 <<
-/D [1790 0 R /XYZ 150.705 716.092 null]
+/D [1784 0 R /XYZ 99.895 679.195 null]
 >>
-% 1789 0 obj
+% 1783 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1795 0 obj
+% 1792 0 obj
 <<
 /Type /Page
-/Contents 1796 0 R
-/Resources 1794 0 R
+/Contents 1793 0 R
+/Resources 1791 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1787 0 R
-/Annots [ 1793 0 R ]
->>
-% 1793 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 438.278 369.462 450.338]
-/A << /S /GoTo /D (spdata) >>
+/Parent 1789 0 R
 >>
-% 1797 0 obj
+% 1794 0 obj
 <<
-/D [1795 0 R /XYZ 98.895 753.953 null]
+/D [1792 0 R /XYZ 149.705 753.953 null]
 >>
-% 517 0 obj
+% 505 0 obj
 <<
-/D [1795 0 R /XYZ 99.895 716.092 null]
+/D [1792 0 R /XYZ 150.705 716.092 null]
 >>
-% 1798 0 obj
+% 1795 0 obj
 <<
-/D [1795 0 R /XYZ 99.895 676.015 null]
+/D [1792 0 R /XYZ 150.705 689.963 null]
 >>
-% 1799 0 obj
+% 1796 0 obj
 <<
-/D [1795 0 R /XYZ 99.895 679.195 null]
+/D [1792 0 R /XYZ 150.705 693.143 null]
 >>
-% 1794 0 obj
+% 1791 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1802 0 obj
+% 1798 0 obj
 <<
 /Type /Page
-/Contents 1803 0 R
-/Resources 1801 0 R
+/Contents 1799 0 R
+/Resources 1797 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1787 0 R
-/Annots [ 1800 0 R ]
+/Parent 1789 0 R
 >>
 % 1800 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 571.778 420.271 583.837]
-/A << /S /GoTo /D (spdata) >>
+/D [1798 0 R /XYZ 98.895 753.953 null]
 >>
-% 1804 0 obj
+% 509 0 obj
 <<
-/D [1802 0 R /XYZ 149.705 753.953 null]
+/D [1798 0 R /XYZ 99.895 716.092 null]
 >>
-% 521 0 obj
+% 1801 0 obj
+<<
+/D [1798 0 R /XYZ 99.895 678.98 null]
+>>
+% 1802 0 obj
 <<
-/D [1802 0 R /XYZ 150.705 716.092 null]
+/D [1798 0 R /XYZ 99.895 679.195 null]
+>>
+% 1797 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1805 0 obj
+% 1804 0 obj
 <<
-/D [1802 0 R /XYZ 150.705 676.015 null]
+/Type /Page
+/Contents 1805 0 R
+/Resources 1803 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1789 0 R
 >>
 % 1806 0 obj
 <<
-/D [1802 0 R /XYZ 150.705 679.195 null]
+/D [1804 0 R /XYZ 149.705 753.953 null]
 >>
-% 1801 0 obj
+% 513 0 obj
+<<
+/D [1804 0 R /XYZ 150.705 716.092 null]
+>>
+% 1803 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
@@ -25215,7 +25323,7 @@ stream
 /Contents 1810 0 R
 /Resources 1808 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1787 0 R
+/Parent 1789 0 R
 /Annots [ 1807 0 R ]
 >>
 % 1807 0 obj
@@ -25230,13 +25338,13 @@ stream
 <<
 /D [1809 0 R /XYZ 98.895 753.953 null]
 >>
-% 525 0 obj
+% 517 0 obj
 <<
 /D [1809 0 R /XYZ 99.895 716.092 null]
 >>
 % 1812 0 obj
 <<
-/D [1809 0 R /XYZ 99.895 678.98 null]
+/D [1809 0 R /XYZ 99.895 676.015 null]
 >>
 % 1813 0 obj
 <<
@@ -25253,7 +25361,7 @@ stream
 /Contents 1817 0 R
 /Resources 1815 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1787 0 R
+/Parent 1789 0 R
 /Annots [ 1814 0 R ]
 >>
 % 1814 0 obj
@@ -25261,20 +25369,20 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [352.526 426.323 428.58 438.383]
-/A << /S /GoTo /D (vdata) >>
+/Rect [342.753 571.778 420.271 583.837]
+/A << /S /GoTo /D (spdata) >>
 >>
 % 1818 0 obj
 <<
 /D [1816 0 R /XYZ 149.705 753.953 null]
 >>
-% 529 0 obj
+% 521 0 obj
 <<
 /D [1816 0 R /XYZ 150.705 716.092 null]
 >>
 % 1819 0 obj
 <<
-/D [1816 0 R /XYZ 150.705 678.98 null]
+/D [1816 0 R /XYZ 150.705 676.015 null]
 >>
 % 1820 0 obj
 <<
@@ -25299,14 +25407,14 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 571.778 369.462 583.837]
+/Rect [291.943 438.278 369.462 450.338]
 /A << /S /GoTo /D (spdata) >>
 >>
 % 1825 0 obj
 <<
 /D [1823 0 R /XYZ 98.895 753.953 null]
 >>
-% 533 0 obj
+% 525 0 obj
 <<
 /D [1823 0 R /XYZ 99.895 716.092 null]
 >>
@@ -25337,14 +25445,14 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [452.361 571.778 528.415 583.837]
+/Rect [352.526 426.323 428.58 438.383]
 /A << /S /GoTo /D (vdata) >>
 >>
 % 1833 0 obj
 <<
 /D [1831 0 R /XYZ 149.705 753.953 null]
 >>
-% 537 0 obj
+% 529 0 obj
 <<
 /D [1831 0 R /XYZ 150.705 716.092 null]
 >>
@@ -25361,374 +25469,516 @@ stream
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
+% 1838 0 obj
+<<
+/Type /Page
+/Contents 1839 0 R
+/Resources 1837 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1828 0 R
+/Annots [ 1836 0 R ]
+>>
+% 1836 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [291.943 574.778 369.462 586.838]
+/A << /S /GoTo /D (spdata) >>
+>>
+% 1840 0 obj
+<<
+/D [1838 0 R /XYZ 98.895 753.953 null]
+>>
+% 533 0 obj
+<<
+/D [1838 0 R /XYZ 99.895 716.092 null]
+>>
+% 1841 0 obj
+<<
+/D [1838 0 R /XYZ 99.895 679.441 null]
+>>
+% 1842 0 obj
+<<
+/D [1838 0 R /XYZ 99.895 679.657 null]
+>>
 % 1837 0 obj
 <<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F94 915 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1845 0 obj
+<<
+/Type /Page
+/Contents 1846 0 R
+/Resources 1844 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1828 0 R
+/Annots [ 1843 0 R ]
+>>
+% 1843 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [452.361 574.59 528.415 586.65]
+/A << /S /GoTo /D (vdata) >>
+>>
+% 1847 0 obj
+<<
+/D [1845 0 R /XYZ 149.705 753.953 null]
+>>
+% 537 0 obj
+<<
+/D [1845 0 R /XYZ 150.705 716.092 null]
+>>
+% 1848 0 obj
+<<
+/D [1845 0 R /XYZ 150.705 679.413 null]
+>>
+% 1849 0 obj
+<<
+/D [1845 0 R /XYZ 150.705 679.628 null]
+>>
+% 1844 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F94 915 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1851 0 obj
+<<
+/Type /Page
+/Contents 1852 0 R
+/Resources 1850 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1828 0 R
+>>
+% 1853 0 obj
+<<
+/D [1851 0 R /XYZ 98.895 753.953 null]
+>>
+% 1850 0 obj
+<<
+/Font << /F94 915 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1855 0 obj
+<<
 /Type /Page
-/Contents 1838 0 R
-/Resources 1836 0 R
+/Contents 1856 0 R
+/Resources 1854 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1828 0 R
 >>
-% 1839 0 obj
+% 1857 0 obj
 <<
-/D [1837 0 R /XYZ 98.895 753.953 null]
+/D [1855 0 R /XYZ 149.705 753.953 null]
 >>
 % 541 0 obj
 <<
-/D [1837 0 R /XYZ 99.895 716.092 null]
+/D [1855 0 R /XYZ 150.705 716.092 null]
 >>
-% 1836 0 obj
+% 1854 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1843 0 obj
+% 1861 0 obj
 <<
 /Type /Page
-/Contents 1844 0 R
-/Resources 1842 0 R
+/Contents 1862 0 R
+/Resources 1860 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1828 0 R
-/Annots [ 1840 0 R 1841 0 R ]
+/Parent 1865 0 R
+/Annots [ 1858 0 R 1859 0 R ]
 >>
-% 1840 0 obj
+% 1858 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [371.126 442.264 438.184 454.323]
+/Rect [320.317 442.264 387.374 454.323]
 /A << /S /GoTo /D (precdata) >>
 >>
-% 1841 0 obj
+% 1859 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [222.066 352.6 228.343 366.303]
+/Rect [171.257 352.6 177.533 366.303]
 /A << /S /GoTo /D (Hfootnote.4) >>
 >>
-% 1845 0 obj
+% 1863 0 obj
 <<
-/D [1843 0 R /XYZ 149.705 753.953 null]
+/D [1861 0 R /XYZ 98.895 753.953 null]
 >>
 % 545 0 obj
 <<
-/D [1843 0 R /XYZ 150.705 716.092 null]
+/D [1861 0 R /XYZ 99.895 716.092 null]
 >>
-% 1846 0 obj
+% 1864 0 obj
 <<
-/D [1843 0 R /XYZ 165.051 129.79 null]
+/D [1861 0 R /XYZ 114.242 129.79 null]
 >>
-% 1842 0 obj
+% 1860 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1852 0 obj
+% 1871 0 obj
 <<
 /Type /Page
-/Contents 1853 0 R
-/Resources 1851 0 R
+/Contents 1872 0 R
+/Resources 1870 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1828 0 R
-/Annots [ 1847 0 R 1848 0 R 1849 0 R 1850 0 R ]
+/Parent 1865 0 R
+/Annots [ 1866 0 R 1867 0 R 1868 0 R 1869 0 R ]
 >>
-% 1847 0 obj
+% 1866 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [314.678 576.377 392.197 588.437]
+/Rect [365.487 576.377 443.006 588.437]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1848 0 obj
+% 1867 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [401.093 505.741 468.151 517.801]
+/Rect [451.902 505.741 518.96 517.801]
 /A << /S /GoTo /D (precdata) >>
 >>
-% 1849 0 obj
+% 1868 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [371.454 435.105 438.512 447.165]
+/Rect [422.264 435.105 489.322 447.165]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1850 0 obj
+% 1869 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [317.418 128.475 384.475 140.535]
+/Rect [368.227 128.475 435.285 140.535]
 /A << /S /GoTo /D (precdata) >>
 >>
-% 1854 0 obj
+% 1873 0 obj
 <<
-/D [1852 0 R /XYZ 98.895 753.953 null]
+/D [1871 0 R /XYZ 149.705 753.953 null]
 >>
 % 549 0 obj
 <<
-/D [1852 0 R /XYZ 99.895 716.092 null]
+/D [1871 0 R /XYZ 150.705 716.092 null]
 >>
-% 1851 0 obj
+% 1870 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1856 0 obj
+% 1875 0 obj
 <<
 /Type /Page
-/Contents 1857 0 R
-/Resources 1855 0 R
+/Contents 1876 0 R
+/Resources 1874 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1828 0 R
+/Parent 1865 0 R
 >>
-% 1858 0 obj
+% 1877 0 obj
 <<
-/D [1856 0 R /XYZ 149.705 753.953 null]
+/D [1875 0 R /XYZ 98.895 753.953 null]
 >>
-% 1855 0 obj
+% 1874 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1864 0 obj
+% 1883 0 obj
 <<
 /Type /Page
-/Contents 1865 0 R
-/Resources 1863 0 R
+/Contents 1884 0 R
+/Resources 1882 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1867 0 R
-/Annots [ 1859 0 R 1860 0 R 1861 0 R 1862 0 R ]
+/Parent 1865 0 R
+/Annots [ 1878 0 R 1879 0 R 1880 0 R 1881 0 R ]
 >>
-% 1859 0 obj
+% 1878 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [320.317 573.77 387.374 585.83]
+/Rect [371.126 573.77 438.184 585.83]
 /A << /S /GoTo /D (precdata) >>
 >>
-% 1860 0 obj
+% 1879 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.493 517.98 418.548 530.039]
+/Rect [393.303 517.98 469.357 530.039]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1861 0 obj
+% 1880 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [324.013 462.189 391.071 474.248]
+/Rect [374.822 462.189 441.88 474.248]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1862 0 obj
+% 1881 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.493 272.899 418.548 284.958]
+/Rect [393.303 272.899 469.357 284.958]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1866 0 obj
+% 1885 0 obj
 <<
-/D [1864 0 R /XYZ 98.895 753.953 null]
+/D [1883 0 R /XYZ 149.705 753.953 null]
 >>
 % 553 0 obj
 <<
-/D [1864 0 R /XYZ 99.895 716.092 null]
+/D [1883 0 R /XYZ 150.705 716.092 null]
 >>
-% 1863 0 obj
+% 1882 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1870 0 obj
+% 1888 0 obj
 <<
 /Type /Page
-/Contents 1871 0 R
-/Resources 1869 0 R
+/Contents 1889 0 R
+/Resources 1887 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1867 0 R
-/Annots [ 1868 0 R ]
+/Parent 1865 0 R
+/Annots [ 1886 0 R ]
 >>
-% 1868 0 obj
+% 1886 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [371.126 573.77 438.184 585.83]
+/Rect [320.317 573.77 387.374 585.83]
 /A << /S /GoTo /D (precdata) >>
 >>
-% 1872 0 obj
+% 1890 0 obj
 <<
-/D [1870 0 R /XYZ 149.705 753.953 null]
+/D [1888 0 R /XYZ 98.895 753.953 null]
 >>
 % 557 0 obj
 <<
-/D [1870 0 R /XYZ 150.705 716.092 null]
->>
-% 1869 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F83 813 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1874 0 obj
-<<
-/Type /Page
-/Contents 1875 0 R
-/Resources 1873 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1867 0 R
->>
-% 1876 0 obj
-<<
-/D [1874 0 R /XYZ 98.895 753.953 null]
->>
-% 561 0 obj
-<<
-/D [1874 0 R /XYZ 99.895 716.092 null]
->>
-% 1873 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1880 0 obj
-<<
-/Type /Page
-/Contents 1881 0 R
-/Resources 1879 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1867 0 R
-/Annots [ 1877 0 R 1878 0 R ]
->>
-% 1877 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [371.126 573.77 438.184 585.83]
-/A << /S /GoTo /D (precdata) >>
->>
-% 1878 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [371.126 498.054 438.184 510.114]
-/A << /S /GoTo /D (precdata) >>
->>
-% 1882 0 obj
-<<
-/D [1880 0 R /XYZ 149.705 753.953 null]
->>
-% 565 0 obj
-<<
-/D [1880 0 R /XYZ 150.705 716.092 null]
->>
-% 1879 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1884 0 obj
-<<
-/Type /Page
-/Contents 1885 0 R
-/Resources 1883 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1867 0 R
+/D [1888 0 R /XYZ 99.895 716.092 null]
 >>
-% 1886 0 obj
+
+endstream
+endobj
+1894 0 obj
 <<
-/D [1884 0 R /XYZ 98.895 753.953 null]
+/Length 973       
 >>
-% 569 0 obj
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(10.5)-1000(clone)-250(\227)-250(clone)-250(current)-250(preconditioner)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf 0 -18.964 Td [(call)-1050(prec%clone\050precout,info\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -77.917 -33.873 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(precout)]TJ
+0 g 0 G
+/F54 9.9626 Tf 39.292 0 Td [(A)-250(copy)-250(of)-250(the)-250(input)-250(object.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -39.292 -19.925 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.8 0 Td [(Return)-250(code.)]TJ
+0 g 0 G
+ 140.583 -449.28 Td [(156)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1900 0 obj
 <<
-/D [1884 0 R /XYZ 99.895 716.092 null]
+/Length 2703      
 >>
-% 1883 0 obj
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(10.6)-1000(free)-250(\227)-250(Free)-250(a)-250(preconditioner)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%free\050info\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 337.631 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 340.77 577.576 Td [(prec)]TJ
+ET
+q
+1 0 0 1 362.319 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 365.457 577.576 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -286.483 -19.925 Td [(On)-250(Exit)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.349 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -30.874 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 337.631 502.059 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 340.77 501.86 Td [(prec)]TJ
+ET
+q
+1 0 0 1 362.319 502.059 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 365.457 501.86 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -286.483 -19.925 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F54 9.9626 Tf 34.363 0 Td [(Releases)-250(all)-250(internal)-250(storage.)]TJ
+0 g 0 G
+ 130.021 -333.713 Td [(157)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1905 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
-/ProcSet [ /PDF /Text ]
+/Length 548       
 >>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 14.3462 Tf 150.705 705.784 Td [(11)-1000(Iterative)-250(Methods)]TJ/F54 9.9626 Tf 0 -22.702 Td [(In)-402(this)-403(chapter)-402(we)-403(pr)18(ovide)-402(r)18(outines)-403(for)-402(pr)18(econditioners)-402(and)-403(iterative)-402(meth-)]TJ 0 -11.955 Td [(ods.)-472(The)-304(interfaces)-304(for)-304(Krylov)-304(subspace)-303(methods)-304(ar)18(e)-304(available)-304(in)-304(the)-304(module)]TJ/F59 9.9626 Tf 0 -11.955 Td [(psb_krylov_mod)]TJ/F54 9.9626 Tf 73.225 0 Td [(.)]TJ
+0 g 0 G
+ 91.158 -568.734 Td [(158)]TJ
+0 g 0 G
+ET
 
 endstream
 endobj
-1892 0 obj
+1912 0 obj
 <<
-/Length 8248      
+/Length 8246      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(11.1)-1000(psb)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(11.1)-1000(psb)]TJ
 ET
 q
-1 0 0 1 204.216 706.328 cm
+1 0 0 1 153.407 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 207.803 706.129 Td [(krylov)-250(\227)-250(Krylov)-250(Methods)-250(Driver)-250(Routine)]TJ/F54 9.9626 Tf -57.098 -18.964 Td [(This)-266(subr)18(outine)-266(is)-267(a)-266(driver)-266(that)-266(pr)18(ovides)-267(a)-266(general)-266(interface)-266(for)-267(all)-266(the)-266(Krylov-)]TJ 0 -11.955 Td [(Subspace)-250(family)-250(methods)-250(implemented)-250(in)-250(PSBLAS)-250(version)-250(2.)]TJ 14.944 -11.955 Td [(The)-250(stopping)-250(criterion)-250(can)-250(take)-250(the)-250(following)-250(values:)]TJ
+/F51 11.9552 Tf 156.993 706.129 Td [(krylov)-250(\227)-250(Krylov)-250(Methods)-250(Driver)-250(Routine)]TJ/F54 9.9626 Tf -57.098 -18.964 Td [(This)-266(subr)18(outine)-266(is)-267(a)-266(driver)-266(that)-267(p)1(r)18(ovides)-267(a)-266(general)-266(interface)-266(for)-267(all)-266(the)-266(Krylov-)]TJ 0 -11.955 Td [(Subspace)-250(family)-250(methods)-250(implemented)-250(in)-250(PSBLAS)-250(version)-250(2.)]TJ 14.944 -11.955 Td [(The)-250(stopping)-250(criterion)-250(can)-250(take)-250(the)-250(following)-250(values:)]TJ
 0 g 0 G
 /F51 9.9626 Tf -14.944 -18.774 Td [(1)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(normwise)-222(backwar)18(d)-221(err)18(or)-222(in)-221(the)-222(in\002nity)-222(norm;)-231(the)-221(iteration)-222(is)-222(st)1(opped)-222(when)]TJ/F52 9.9626 Tf 109.035 -26.864 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.141 0 Td [(=)]TJ/F83 10.3811 Tf 40.619 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.042 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(normwise)-222(backwar)18(d)-221(err)18(or)-222(in)-221(the)-222(in\002nity)-222(norm;)-231(the)-221(iteration)-222(is)-222(stopped)-221(when)]TJ/F52 9.9626 Tf 109.036 -26.864 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.14 0 Td [(=)]TJ/F83 10.3811 Tf 40.62 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
 ET
 q
-1 0 0 1 297.001 620.108 cm
+1 0 0 1 246.191 620.108 cm
 []0 d 0 J 0.398 w 0 0 m 74.372 0 l S
 Q
 BT
-/F85 10.3811 Tf 297.125 610.783 Td [(\050)]TJ/F83 10.3811 Tf 4.274 0 Td [(k)]TJ/F52 9.9626 Tf 5.938 0 Td [(A)]TJ/F83 10.3811 Tf 7.442 0 Td [(k)-24(k)]TJ/F52 9.9626 Tf 11.048 0 Td [(x)]TJ/F52 7.5716 Tf 5.148 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ/F85 10.3811 Tf 7.377 0 Td [(+)]TJ/F83 10.3811 Tf 10.255 0 Td [(k)]TJ/F52 9.9626 Tf 5.44 0 Td [(b)]TJ/F83 10.3811 Tf 4.862 0 Td [(k)]TJ/F85 10.3811 Tf 5.439 0 Td [(\051)]TJ/F61 10.3811 Tf 8.237 6.834 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ
+/F85 10.3811 Tf 246.316 610.783 Td [(\050)]TJ/F83 10.3811 Tf 4.274 0 Td [(k)]TJ/F52 9.9626 Tf 5.938 0 Td [(A)]TJ/F83 10.3811 Tf 7.442 0 Td [(k)-24(k)]TJ/F52 9.9626 Tf 11.048 0 Td [(x)]TJ/F52 7.5716 Tf 5.147 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.876 1.96 Td [(k)]TJ/F85 10.3811 Tf 7.376 0 Td [(+)]TJ/F83 10.3811 Tf 10.256 0 Td [(k)]TJ/F52 9.9626 Tf 5.44 0 Td [(b)]TJ/F83 10.3811 Tf 4.861 0 Td [(k)]TJ/F85 10.3811 Tf 5.44 0 Td [(\051)]TJ/F61 10.3811 Tf 8.236 6.834 Td [(<)]TJ/F52 9.9626 Tf 11.087 0 Td [(e)-80(p)-25(s)]TJ
 0 g 0 G
-/F51 9.9626 Tf -235.841 -29.908 Td [(2)]TJ
+/F51 9.9626 Tf -235.842 -29.908 Td [(2)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(Relative)-250(r)18(esidual)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 136.209 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.14 0 Td [(=)]TJ/F83 10.3811 Tf 13.446 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.042 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(Relative)-250(r)18(esidual)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 136.209 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.141 0 Td [(=)]TJ/F83 10.3811 Tf 13.446 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
 ET
 q
-1 0 0 1 324.174 563.335 cm
+1 0 0 1 273.365 563.335 cm
 []0 d 0 J 0.398 w 0 0 m 20.025 0 l S
 Q
 BT
-/F83 10.3811 Tf 324.299 554.01 Td [(k)]TJ/F52 9.9626 Tf 5.439 0 Td [(b)]TJ/F83 10.3811 Tf 4.862 0 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ
+/F83 10.3811 Tf 273.49 554.01 Td [(k)]TJ/F52 9.9626 Tf 5.439 0 Td [(b)]TJ/F83 10.3811 Tf 4.862 0 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ
 0 g 0 G
-/F51 9.9626 Tf -208.667 -29.848 Td [(3)]TJ
+/F51 9.9626 Tf -208.668 -29.848 Td [(3)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(Relative)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 134.486 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.141 0 Td [(=)]TJ/F83 10.3811 Tf 15.169 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.042 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(Relative)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 134.486 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.14 0 Td [(=)]TJ/F83 10.3811 Tf 15.17 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
 ET
 q
-1 0 0 1 322.451 506.622 cm
+1 0 0 1 271.641 506.622 cm
 []0 d 0 J 0.398 w 0 0 m 23.472 0 l S
 Q
 BT
-/F83 10.3811 Tf 322.575 497.297 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F54 7.5716 Tf 4 -1.744 Td [(0)]TJ/F83 10.3811 Tf 4.409 1.744 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ/F54 9.9626 Tf -210.391 -29.848 Td [(The)-248(behaviour)-248(is)-248(contr)18(olled)-249(by)-248(the)-248(istop)-248(ar)18(gument)-248(\050see)-248(later\051.)-310(In)-248(the)-248(above)-248(for)18(-)]TJ 0 -11.956 Td [(mulae,)]TJ/F52 9.9626 Tf 32.809 0 Td [(x)]TJ/F52 7.5716 Tf 5.147 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.304 1.96 Td [(is)-256(the)-256(tentative)-256(solution)-257(and)]TJ/F52 9.9626 Tf 125.144 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F85 10.3811 Tf 5.757 1.96 Td [(=)]TJ/F52 9.9626 Tf 11.201 0 Td [(b)]TJ/F83 10.3811 Tf 6.821 0 Td [(\000)]TJ/F52 9.9626 Tf 10.777 0 Td [(A)-42(x)]TJ/F52 7.5716 Tf 12.759 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.303 1.96 Td [(the)-256(corr)18(esponding)-256(r)18(esidual)]TJ -225.063 -11.955 Td [(at)-250(the)]TJ/F52 9.9626 Tf 27.083 0 Td [(i)]TJ/F54 9.9626 Tf 2.964 0 Td [(-th)-250(iteration.)]TJ -28.306 -17.357 Td [(c)-175(a)-175(l)-174(l)-880(p)-105(s)-105(b)]TJ
+/F83 10.3811 Tf 271.766 497.297 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F54 7.5716 Tf 4 -1.744 Td [(0)]TJ/F83 10.3811 Tf 4.408 1.744 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ/F54 9.9626 Tf -210.391 -29.848 Td [(The)-248(behaviour)-248(is)-248(contr)18(olled)-249(by)-248(the)-248(istop)-248(ar)18(gument)-248(\050see)-248(later\051.)-310(In)-248(the)-248(above)-248(for)18(-)]TJ 0 -11.956 Td [(mulae,)]TJ/F52 9.9626 Tf 32.81 0 Td [(x)]TJ/F52 7.5716 Tf 5.147 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.303 1.96 Td [(is)-256(the)-256(tentative)-257(soluti)1(on)-257(and)]TJ/F52 9.9626 Tf 125.144 0 Td [(r)]TJ/F52 7.5716 Tf 4.042 -1.96 Td [(i)]TJ/F85 10.3811 Tf 5.757 1.96 Td [(=)]TJ/F52 9.9626 Tf 11.2 0 Td [(b)]TJ/F83 10.3811 Tf 6.822 0 Td [(\000)]TJ/F52 9.9626 Tf 10.777 0 Td [(A)-42(x)]TJ/F52 7.5716 Tf 12.759 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.303 1.96 Td [(the)-256(corr)18(esponding)-256(r)18(esidual)]TJ -225.064 -11.955 Td [(at)-250(the)]TJ/F52 9.9626 Tf 27.083 0 Td [(i)]TJ/F54 9.9626 Tf 2.964 0 Td [(-th)-250(iteration.)]TJ -28.305 -17.357 Td [(c)-175(a)-175(l)-174(l)-880(p)-105(s)-105(b)]TJ
 ET
 q
-1 0 0 1 201.089 433.215 cm
+1 0 0 1 150.28 433.215 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 205.122 433.015 Td [(k)-105(r)-105(y)-105(l)-104(o)-105(v)-238(\050)-156(m)-21(e)-22(t)-22(h)-21(o)-22(d)-218(,)-208(a)-242(,)-255(p)-80(r)-81(e)-80(c)-335(,)-191(b)-206(,)-203(x)-231(,)-234(e)-60(p)-59(s)-293(,)-273(d)-98(e)-97(s)-98(c)]TJ
+/F54 9.9626 Tf 154.313 433.015 Td [(k)-105(r)-105(y)-104(l)-105(o)-105(v)-238(\050)-156(m)-21(e)-22(t)-21(h)-22(o)-22(d)-218(,)-208(a)-242(,)-255(p)-80(r)-81(e)-80(c)-335(,)-191(b)-206(,)-203(x)-231(,)-234(e)-60(p)-59(s)-293(,)-273(d)-98(e)-97(s)-98(c)]TJ
 ET
 q
-1 0 0 1 402.829 433.215 cm
+1 0 0 1 352.02 433.215 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 406.792 433.015 Td [(a)-371(,)-283(i)-108(n)-108(f)-108(o)-273(,)-57(&)]TJ -227.086 -11.955 Td [(&)-580(i)-69(t)-69(m)-70(a)-69(x)-313(,)-327(i)-151(t)-152(e)-151(r)-478(,)-281(e)-107(r)-106(r)-387(,)-321(i)-145(t)-146(r)-146(a)-145(c)-146(e)-466(,)-336(i)-161(r)-160(s)-161(t)-496(,)-291(i)-116(s)-116(t)-116(o)-116(p)-407(,)-219(c)-43(o)-44(n)-43(d)-177(\051)]TJ
+/F54 9.9626 Tf 355.983 433.015 Td [(a)-370(,)-283(i)-108(n)-108(f)-108(o)-274(,)-57(&)]TJ -227.086 -11.955 Td [(&)-580(i)-69(t)-69(m)-70(a)-69(x)-313(,)-327(i)-151(t)-152(e)-151(r)-478(,)-281(e)-107(r)-106(r)-387(,)-321(i)-145(t)-146(r)-146(a)-145(c)-146(e)-466(,)-336(i)-161(r)-160(s)-161(t)-496(,)-291(i)-116(s)-116(t)-116(o)-116(p)-407(,)-219(c)-43(o)-43(n)-44(d)-177(\051)]TJ
 0 g 0 G
 0 g 0 G
 0 g 0 G
-/F51 9.9626 Tf -29.001 -25.88 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -29.002 -25.88 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
@@ -25737,7 +25987,7 @@ BT
 0 g 0 G
  0 -19.349 Td [(method)]TJ
 0 g 0 G
-/F54 9.9626 Tf 39.85 0 Td [(a)-194(string)-193(that)-194(de\002nes)-193(the)-194(iterative)-193(method)-194(to)-193(be)-194(used.)-291(Supported)-193(values)]TJ -14.944 -11.956 Td [(ar)18(e:)]TJ
+/F54 9.9626 Tf 39.851 0 Td [(a)-193(string)-194(that)-193(de\002nes)-194(the)-194(it)1(erative)-194(method)-193(to)-194(be)-194(use)1(d.)-292(Supported)-193(values)]TJ -14.944 -11.956 Td [(ar)18(e:)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -19.349 Td [(CG:)]TJ
 0 g 0 G
@@ -25755,15 +26005,15 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 28.503 0 Td [(the)-250(Flexible)-250(Conjugate)-250(Gradient)-250(method)]TJ
 0 0 1 rg 0 0 1 RG
-/F54 7.5716 Tf 176.855 3.616 Td [(5)]TJ
+/F54 7.5716 Tf 176.854 3.616 Td [(5)]TJ
 0 g 0 G
 /F54 9.9626 Tf 4.284 -3.616 Td [(;)]TJ
 0 g 0 G
-/F51 9.9626 Tf -209.642 -15.364 Td [(BICG:)]TJ
+/F51 9.9626 Tf -209.641 -15.364 Td [(BICG:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 33.485 0 Td [(the)-250(Bi-Conjugate)-250(Gradient)-250(method;)]TJ
+/F54 9.9626 Tf 33.484 0 Td [(the)-250(Bi-Conjugate)-250(Gradient)-250(method;)]TJ
 0 g 0 G
-/F51 9.9626 Tf -33.485 -15.365 Td [(BICGST)92(AB:)]TJ
+/F51 9.9626 Tf -33.484 -15.365 Td [(BICGST)92(AB:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 59.696 0 Td [(the)-250(Bi-Conjugate)-250(Gradient)-250(Stabilized)-250(method;)]TJ
 0 g 0 G
@@ -25775,251 +26025,266 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 52.294 0 Td [(the)-250(Generalized)-250(Minimal)-250(Residual)-250(method)-250(with)-250(r)18(estarting.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -77.2 -19.349 Td [(a)]TJ
+/F51 9.9626 Tf -77.201 -19.349 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(local)-250(portion)-250(of)-250(global)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 178.414 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(.)]TJ -170.787 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(local)-250(portion)-250(of)-250(global)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 178.414 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(.)]TJ -170.787 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 138.701 cm
+1 0 0 1 309.258 138.701 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 138.501 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 312.397 138.501 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 395.216 138.701 cm
+1 0 0 1 344.406 138.701 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 398.354 138.501 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 138.501 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 ET
 q
-1 0 0 1 150.705 130.091 cm
+1 0 0 1 99.895 130.091 cm
 []0 d 0 J 0.398 w 0 0 m 137.482 0 l S
 Q
 BT
-/F54 5.9776 Tf 161.564 123.219 Td [(5)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(Note:)-310(the)-250(implementation)-250(is)-250(for)]TJ/F52 7.9701 Tf 113.298 0 Td [(F)-31(C)-45(G)]TJ/F85 8.3049 Tf 16.386 0 Td [(\050)]TJ/F54 7.9701 Tf 3.32 0 Td [(1)]TJ/F85 8.3049 Tf 4.085 0 Td [(\051)]TJ/F54 7.9701 Tf 3.319 0 Td [(.)]TJ
+/F54 5.9776 Tf 110.755 123.219 Td [(5)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(Note:)-310(the)-250(implementation)-250(is)-250(for)]TJ/F52 7.9701 Tf 113.297 0 Td [(F)-31(C)-45(G)]TJ/F85 8.3049 Tf 16.387 0 Td [(\050)]TJ/F54 7.9701 Tf 3.319 0 Td [(1)]TJ/F85 8.3049 Tf 4.085 0 Td [(\051)]TJ/F54 7.9701 Tf 3.32 0 Td [(.)]TJ
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf 9.629 -29.888 Td [(156)]TJ
+/F54 9.9626 Tf 9.629 -29.888 Td [(159)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1904 0 obj
+1923 0 obj
 <<
-/Length 7045      
+/Length 7054      
 >>
 stream
 0 g 0 G
 0 g 0 G
 0 g 0 G
 BT
-/F51 9.9626 Tf 99.895 706.129 Td [(prec)]TJ
+/F51 9.9626 Tf 150.705 706.129 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(The)-250(data)-250(str)8(uctur)18(e)-250(containing)-250(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 24.348 0 Td [(The)-250(data)-250(str)8(uctur)18(e)-250(containing)-250(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 658.507 cm
+1 0 0 1 360.068 658.507 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 658.308 Td [(prec)]TJ
+/F59 9.9626 Tf 363.206 658.308 Td [(prec)]TJ
 ET
 q
-1 0 0 1 333.945 658.507 cm
+1 0 0 1 384.755 658.507 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 658.308 Td [(type)]TJ
+/F59 9.9626 Tf 387.893 658.308 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -258.11 -22.202 Td [(b)]TJ
 0 g 0 G
-/F54 9.9626 Tf 11.069 0 Td [(The)-250(RHS)-250(vector)74(.)]TJ 13.838 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 11.068 0 Td [(The)-250(RHS)-250(vector)74(.)]TJ 13.838 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 359.808 588.484 cm
+1 0 0 1 410.618 588.484 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 362.947 588.285 Td [(T)]TJ
+/F59 9.9626 Tf 413.756 588.285 Td [(T)]TJ
 ET
 q
-1 0 0 1 368.804 588.484 cm
+1 0 0 1 419.614 588.484 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 371.943 588.285 Td [(vect)]TJ
+/F59 9.9626 Tf 422.752 588.285 Td [(vect)]TJ
 ET
 q
-1 0 0 1 393.492 588.484 cm
+1 0 0 1 444.301 588.484 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 396.63 588.285 Td [(type)]TJ
+/F59 9.9626 Tf 447.439 588.285 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -317.656 -22.202 Td [(x)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(initial)-250(guess.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(The)-250(initial)-250(guess.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
+/F59 9.9626 Tf 218.687 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 359.808 518.461 cm
+1 0 0 1 410.618 518.461 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 362.947 518.262 Td [(T)]TJ
+/F59 9.9626 Tf 413.756 518.262 Td [(T)]TJ
 ET
 q
-1 0 0 1 368.804 518.461 cm
+1 0 0 1 419.614 518.461 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 371.943 518.262 Td [(vect)]TJ
+/F59 9.9626 Tf 422.752 518.262 Td [(vect)]TJ
 ET
 q
-1 0 0 1 393.492 518.461 cm
+1 0 0 1 444.301 518.461 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 396.63 518.262 Td [(type)]TJ
+/F59 9.9626 Tf 447.439 518.262 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -317.656 -22.203 Td [(eps)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.474 0 Td [(The)-250(stopping)-250(tolerance.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
+/F54 9.9626 Tf 20.473 0 Td [(The)-250(stopping)-250(tolerance.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -22.203 Td [(desc)]TJ
+/F51 9.9626 Tf -24.906 -22.203 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 426.236 cm
+1 0 0 1 171.218 426.236 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 426.036 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 426.036 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(contains)-250(data)-250(str)8(uctur)18(es)-250(for)-250(communications.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(contains)-250(data)-250(str)8(uctur)18(es)-250(for)-250(communications.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 378.415 cm
+1 0 0 1 360.068 378.415 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 378.216 Td [(desc)]TJ
+/F59 9.9626 Tf 363.206 378.216 Td [(desc)]TJ
 ET
 q
-1 0 0 1 333.945 378.415 cm
+1 0 0 1 384.755 378.415 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 378.216 Td [(type)]TJ
+/F59 9.9626 Tf 387.893 378.216 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -258.11 -22.203 Td [(itmax)]TJ
 0 g 0 G
-/F54 9.9626 Tf 30.436 0 Td [(The)-250(maximum)-250(number)-250(of)-250(iterations)-250(to)-250(perform.)]TJ -5.529 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.57 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F85 10.3811 Tf 27.743 0 Td [(=)]TJ/F54 9.9626 Tf 10.962 0 Td [(1000.)]TJ -77.275 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable)]TJ/F52 9.9626 Tf 142.349 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F83 10.3811 Tf 27.744 0 Td [(\025)]TJ/F54 9.9626 Tf 10.961 0 Td [(1.)]TJ
+/F54 9.9626 Tf 30.436 0 Td [(The)-250(maximum)-250(number)-250(of)-250(iterations)-250(to)-250(perform.)]TJ -5.529 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.569 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F85 10.3811 Tf 27.744 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(1000.)]TJ -77.274 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable)]TJ/F52 9.9626 Tf 142.349 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F83 10.3811 Tf 27.743 0 Td [(\025)]TJ/F54 9.9626 Tf 10.962 0 Td [(1.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -205.961 -22.202 Td [(itrace)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.878 0 Td [(If)]TJ/F61 10.3811 Tf 11.007 0 Td [(>)]TJ/F54 9.9626 Tf 14.142 0 Td [(0)-422(print)-423(out)-422(an)-422(informational)-423(message)-422(about)-423(conv)1(er)18(gence)-423(every)]TJ/F52 9.9626 Tf -30.065 -11.955 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F54 9.9626 Tf 26.395 0 Td [(iterations.)-310(If)]TJ/F85 10.3811 Tf 56.313 0 Td [(=)]TJ/F54 9.9626 Tf 10.962 0 Td [(0)-250(print)-250(a)-250(message)-250(in)-250(case)-250(of)-250(conver)18(gence)-250(failur)18(e.)]TJ -93.725 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.57 0 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F85 10.3811 Tf 26.797 0 Td [(=)]TJ/F83 10.3811 Tf 11.086 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1.)]TJ
+/F54 9.9626 Tf 29.878 0 Td [(If)]TJ/F61 10.3811 Tf 11.007 0 Td [(>)]TJ/F54 9.9626 Tf 14.142 0 Td [(0)-422(print)-423(out)-422(an)-422(informational)-423(message)-422(about)-422(conver)18(gence)-423(every)]TJ/F52 9.9626 Tf -30.066 -11.955 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F54 9.9626 Tf 26.396 0 Td [(iterations.)-310(If)]TJ/F85 10.3811 Tf 56.313 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(0)-250(print)-250(a)-250(message)-250(in)-250(case)-250(of)-250(conver)18(gence)-250(failur)18(e.)]TJ -93.724 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.57 0 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F85 10.3811 Tf 26.796 0 Td [(=)]TJ/F83 10.3811 Tf 11.086 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -109.554 -34.158 Td [(irst)]TJ
+/F51 9.9626 Tf -109.553 -34.158 Td [(irst)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.915 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(r)18(estart)-250(parameter)74(.)]TJ 4.992 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)]TJ/F52 9.9626 Tf 34.613 0 Td [(i)-22(r)-35(s)-25(t)]TJ/F61 10.3811 Tf 17.671 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0.)-298(This)-213(is)-214(employed)-214(for)-213(the)-214(BiCGST)74(ABL)-214(or)-213(RGMRES)-214(meth-)]TJ -63.246 -11.955 Td [(ods,)-250(otherwise)-250(it)-250(is)-250(ignor)18(ed.)]TJ
+/F54 9.9626 Tf 19.915 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(r)18(estart)-250(parameter)74(.)]TJ 4.992 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)]TJ/F52 9.9626 Tf 34.613 0 Td [(i)-22(r)-35(s)-25(t)]TJ/F61 10.3811 Tf 17.671 0 Td [(>)]TJ/F54 9.9626 Tf 10.961 0 Td [(0.)-298(This)-214(is)-213(employed)-214(for)-213(the)-214(BiCGST)74(ABL)-214(or)-213(RGMRES)-214(meth-)]TJ -63.245 -11.955 Td [(ods,)-250(otherwise)-250(it)-250(is)-250(ignor)18(ed.)]TJ
 0 g 0 G
- 139.477 -29.888 Td [(157)]TJ
+ 139.477 -29.888 Td [(160)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1910 0 obj
+1928 0 obj
 <<
-/Length 4503      
+/Length 4489      
 >>
 stream
 0 g 0 G
 0 g 0 G
 0 g 0 G
 BT
-/F51 9.9626 Tf 150.705 706.129 Td [(istop)]TJ
+/F51 9.9626 Tf 99.895 706.129 Td [(istop)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.666 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(stopping)-250(criterion.)]TJ -2.76 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)-351(1:)-351(use)-271(the)-270(normwise)-271(backwar)18(d)-270(err)18(or)74(,)-276(2:)-351(use)-271(the)-270(scaled)-271(2-norm)-270(of)]TJ 0 -11.955 Td [(the)-250(r)18(esidual,)-250(3:)-310(use)-250(the)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm.)-310(Default:)-310(2.)]TJ
+/F54 9.9626 Tf 27.666 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(stopping)-250(criterion.)]TJ -2.759 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)-351(1:)-351(use)-271(the)-270(normwise)-271(backwar)18(d)-270(err)18(or)74(,)-276(2:)-351(use)-271(the)-270(scaled)-271(2-norm)-270(of)]TJ 0 -11.955 Td [(the)-250(r)18(esidual,)-250(3:)-310(use)-250(the)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm.)-310(Default:)-310(2.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -19.925 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -19.926 Td [(x)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(The)-250(computed)-250(solution.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(The)-250(computed)-250(solution.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 410.618 558.881 cm
+1 0 0 1 359.808 558.881 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 413.756 558.682 Td [(T)]TJ
+/F59 9.9626 Tf 362.947 558.682 Td [(T)]TJ
 ET
 q
-1 0 0 1 419.614 558.881 cm
+1 0 0 1 368.804 558.881 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 422.752 558.682 Td [(vect)]TJ
+/F59 9.9626 Tf 371.943 558.682 Td [(vect)]TJ
 ET
 q
-1 0 0 1 444.301 558.881 cm
+1 0 0 1 393.492 558.881 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 447.439 558.682 Td [(type)]TJ
+/F59 9.9626 Tf 396.63 558.682 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -317.656 -19.925 Td [(iter)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(The)-250(number)-250(of)-250(iterations)-250(performed.)]TJ 4.434 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+/F54 9.9626 Tf 20.473 0 Td [(The)-250(number)-250(of)-250(iterations)-250(performed.)]TJ 4.434 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -24.907 -19.925 Td [(err)]TJ
 0 g 0 G
-/F54 9.9626 Tf 17.713 0 Td [(The)-250(conver)18(gence)-250(estimate)-250(on)-250(exit.)]TJ 7.194 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
+/F54 9.9626 Tf 17.714 0 Td [(The)-250(conver)18(gence)-250(estimate)-250(on)-250(exit.)]TJ 7.193 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -24.907 -19.925 Td [(cond)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.118 0 Td [(An)-210(estimate)-209(of)-210(the)-209(condition)-210(number)-209(of)-210(matrix)]TJ/F52 9.9626 Tf 205 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(;)-223(only)-210(available)-209(with)-210(the)]TJ/F52 9.9626 Tf -214.445 -11.956 Td [(C)-45(G)]TJ/F54 9.9626 Tf 17.002 0 Td [(method)-250(on)-250(r)18(eal)-250(data.)]TJ -17.086 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-249(as:)-310(a)-249(r)18(eal)-249(number)74(.)-310(A)-249(corr)18(ect)-250(r)18(esult)-249(will)-249(be)-249(gr)18(eater)-250(than)-249(or)-249(equal)]TJ 0 -11.955 Td [(to)-403(one;)-480(i)1(f)-404(spe)1(ci\002ed)-403(for)-404(non)1(-r)18(eal)-404(dat)1(a)-1(,)-441(or)-403(an)-403(err)18(or)-403(occurr)18(ed,)-441(zer)18(o)-403(is)-403(r)18(e-)]TJ 0 -11.956 Td [(turned.)]TJ
+/F54 9.9626 Tf 27.119 0 Td [(An)-210(esti)1(mate)-210(of)-210(the)-209(condition)-210(number)-209(of)-210(matrix)]TJ/F52 9.9626 Tf 204.999 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(;)-223(only)-210(available)-209(with)-210(the)]TJ/F52 9.9626 Tf -214.444 -11.956 Td [(C)-45(G)]TJ/F54 9.9626 Tf 17.001 0 Td [(method)-250(on)-250(r)18(eal)-250(data.)]TJ -17.086 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-249(as:)-310(a)-249(r)18(eal)-249(number)74(.)-310(A)-249(corr)18(ect)-250(r)18(esult)-249(will)-249(be)-249(gr)18(eater)-250(than)-249(or)-249(equal)]TJ 0 -11.955 Td [(to)-403(one;)-480(if)-403(speci\002ed)-403(for)-403(non-r)18(eal)-403(data,)-441(or)-403(an)-403(err)18(or)-403(occurr)18(ed,)-441(zer)18(o)-403(is)-403(r)18(e-)]TJ 0 -11.956 Td [(turned.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 139.477 -161.394 Td [(161)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1932 0 obj
+<<
+/Length 81        
+>>
+stream
+0 g 0 G
+0 g 0 G
 0 g 0 G
- 139.477 -161.394 Td [(158)]TJ
+BT
+/F54 9.9626 Tf 315.088 90.438 Td [(162)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1914 0 obj
+1936 0 obj
 <<
 /Length 6590      
 >>
@@ -26077,13 +26342,13 @@ BT
 0 g 0 G
  [-500(S.)-339(Filippone,)-360(P)129(.)-339(D'Ambra,)-360(M.)-339(Colajanni,)]TJ/F52 9.9626 Tf 202.675 0 Td [(Using)-339(a)-338(Parallel)-339(Library)-338(of)-339(Sparse)]TJ -181.096 -11.955 Td [(Linear)-350(Algebra)-350(in)-350(a)-349(Fluid)-350(Dynamics)-350(Applications)-350(Code)-350(on)-350(Linux)-349(Clusters)]TJ/F54 9.9626 Tf 307.21 0 Td [(,)-375(in)]TJ -307.21 -11.955 Td [(G.)-262(Joubert,)-264(A.)-262(Murli,)-264(F)92(.)-262(Peters,)-265(M.)-261(V)92(anneschi,)-265(editors,)-265(Parallel)-261(Computing)]TJ 0 -11.955 Td [(-)-250(Advances)-250(&)-250(Curr)18(ent)-250(Issues,)-250(pp.)-250(441\226448,)-250(Imperial)-250(College)-250(Pr)18(ess,)-250(2002.)]TJ
 0 g 0 G
- 142.805 -29.888 Td [(159)]TJ
+ 142.805 -29.888 Td [(163)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1922 0 obj
+1945 0 obj
 <<
 /Length 3007      
 >>
@@ -26120,13 +26385,13 @@ BT
 0 g 0 G
  [-500(M.)-282(Snir)74(,)-290(S.)-282(Otto,)-289(S.)-282(Huss-Lederman,)-290(D.)-282(W)92(alker)-282(and)-282(J.)-281(Dongarra,)]TJ/F52 9.9626 Tf 304.659 0 Td [(MPI:)-282(The)]TJ -283.08 -11.955 Td [(Complete)-369(Refer)18(ence.)-369(V)74(olume)-369(1)-370(-)-369(The)-369(MPI)-369(Cor)18(e)]TJ/F54 9.9626 Tf 195.586 0 Td [(,)-399(second)-369(edition,)-399(MIT)-369(Pr)18(ess,)]TJ -195.586 -11.955 Td [(1998.)]TJ
 0 g 0 G
- 142.804 -352.677 Td [(160)]TJ
+ 142.804 -352.677 Td [(164)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1939 0 obj
+1962 0 obj
 <<
 /Length1 1383
 /Length2 5908
@@ -26197,7 +26462,7 @@ W 
 �6S&��_!��S�|esU�F�R�y���Y����ﭧN
 endstream
 endobj
-1941 0 obj
+1964 0 obj
 <<
 /Length1 1537
 /Length2 2827
@@ -26270,7 +26535,7 @@ v
 {#����|
 endstream
 endobj
-1943 0 obj
+1966 0 obj
 <<
 /Length1 1416
 /Length2 6052
@@ -26348,7 +26613,7 @@ y
 LX�y���o��@���X���"�a�<+[�>1��m�� �˞p��Mc(����y�Jq��^�]{�+�S��1�ݶQ< ��M~��|[77{>�5ԟ5I��8����_ki�d���4�c�@N�!T�m	+
 endstream
 endobj
-1945 0 obj
+1968 0 obj
 <<
 /Length1 1429
 /Length2 6269
@@ -26427,7 +26692,7 @@ KG7
 �o����_��It" $O�Z�9&�nJ |l�^?n����RFPW�ZV
���m,�[L���W��Be�l���ې��ɨe�E������
 endstream
 endobj
-1947 0 obj
+1970 0 obj
 <<
 /Length1 1641
 /Length2 8102
@@ -26510,7 +26775,7 @@ $"
 ^(w-�����
 endstream
 endobj
-1949 0 obj
+1972 0 obj
 <<
 /Length1 2519
 /Length2 17687
@@ -26706,7 +26971,7 @@ $,1
  ��V�῟^NBW5i�,[�-Õy�4,�*�;����W���qz�X�B�q���F�.p�b�t
 endstream
 endobj
-1951 0 obj
+1974 0 obj
 <<
 /Length1 1494
 /Length2 2555
@@ -26770,12 +27035,12 @@ currentfile eexec
 �&̡���Y5<1B�dla�;��9^�'l�Hn,����W���{��Y����[�v�
 endstream
 endobj
-1953 0 obj
+1976 0 obj
 <<
-/Length1 1949
-/Length2 11181
+/Length1 2068
+/Length2 12106
 /Length3 0
-/Length 13130     
+/Length 14174     
 >>
 stream
 %!PS-AdobeFont-1.0: CMTT9 003.002
@@ -26795,7 +27060,7 @@ FontDirectory/CMTT9 known{/CMTT9 findfont dup/UniqueID known{dup
 11 dict begin
 /FontType 1 def
 /FontMatrix [0.001 0 0 0.001 0 0 ]readonly def
-/FontName /ZFVUYX+CMTT9 def
+/FontName /BQXTWV+CMTT9 def
 /FontBBox {-6 -233 542 698 }readonly def
 /PaintType 0 def
 /FontInfo 9 dict dup begin
@@ -26828,10 +27093,14 @@ dup 44 /comma put
 dup 100 /d put
 dup 101 /e put
 dup 61 /equal put
+dup 102 /f put
 dup 103 /g put
+dup 62 /greater put
 dup 104 /h put
 dup 105 /i put
+dup 107 /k put
 dup 108 /l put
+dup 60 /less put
 dup 109 /m put
 dup 110 /n put
 dup 111 /o put
@@ -26842,13 +27111,16 @@ dup 46 /period put
 dup 113 /q put
 dup 114 /r put
 dup 115 /s put
+dup 59 /semicolon put
 dup 116 /t put
 dup 50 /two put
 dup 117 /u put
 dup 95 /underscore put
 dup 118 /v put
+dup 119 /w put
 dup 120 /x put
 dup 121 /y put
+dup 122 /z put
 readonly def
 currentdict end
 currentfile eexec
@@ -26882,30 +27154,23 @@ T
 �ܭ�a���jfn�U�ۙ��C���a�t�/������v�����PqE$NP^_م�d��v����"T�C[ ��|���wҁ1|7��B%����f��W��"d��6QIa��ҝ��E.�<�S�i����ՙ)�+���%��Y`;	����5!�KoLS��N���hPh�D�ڶR��-����S��拄�?	���դS8��!��,����v�N�[� `�"Ba��5��#�dw��W%Yl��~:/��>�Z�;e�F�{N#�{��}�?7y�g
 �hS����`tZ�"*�QC&Ksul��J��|6�i�$r�E�FXggξ�&v��H_I��)���LR�*���Q�g�X�u�V,В"�%_���L΄�"4vܹ��٩v�ûZ��!
 ������Y@�L��{�vߺ�+���N*Y��+qi]��/^L)�����my�1=�K��
��~{i�t{�n�?'��2�d,�佛��r��t�߳����-�F܅�����FlL	y�f��F?M�_���*a�������5պ�ӽ�Œ!����d�
2��Λi��w/"�;qfW�"��^��0$go��aW�v�m.�͢B��/c@�{:�d"�A��v��]P}C�*&kx�;��k�6܆�xɃ%��
^X2�L�g]�����Vm���
�Mhx��P&�(�{���g���^֣��	ĤԒ�|���(�dk����/��ܺ�H�Ԕq�J'w�B�t�������gO�`O����c�����\�K*�/��������g��9Z�<0v�B���WK=��Q�]a9<��V<-�Meb^|ހ�q��"�^���&l�|�s�gi��Q=����r�� m[�:
rL(Ӹ�aXœ��Il��e�����wƽ�?Z�Nm�CU����
��֏�;l��c;^=����/�E�#���q$Sp�	T�� /.qKAE��6������`�QDAϪ�'�n�6O��G��$�D͒�[Q��8s<ND6�g:�N��}�8�ͽu�}�a�Y�X�c�!���t9���u�%"Púu
-�p8B�J��U���m��3��nA��&�,oX�4 ��+�A������Ҽ4���ړn���]����R��ܽY�z��xH�9V{�R9��=3�z��(6Z�#:γ���,a�φס�V!6"�Diu��׉��q�`$q���v�N�#/���y�R!ңw!��������B�b�No��a����l��u����ֱ�$;z�/hm
�)���gJbF�La��D�lа�l*,�T��`����]��xBf����$F��ǡ�O��O��ih$�G�N��Ek���9������	4A�<�c��֐]�t���AY�'4�g�S�d9`�~t�L�}���+�F�!:�<�(r��vȐ��E
�����h|��*f��/��?����٢k1S,nc��[���g̅ЕJE�	
S=��$Mz#��sL}��͹i��U�?m�$��+�<qw��UI��;7�C/8��3�lb؍֤��`B��0���_��G�>i8��[)�za/�@'��E���q`��`~7�~^��]D��6��x��F"a�����Kr��C�@@��-^MG��ym�����""v�ˊ������>|��,���������=뻕z]��ig��	��w��m���
�xz'm�rV|�s��W ${~�ź�:�{UpI��&�P�P�=Jيo���XP"a��Yg(��N�ĀA���v�1��)j��b|�Zѳ���=��D�@T�����B���(��HL���'�s����ͳ��F�Oj�9���4\�����-ƌ0���b���:�k�Gz�������sљ�G輈�5���oFhF��ݏ�a?��aB/A�ưrY��a
����m��CG7���ޖ�]���]��N"vb���
-`Π��&�PMj����v�r�帊�V�\*�J�bG�l��@4�D���B���e�l�t�����ͻ��E�X1�sbL���c���1=/4 �Á�!�9'��K��͈�7m�����He��i^�5X��b��s�9�&��ٟ�7��&	�R�taMyD&��Ĕ!����
L�S��%�q'�
-�u�S��d�S755����e,9��$�F�B�c���<�!�˝�hcI�KƩP�
-7��㎧k�����%j��[��|��F���D�Շ3�a*��^��
x�>�3]y�x[��M����o)�!\�/�$��vЀR�P]s�c`���
����ܐޑ�Α}���t� O�I���E�A՜�Dށ5������c�w
�g͍$�,
B�iEfsTh�z�s����oi�2�>���W�O�}�
-�UyK@����EF4	�����V�|��@�aZN�FGH���h��;���	!&�|����EWn��D-ıEG����Ն�?���g�W{��(bФ��,ٗ']u����j�/�
�B�ϻ�V$B`���Lk�j��|J�p+`$����q1
	=�B��D>�
�R�(�@F�vd4��KL^VĤ��!!�h�@������bg�> }�2l����o	��)��0P
-�=<�����7���=��a�:2�Y�K0�����x��iȁ�
-I'wF
WK�6L��"����t�&v���*�m��ɝ{���5�"�"P��mu	ԍuD�c��uu���^�H��v�g� lP��%�[jk�c��=
8$�b�_{{4�V���U��z��=2Z[��"µ�yk	QlrC�$�:���x�
-���MF����l���x�f~Կ�h��xWq�Z��k���VA�"�2�U�P$�+G�]�`;�Eʴt���]�X�HȆ–��i�e�H��"�{sh Q��6ް[�t���õ'TBh��s^}d(�w�ڱ�q�s\1@�D��ø
-Ԭ����Np�;�I��y����&���v@����.̂�)5�(�����i0$�5&���1o��NJ�o7t1���/��rAj������
������AN"j��\d%��K"п(�0�k=�?/&S��Y�8F���V+�����د]���t����8����dp�+ ^c���*kr���*Oo\�-W,Oi�~TM4�zn�(5�=i1�o�#i�8�/����`�������lu6��)�#��p��\zȨ�L�u��Hld�q��br_8���''o�ū$�-OÇ�g��i��ڠfD�$5���`��߶P�ETwHN�r�;Ի�
����-����\V�c�1oLNq��8]�8Y��+e�F��8q`>,��ǹZ�W �k�ţ�y�i�\�-L
Ȭc�=��@�g7g�
q—�l��#6	�b��Lxy��f�e�<�4���%J��O��D�I��rѩ��_|n|��Lÿ{)_����a��L� ���������l#���DL�?Y���4N{��B`�+HO^�п�|��V�r ��j�������]��Dcӓ����?����g<nnH�X��Hc�Ej�^l��>�$q��_Y����|���Q���v��<3�_jM�Z����hr��TН��O���
��ϟ���z�s']�Эη�7��K�~ܶ*���
-ԯlr�6nSC/�ݥ��*�p�E�5�N��P��G���Ҏ'���On��ȎɃ3��3א����i���ɪ��������O��J$�Mj����u��Ip<`�B�����k�Ó�|

<����uB�xO���h�^I.N���R�Xa�l
1�����ZJ��%�ԋsG��1n&�m"e'�P����21�}KT�7KP����ud1�.k't�@^�p�`�2�
��I#$�Y��"�u
�y/���f�ˁ�ܑ���~��(7�e���sO���l����EGR�Z�~@-��W�b �>�!��۞����2Y�2/��K�UeD��[�.��oh��%h�PQ�&nU&�t�Љr�:�U���0d�5��ٽ��	0G�2�#�GJ�~ƒ>��gh�e�:�$�۳�q�.)R�kk��k[?�C�*Ufk���P��(�Q�
-�J���ߌ;�"��]vW���`vzW������Oo��H<Q�v�F�
�"J�j��͐8�?I�י.�\)eL�sX��~
s�^��IPj�+��@�G��������}[�h!ro��s|�Ћ��cK'�V��������
�hֹ�g���̰�W#do)� ��Ţ��#
`&��
���=4�Z��;�5�}�/�n�
-�]�$3p���*���h�G!�����`
-��f=&s�rY�m�&�������='��5��fɅ������4b�I��d�R1����ts���E��o]�,� �Y�#蟉Ƥӝ<���~Ϋ��`���@���IE��e|eSn~�k?�s�,�ҩ]��*
�מ���d3��(F�m�@+2* [��Ю*�
-�1��d�v%G��[���;�k1�E#���FI0����R�e.����3�W�� �a?�!TN-gv)���I���L2�q�������+"���P~�R4r!AVr
���׵߀OA
N{=0�&t5����Ѳ!^��V�:߃R���N��s��7��A˽Ŵ5��/�ɮ�>�G�6WJ���������
�5m-��gK�}�S�U߿��Ne�|�mmג�TzXR6��n�ƒX�k��a'\�����po�� l�]�#|ى�C�'��f�v"u�/�͈�����y65d����Dk$�
R&�.r��wT��[�U<ϥ��
-;�%�',<&g�u���l�iR�A�@�T1��y�}����ŕ.��6�J��RQI@�
6bP�U�
���/�����O�T]��~����p�ӒZ��&��
/H�s��^��e�E�ӵ��j'������n�G�)�qgQ�����h�c>m���t@�.�>�c���*�R��|<����:W0�O�r�
��������o���Y�gw��t�Z���+]���ܒ������NZ�B�r��5F��g�<U
}Y
�2�m�a*
�_���G�uZ�owM�M���F�B{)1;��3SR	r����c���\)<vo.����i4�Ʀj�=լe���׋�};"Ӓ.�B8�t~��6j�S�S{�
(F�G��|���)/!`c��cU���!GH���H7� ��
-��n�Ҥ |D�
-I˰�#��?����ζ�W���
ۘ������~�H3�w��Y����~����t���������CC��	���4��������a�L�N���c�B��
-�K����7+�f%��N�h#CY+4����q)�G��M��4B�IUWR����5�!Tރz�X����~-�w;�K8���!����̬L:���؉�<�
Qu���&l}٘��0�7ˉ���v��_��BK|1�]6i7�~��æ*�ܓ!ٓ��P�e�ܥp�S�.�`�߾�i�=!�Ɇ�S�M��̓mh�'����t�l����r�L7��تy'.�$���-�s<@�vbIzh�˄X6��]*dr�2��`�4�.�O��l'��#J*�Ķ%x���-Nx{�P�m�������
h��!����l�Ճ#���I�l�0g��
����f�J/��a�f%=J*ʺ\���TwˉM���ˊ�'A�Pd�|
-��mf�%�j�z�b��]�^6�xH��Q�W��[���ƞ��ょ����JBU���Og�ܱ�۞�&���3]��[x

�̭tx<����W��<�1E'P	�y�df�Au��o�6D�c��S��&�#Ȑ��Dr�����(��GS�gw�U����î��Yh�c�(��V7F�6�x�[����	�Fl�t�VX�e��\�6���:���kb��H�Ԩ��������UMv�����p�gT������A
-�5ӎ����1a���G̑�8��p1)��t��[��"���9:����HEAϑ�'�h�۝��L�&�@�X�r)9H�i"�FF��e%V�L��{�X����j'Yr����'Q�R�����*X��e�GX�g�N��6ͯ_��:q�[ف�J��+d@(P��)K*��hTh����bz�v�5sH����k��ż�D3L&,���fZ��-Хb��ZfŹP�d�s���l��au�K�hCi;#X��S!5��|�o�BIgq&19��j�+s��|������<�AV7��/f������,��O�7P�v�}�eǺ�klP���3��,K#�"
-0�ZI�!?�R�*���r��ީ�f��I���(��K�d1M��Rϱ�q�1
-�������}���$y�F�}G���#��9���ǹ���כ�H{�/��<^h�GF����	����/Qv��Q�)V�BkD^
�O&��g�KN^
|*y�'�x��?%�[�T-}6��p�t�!�cu���
w��\2��ɡ�;����ߜ�P�������m�n�)�y��VYO"�_��e������L/������������k!&�
ͥ��zO�$3�h����|���+�-���%]�]T��K�`u�>容�G����P�Q6�cd
+�p8B�J��U���m��3��nA��&�,oX�4 ��+�A������Ҽ4���ړn���]����R��ܽY�z��xH�9V{�R9��=3�z��(6Z�#:γ���,a�φס�V!6"�Diu��׉��q�`$q���v�N�#/���y�R!ңw!��������B�b�No��a����l��u����ֱ�$;z�/hm
�)���gJbF�La��D�lа�l*,�T��`����]��xBf����$F��ǡ�O��O��ih$�G�N��Ek���9������	4A�<�c��֐]�t���AY�'4�g�S�d9`�~t�L�}���+�F�!:�<�(r��vȐ��E
�����h|��*f��/��?����٢k1S,nc��[���g̅ЕJE�	
S=��$Mz#����",�0�Fw��ڊ����������sd+�-S�OG�R��{⤣H����*<8B�����{;%�G{���5��3fˤ��7U���R�������faO0�W7�J�z:L8E��I�8}�KC�ʽuc���������
{�)fq ��R���\Lu�����6<"�}Z�%�Z_�@J3h��[�M$;|�Iu�\��k��՚��R)��~dr��,�Jg�V��vX�+�������m��!b&
�<#w�v��m
+���-��6�|� ��ax<8��^��cNEnV��`u�đ@k�n;�5��q�L�7Z�#��-��f��=t��
@��TX����\���Cջ
+�)?����tI�C����[�k�9�$�M��u��S��8x�I��7Y�#ћ�~n�f��S2���j
���r̨�^�	v���ҌX���ȱD1�-���B�l�Q�p�>X��<BJ���(r���2��^씭����;A�U
��s�)��� ��R|Y\�(tÜEK�+=�7h��9�䕎���&�.����ux���X��o���jc�q��F!%i9�5W$�0�$\K��h*^N2��m_o�T�M�Mu��+�8�Jf-@��ұ<�T�%�����g��P?n�F�1�Q$��������Ib�kz}��1���-�"���bo����eψX���������M[����;�w����q��9�E�ߍ�I<��=i�=w��1��{�7���@��
D�o�R��*��x� H��cB]QY&�Dz���j����Q��_�=%�}՟;�% ���
�*uݤ�`�6t-�p�M�d�SԒ��Ņ?�T�~n��ޛOաJ��_Z����#�����U�k�5�$rޮ��:B3T;��#�$M]�B;�;C���M���%�. ����ϻ`�m��T�sf��~��
+�����
N�q���a��|�C5��8�ْ�ψ��ѱ�w��;������Y���0(�uF�n�>9��'�qQ@��{ğ��n��઴�ζ��Z'v�4쓪ӕD���َ�-G����J�8����Y+:����A<��F&���3'�]˶qȧ�����������7׏��L��� O|�g�d�����6h�0���%�PL���S��a�8��R>?�6�q�…$��
��Q�8sZx5��T�xo�$3
���^5�t���h�ھě��~U��f�vR�q{o�Y��0�0�4�W2���n�D׀Ƹz��[��l�ܴ��;q���ó�f�}岰�$���0�}��PgR�%B�u0���޻i[(w�4��(G��"�O#��-_��j�5E]W��h��d]�#�Ӂ��_��ȋ˘���"��������,��	���bTlyu~��C�T�C���Q�yb9��6�j��Q��$1��q��J�zծ��e4���v��������G%�[)��}��@�h],l�u2��"t%��E=3jI3�?��շ8��G[�sv��h�v�!R�f1~��YAQ
�77����5t�c
��Ӑ.,�{�r]�,����x��wȀ���X.��}�u�=Q�-��U>s/ޑ�/;v�e)Q/��?������uRT
+��>��d�kW��B���&�����R|S�}Ob�փ�mLj�H'؍�hsO�g�w�7�Ae��
�>M���w���_b�'(>+���:��h��*��Y�&��쌢c���m�X�݆���@�>��֌o�*��Q
F���C�'L���쪕�
n2�s)|L��"���
���TE��=1I�(j臗�/�L��@�҄�V�����$�'�IV������_�:��f�;z8��c��՛X�^�@�n�p60��8׊�i�1�4��������Z�׵�>8��K�]��Aָ�?HOEW/��Q���5N��P��o;�&[�
+��)D*����\��ֶd@aT���`��k"�}Eϝi�4$��K����x����8}g0Ϝǩi�}�����^�':��_�yZn*�/!���{0*�ҙ�A`��E�T:���L|�̬���p\cL7ω�����U/����yE��jC9��HA��w4�����?	ؗ�ߕ���tD,wg�D���?�1�ǁM �V�S���G�x)����:�Q��
�o^�H����V�*0J�:ݐl�+h�FL�*+Pd��Uc���(��o�
A��[����j0p$8�MFFi+�+�y�Jq����I�[-
������i���m@M9�Z�?�7�QE������
+V�H�_3��oZ�Nb�IG�����'���B���g
�n{�~�]�/J�L kY�/Խ�3��DH���y�+�S@�4}�'�ysv��M�T�m7@�J�r���ux��x�E�/٪.�E3綴�=�NC�G�Qvʫ���b8���vwC�G˙���$�v�ȌJ��S�*��ҫCTenB��*�ݯzƲ�S_I��p�%P�fp�J_>^x~
�8�R�����EZ�T�y����>거&E-�l�:wc�XD�p�
+/ے������N}������q�:�UC
-�5�ȡR�����J��������f2���>~�;vM:�!��*�5�Vcjpp]�1�3��S����]fy��:�� K�@����S��q�D��^��t*!��Y����/l�����
W܍"IXx�Ny=�+�f�E��Pz�D��i����� 菻>��aĵ�q[���j�m�R��ke{k�xe]�;�_���=J��Yi�Ğ�w/*��aq��_�L��qߨ��52���W
U%r7��q&�tE��Ռ�H�y�
QM�c�(�jg�u7�S�x�0p��C�~�����	_��|N�����2s"@h� �j�S��1�eɉ#�I�4R'6��g�,����X+�)����a[T��i��fd�+�8�܏Tݞ�K�T�lT��6����ncw�-��[��E䯱��T�G�?Itr��
��C<g�s��2El�-�)6B�0�Cf�nG��C�l��m"��l��Z�*��������
�l1��]���X���*�g}�=H�]&k��2Ů`�VL�A�,Z���%U	�O#+��"ڔI�g	���/01c�!� M���<)�&�1��u���*ً�(ה��[��k�y9t͊�-C�F�Č6Y���q�L'�Eצ��P���
��uq@G��p���UA�(�F�^����&�	fR��J�!�k#�U��,Hx��h��b��2��ɳ��6ѫ��̇��m��vs��L �:����E�\cD=,R��0}zO�12���9H��&94�g�C����5h%��H
+���}3!�-R���䑗="�E>��R(̬T��-����vc�9����k�=v����,Bi�����:w�׍������:5����]@��O1*��9>k\�ᦁ!I���/K��j�(�)�Z�gbi�Ya�ŕ�8.���l��.>��<�
��_�ؚ��� �Cb�H6Wf�cq�~�ytGNP����W&�bC5o
�z�I���Gq�d�Y�KQq�b���u]��ej�ND���l�M��F7�5-��7��Ĥ��J�8=��6`\�1���e���0���q���w�t���Ԑ�����	�m�J�,5
W����ps�]_H��>ry����<؋���!��<>��u�g��
Їv#�1��e��8��8@Q�r�u)Uß����J��>Ȥ��0)����RBct~�j��K<ګ������8��Ұ#Q�hO��]:����֏(p5t!~�r�-�v���ƭ��Ⱦ8��w�L�%�0cCg��S�����Fk��4dL�n�B~�_���R�Yh'8��"��̯������5�`��Y9�_�����H���42-P
A��
����b�LR��>e1K����/�0G�'W�
��*sŕS8�-H;��`�fm��#3�t^���U<�;Y�ٟ���?pɈM|*"�����P�u�%v!&�S�	����G�7��9��H�ҥPh��LXG�B���)xTI��c�]Z���p0k�������b|�
������h?%͞��2͸t|��
+����/S�.FM˄B4�4at&�	�y{��swfnB�R�%�v���2����I��vӠV<d��W��D1�~��X�*�
�L|}���ŻF����$������*���$��iHv����t/)p4)v
�t����.G���������a_�뽆����%��5#l^�ְ�?K,�1#�QL4�K�ۓd���kN(Ik���U��$>����9�?�F�!AN��,?�u�6��u���U���4�u�Xفf�K�ZS"�@?u���hQ+s�t�'��M�;��|����ځ˥NC�9�H�u
+�|�=�z�aǹ(b��i�����)���Ҿ�
a������x��.,D��
f{�V)~?��E�_U񪕃��Ƴ�Gs��ڠ��Mbl�hc{s��d���r�=-�4
�)L<�U\�Hm
R�7��=h̼��K8Y����Kާ
�Y�Iʿ�ؿf��=�,ЙgF;)��x��ܟ����I�OG��;6ٱ*$�5Gi�B�P�e�CG��������R�?��=��_���>�1����U���o�7wZ�){������.z���G��`�c҃C&m8Լw�6޸����YØ �2$bP:��ʼn�\�G�Y���`��1�T�SN��tv�g�`�z���{	�fk�)�������`!QGrU�j9��iiw�k��Vw5iƠ$�^����_B���q���~y
;4T�ռ�ۦ�����	2�5�"���	˕�U��\���jXN��� xՁ
+�f����R���XJ5&�*�u�fX��m�1N��=�V.�c��S���pW���r�ƥ
�	9���>���޺��k�|�
+������t�g�9�*�v*Q'�wwE��alA�㱮�@�rvϷ:m{C{�ۑ8an�}>��lN�I�xY.L
�>*���0Q�ض��#��Z�p((�N�Q�2E@�C��%Kn��!�|O���S3�X�
������3��A���������BY������d1�>�E��$5�E3�����%?���ڝ�>4Z��|mcX<��ju�pe2�
�����VzA��ʲ�Mq��]~�@���B¸������C���Na
pP��MVf���>����+�
?+��^;�+��u,� �J(De�5�?}wTK\{��Sၘ���d�ܡe(���zb����(a/�O̭�`�@���4��B:�A�9�,.d�W�]�Nư
N0a���}���P*	i}�iri�����tePs���.��b�~z����H��ҁ ��O�x5ߵ:N��綢Sr%���\�#�C�=����(��_�eV�4Ǜ����0"���h��s7::`��� c�:(�;:O}JB�Orߵ
K�Q'�B��*
�y;8w��ϩ4�>
@r���8�v#�W6:�̃d(�Z6�ڊ#�*��o��,0`�d��e�­n����ȑ�-���C�)�P6��b*&�a�
9�oV�L���H�h�����f�o���>�t[D�)i:�|����i0
�"�g�Jn�w����n�ϐ��E5
+
�[�_s��]j��|#�f>[6�����@@��<��Q�e
��E
/�@8	��R��d��������&y.�M���"C�I���t���y���&��۔�
2"��n}�ْ��dߋ�i��`c�F���
��J�C���EM�it��LS~�Nϟ%��8)&>���Vt�W��=2�f�	P�@���)i�>��2�!�fQ�6��!��N�kb
�N�iXW�pu*��b�c<2:F�����H�����MH�2�K|������X�^i?H���Zֿ6�k��^ց��ʠ��Ȑz��d��Q�r�����+���j��ٮ��� i�W��U
����xj��\���f1�ׯ��)O�q[T7N��U�l��
 endstream
 endobj
-1955 0 obj
+1978 0 obj
 <<
 /Length1 1173
 /Length2 2916
@@ -26953,7 +27218,7 @@ s;
 �$�-U���3��#
 endstream
 endobj
-1957 0 obj
+1980 0 obj
 <<
 /Length1 1188
 /Length2 2740
@@ -27002,12 +27267,12 @@ A֪^
 6�f��r�^�7��1�5aj��A����nWɩ!�p�c�l<m+��Or�[ E��)��e��ڜ�;�
`��kB�!�vU��KY��Qe� ���X/�4�6��m����Dю�'|��V������50�%�0�@�:Rl�w��k��X�V����j1�<i5�sܪn�x��ObCp��4�=+�����W�<>ov�>ժI8�3!��/��	J��?|i�$d�_��(�/;�b���49���%
X�e�al��w��
v_�̹��@dr��p.�l䧏<��ɁJt~��M��[��y���3��[�{
 endstream
 endobj
-1959 0 obj
+1982 0 obj
 <<
 /Length1 1614
-/Length2 21952
+/Length2 21998
 /Length3 0
-/Length 23566     
+/Length 23612     
 >>
 stream
 %!PS-AdobeFont-1.0: URWPalladioL-Bold 1.05
@@ -27032,7 +27297,7 @@ stream
 /UnderlinePosition -100 def
 /UnderlineThickness 50 def
 end readonly def
-/FontName /YWROOM+URWPalladioL-Bold def
+/FontName /TVMKYN+URWPalladioL-Bold def
 /PaintType 0 def
 /WMode 0 def
 /FontBBox {-152 -301 1000 935} readonly def
@@ -27094,46 +27359,43 @@ zV=y]
 �ƺ����D2vɧ�{�	u]=�q�L־�]�4��$[X��ԧV��$�I���t\�;<�MQ���o�ב�;I��M�R�I���r$��!e���'��/m�y�9a�\!���UgA��=޶��M	��V0co>�(h�(G�T)��׶�32�=-�B��-f��Ɉ\�
9l%ɣ��־|��}�8tM��vz�����n:O��)N���H�
 �G�cF�P��^�|b���!U4��?���/��T=i?˦[�U��0C
���XcS.�?�48�.���i���S��Ɠ����ʴlH��
 o��'kDQ�s�if�� �g3��n�$sAJ���*�%$1o�UD �|��ɣ�߼[�v��@|“��X��3�bt�
'aO=�����UGc)���M�|����a7l��,�+����{�Z�P{H�yt�s���5��w�'4c5^�F��˨����@�2�5~#�f�3��P�;�d��q>�T���Jd��j�e�U�+|���]k�H�_}�w��7��q1~���L(7iRs��Wv���}���A�f����?{��	B15��+�8�*A�j ������L���� \3x'�Eb�D�Bt�.Z����#Ӟ�o�k��J��J�@����[)\
-hj:��*�^_8V�;�k�*��cxīy
����1[���
-��Z쉒}qi�
�s��e)
X�Ji�Ԣ̠�k)�l {�d��
�k�`O��m��JҒ5�+�#>e�" I�
��Y�,���?����ce�-�XU<P�uKEe��E&׋p*=n�;�]4y�	n}�o��Xypvr�qBh�,�҄����n�m1�������FyI��f�q��|$��&�Օ��1�a(�O$Qm]�1��D:wB�<:oY�_��֍�n�
-�g���������m�	��w���
-�q���s�H&T��G���6�$���]�|���?
-�����K�0F �t��$�+����%[n�W��;^Lx�yf�i������h�pe༷B�j�.�$<�����*r��_��M�3�Y`0�:2V�i�9l�JF��Z3�[h�ܮ��킟�(����-BÊN�T��k깮f�Z�,,�5���'M��Ƿ�pFR䶠��C��k#�?��Z���R��q<�����
-����!�+lƊ4�2r����5���^WѰ��YՈ����EԨ�l�D��#I�\M�=��Wb
�v�^�ni����i��b.�q}X4�%�������l�RzC%u����[��Sx����[��G���4z�83�lwΗ� �"	���_E@���ߦ�2vG,�X�u�]�򱛶׉�y�aw�
���C@��?���)燄-٦�д�.p��L�H�L���^�Z����BmkA�Xy1�c��S������F����Qg*E�/��.[R�F�������ȈNo�y�,�nL�u�9�����	�e��_��EOp��j<�딖(�Ιo��,������b�B�7Uj��_!LD�ky}}��c�ޣ�k9;y���9�pJ���z�/G�w�?�>eY͋��Б��r2Ug�Y����kb���jf��D�2�V#��o�g:M͢�~�-	�L�}��S����`�_|)QLv���2.�(��k�L��{℞b��촘��X��|�.
&)�qc��W��;(
M����t�G�i�Ա�0���W������?

�[|t���dٵ�/�X������D�\��)��6[����l#5k���T�-�/�=r�S`\��5W8�gPv��uD<}ٰF�G�]���jc�W�<�zP��-�Yr	���Q���J�A���U���BWk/�
-n��6v�N��aF�+�or����}
-�E���z���q������G��UUr���A�#�ֻw��I�)�IH�����Q�u��5���d+��,seX!e�(n�
-����qD|
�H�Q���T�ҷp���5��y���C�����&�J��o�T�������Pl�����Dr�Cl���GAw��[�p�V�� �t�&0�B �q�a�s3h3����z:�_ -��@V"�b�nu5rPѮ涼�����ݖ��FK���#��>=�\z��}7�7	�ũ�s�T7
-ED�]�������]03T�HQ߶����vW��B�}��Y$����H�bCN䘂�l��^n#]��Ù��ɀxLqU���l��\
�O75��S��qU�6�e��*�8	d�<l���^WKک�z2s�	�C� 7u�S��*���–\j��]�#ö�?��F��'tU�Y����d�~P %7�*�_����ܸ{�T7��DDrĀžJ��ӦsJ�<��OT�Z��M`������Y�����|б�#.��G��fr4�70�����1�HmHu�t��A���^�K��t��[�RW���Xl[�����AǪ���(F!
PhP���B ;�!��6��g���mPZx��:�ҩ��F��5�&��`ܜ.F`�R��Lu���`1�U��U�h�l��V�]�����K(����ϐ�L���§Uy{9��T�V�@��ܾ¯����6N��։�_g3�>e͍��R?�1r�J��ܜ�~�[u1��c@�{6�O���O��(���W���S2�+��v�;IQLfG��;A��vhj�QB����z��&�s�<���IZq9޷���5
Vk���]���<U��m@�
(J��J������@Z���4����B��&���Y�6<
93�4��gz}4�C��3Z�V�.�kg��W���)�ܭ���^������ep��y{�Ӻ1
4X���eJ������)�%bߖ��,�cb�t_�h4�HP�9�Y��a������\-"����p�#�@���˨�]Ҭ7�������S䋾H(T��z��G}��i�M\�PӲy&�p�-�kf�l!d]i��K?��5�p�$6l)����ZT�8Կ��#~0� o�?~�: q���mw��o�f!��_"�
Ep��o����O�Z	M=�NO��;�}3�N�'��r�.��R6��V�ۅX���
-m7�
F�s��\�g�Mspݡ
-�s�8[AClRҐ�D��Z���j
-n���`}T�:v���G����EN��V�@����Q*�tQI���w��fMj�)MzR�U���!�PB
n#�L�����fp�@I��M����`N����܋���Ʉ\�7��}��Pr!xvk�X�&R�I�?&5v�1��h�>�
b)�}9�J�a�:�H�SO�l�[]��F����=���)n-�!���	�Zd�.tfq��N����z��m۩����lϐ�����t�PW��{=�-Te)�w.��䢭�zt/e�D�}	*i��S$�pHK����,�%��O�)�^p�8Q�]�����W�u���Mj���n?���I�%���lݶq�Y�˶v���� �"
-���#ـ�2|֭
-EI�jj�Dw�2�gFrh����Bz��g�T&����[��s8���p��=��g�x�����	.€2.�L�
-�h�գ��\o�
J^�.aV���8!U��?{��s�k�/Y ��&�K]�2�H�������E���f��KѢuݨ��Y\�q��PQU\|'�)�&���!D��������<��'�7i��GP�و)bc@��?�{n�V0���aK�C۽����[@�CX�>��B��˿��-�M�5��s.-��Ƽ�#�9�N�v?�����v���t3MW�tHQc�V8��.~M�7�2�0ʘ�L֊�#{�B4��cQֿ;�?H�Հ����Y�Ң�g� �Z^��S,��"v_��`�UU��h�D%�1"���=��%对$2��LL�ٴ�!f��PRZ��2���&%��$˻V迊@3�U>��6}�0El��S�Cl��U��b�bd2uZ�}]I���dS�•xF�fe��q��)��2�J~�\!N��q��
�.D��+f�H�:�ܑ��""y�7��'��59ˣo��q"gz��	v[[��Iq_Т����l�DztLi�T#�:��m���§��/��� �iŢ�b����b�wpj_�
�ĕ.q@(�G4�� ���D�����F���!W���@��4�c]|���Xn��AZq�{X�|��29ET�@�P%�����<y+zc��������Ҏa�_�	�_	��*��cx �3�i���
�%�����c�+��G��r������L#�K�i&T�B��������X�����/��"E�o�
-9��S����T�[�`��B��N񧢯L����f�D�m�B#��r%بڕo��붝c��
Hu��{�T��x���*'��(v�ZiJ1�QS��79`��a�v�!�~��J��=�
S��/R�����i�2>	�V�Jqw+��d>�ˈi�^X�#�u��[F�|0���"�!K��pwf��\�詙^FѲ�K�B>�ܖo]T`Q�d�,��,�H�(�AL~��AQB��-
#>����Ѳ䑄"����u& U����D;Nb@����oM�%AC�fg����*�)}�������Y��\�28>aQ�|������B,U��M���z�� ]�̢*���@����fG��v^ي��L
�̘9�`i`H�S=�V@iT���9�=*��_��(��{�45�A�g��`����|N���-ZS�#w?n�'�w����*�q=P6w6�)��T�|]y�ɓ��W��M#�5:.�!PV;��@�\ߑ��	��
�L����������K
�*�
4�4�迷��l��Fl�q�a���֮ØV��Y',#]�Ք�b�
���"��
�"ȡ��ۦ�B���D�����ў���Y�(�I���ԉ��_J�����I%KD|�FN��
-I�yOX�Ub�,���鍮W!�Q*P�*_@�G��ȁ("��_T���C⹹mv�=����1��1]����w�Wj(��ߩ���^%�*��X\��r����Kˎ��IbG��̚�P�%�O�vc^E��
ƊH�����J��'�6�;%7�Z����`[26<�F��3�_��q/!*	s���5�������9Mb����r���P�?��0ʕ��ڜ������{3�?�_�px���-6
�g�q(�|Xi�F�pw͏r(�5Ҙ�
���uV���LЍG�����<�!�s��՝���R��6S���y��XLf�H��ʠd�HA����ї�a��4"�%��	�̸aWo��XƵ,��R�*��v�?�P�7
APWu�}����Q����-G��E
�O���EF��'���d☱���<��ಚ���TBy1����,�3�ڎoO
-\��VVn�⮉��7U��Z�/�/��
d���G-u�S���,7h3̜E��XOC	(����2
-����(Z�l�&Q1�H	���OlX��k����+kH��*T�g	
���}��y˺-�K�0_|:
-i��t�n���-2y;���(�m&��6���j�޳1����ګD��P�m������t��}O@F��L?>�p΋�XsL��Eb��%��B+���|�����Pmws->1¼EDf�OobC-j��2�>�I��2{��tI��}XEX���|�O�3��pϏ8Sؘ�hS�qXH�=�`��λ
-�X�U��;h+o �^�:3w3Pd�'���ƛ���K�o��-��z�P�g�,7k�����[��F��_:A��L�+��c7�I���ټ���Gd���E���q�̣!5ΐ`��"(WM�sh����+2*��C�?9�|��R��^�Yq6�6]���ýf��N��b[O�m�ti(�d�BjOq"�����*�>��1�7���W��CI<'cX��F��K
-�*�
-�"&	F�2
-6�™�r�<���F޽Л�%�}~啭���G��O���-�^em��cv+�5���)�PV���b:*�h�&��>�uT+��6'��7���Si�5��`y(�A
���z؅�8�R�/���	OAQ��9z�bea&���&��Y�r:��ܢm���|��Mk�s�ȪI.���AO�='S�8��K�f�9F��Y������F�=�>:&��4�)(�}IJ7JA2���"e2�~���VF�\Y�*��66Wj�0C~ Uѥm��lr����1�o���d_�;?k�
 ��0�@_�6��/��������a8YκP��t�?ǒe&�5�}7\^F�TVE���b�����`�N7��t�}aA<���� �)G�Bf��G|
-eg�F�V��ǙcHq��'h^����$i�w�G�4:z��Y���~Y��KJ+�	ܮ\�Ҹr[�òbȶ�n�;��l-�зE},�*��>al��|F6Ӥ��?��4"��D^'y��'�	�I�1�mD89Cwݟ_���*�ɒ�Xk,�2�4��zµ�^O���`<Sc	�����$�q�-6{�QgT<�b1>��W�I��o�,��"�_�$�Y�q� ��(��跐Z��ޜj�ON���(Q�.����w�'V�Ay�'h��j�m$���]���Z��6����@Tf�u{��
i�&���f6]Ž��;�Y0��l7�O"��vj�����J��Y:�C��@t�8�"eS�ξxV!c�H���t������^�j��vx�B��?������
�$�3&�yA�R���@6�0]�gUP~�a��r}�<���<w�Ru��nV��5ȧ�������/#��$&n���2�3�ѾUs9����r��8$�����X�_ iY��|�p=M�,��^`�Z>J-k��+�c���/��{F�^�}�o����l�A�M���eiLq��!�q?�����IH��oȶ�{���!G�8�b�x<Ij�Ŧ�6�%�珗CO��څ��li�`=����������� N��3S�=Ҫ���q����)aF���qɸ����4��Ib���� h뇜W�V��H�=�DF6����[W*䎶�ȍ2	h�d�"�}���S�����9��7�~{Z$�Wd84~��9�2�~�'�u=�v����:Ude��	T���ny ��_<pZ�|e���!�T��$�,o_�$�'��
_���߬ȓ�Lm#�
-����Kp$�!��j)t�����?XWG��
-���ŷ�p���ާ����@I_�����C������=�a�A�t�^��.&�5����N���2�gHQ�`Y5[�GC7k��,�t��~��x����w
ʽ���|
-��z,S��w>!�x��vd��1���������O�H�Pu�����YZ���=E��6�bz�Q���W�rrF��d��``�U��>$Y�!��I��w��gb�Z��?2��L����8��0� C���,$�m�3�ᄅ����V�,
-{�{!�'V�ړ0�cu(Z���^냧�9;i��eN7��yՉANYCk8�u�5֊n���0�h����7���P�!��$&Q�t<��_���o��Ԓ�����.g�
C���~��{-���Uz�t����G=�+h�
-]��bD�D7�j���XŲ"�̣M�	��Y���m�f�
-��ࠚz�w��
��%��3$�elv�t �����3n �B��w~5��}�'9{��|��4���3	�~�����02z�M�<��Y�'7p��vK@5��{ߵ��n+���7e�V��>'�2DE���Χ|0Xv�ڠ����{l/��G�P�`8��M�l~����+�2+q�W�5��w֣�Q���D�
-�i��dZ�g���&5$�:@#W�5|�⬥����|Ym`<��B="�5�?܎P:�"�3��V{x�~	s���#���v$*�cj�m�?X���mK��VU�j��N�t(5a4��]����h�X�@�=���7���L�d΂H�Տ�m��<%d��#�e$��X��~ ��N^����J>x�-P�s�)6P9
-�c[)�7���Y���]��
7/����dg�j{�M��ǡ�@Ed^��˜�����SW:������A1��x�&Aք$�c"̑��~$�ϐ�g���1���:�><�B��FR�?xr�Ǿv���Lb,x�d
-��O��(KsY��q�/VD�bs��i3tPpy�:l��f����aT�&;�v�=�0�\�K;;��0��
Q��56@�l]����8�߾?��ul۵x
-�j�ju�����3�*�yNY��ɐ�름}�$��,r,�P@�iz��#A	
-�BU���{�d��K��67��E<ly��s0����뿫���������i{�%��猿�E�� �5��.#���Y�ڕ�S�Sp:a�
�e|�anVϢ����&��4J�ܭ����d;P���~r)�݊�#.��5�L�Y|�$yNV�{o{�䤭�
�+��z9���]�A��.�|��j��FF�j�A
q&�C	���V_�����lHD���������&�x)}6��.�0�Қ؄�.���Y���$�N���,O6�������z�lJ=rW-
*"�S�
+hj:��*�^_8V�;�k�"�L����Fh�J�툙����Q�@�I-o�W�
+�eϼ��h����4�Kן�5��Ͻqk$
F��2��lEƀ�����#8���]�����v�4� �,�S��=�ɪe�40*h�|{�{��:x"�V&$���eX e�C��߽�/+��Y;�Uv�{t�)N4;����D��N�[�Q�F���R��<~�=nm��<Y0:j�
+#�g�M�!�"��Gi��p��O��{{[ހ^�"���C���e����������
+�|�����/�/?q�WsV䄊�j}�It���hh
+Ж�A�L-Cb����1x%+p�)sze��������0��ԥH��9I.U���D	M�xt&�|T�44��-`j����WGŪ�}�O�����!��P�B�Kw�PMO&�.��
+\�:�=ҡ�7�k�=C<!����Xx��ixu?K��OT^�xvE#/��'ώ,��4������t�cH�(��#�d���@�ls�����
+��{���9�$�ٵ�R@]�A�*�{�b+���1I�?PЦ#�#$xq��i�.��Yb �k
�pN��5٨l(��m{.:?�,x�&2�np��ՖZ^Gjcr3&ƮχމB�����D7^����@t�fr�>���C��Q.�6�Η��s�E2&�{@�ċ��f5Hlp[�
+'}�#�o���s������k#�_�o�+
��U��}'�L혊#҈�43_�#T�J��7�R��������m5�
���	Th�:ɽ�S�Q��}X��$�e��Q �^�G��ě��8c�|7���`6�9T>���V���G���eH�t�vm��Z^~ic}l�ý���fc�?njj�-���W����$o|�܀��9
+�����
>,�>J[Y��9^C�(��F�s.�2����~�i��s�����FM�È�	��oݲq	���Ec�R����jp�A~rA��T�������i�ԥ)�Ym���$m��
�������:��������_�nE�.>/	Ⳙ�7f�S�v��ۜH
+�b�o��,�x��y�������^�����WĔ��à�	"�a���x�š
���p>:���VU�qIUG���q�+�sa��؊қt�ʦ�z�W��r���$���$RTH5nX�4Ѐšo���I��W�g�s3��4i���˙B�7s�
����M��~�{
��1�*�1�����:x�ˁT�h�]�d3�*��⩭�AQtbQ� �ڊ/M&������d��+�ψؠ��@r~	�v/��2	�0�xCB�O�<�3z�OW���p-�� ��N�%3p���`]����U�G���g��&��3�J" ���H:e+��\�5]��ʔ���=Z��B)B�����~I������\zw���P�+ִ�kI:���
�"�������)?�T�8��$�r�0q��zT�m\Q�W�Z�A�h
+�̣��7_�X.!�_��d��}gST����R#��e}�8��Z��x_�b�}�t I
m�.�:'�C
:F�0@�*
��o�$9D��E�^e2��D��B
���4΁�������U��[�6����������V`}@H������+�׬n�'ٜA�w,xp�%�W��59��!��4
?�#V��!�$�~��I���o(�Mn>ϯ�(��"���h����p���m�·��cc�\���
+[#��џ~h��~倃H����d!,�+{���s�{ls<?FbqJ����Y�z 7J�kZ;�W�M$_��"��	b�#23��	���c
��:�W2x�D,���<��0F:f��k��G�.���ŠS��<[�Gu6U��
�w-�'��Ÿ�#��~�r���yk��&��FEn�<�}�^WI)S�XS�K:U	���`I�C
+6	�ZE]2�Ǖ8l��U�t�R}1K_��sK��?��4�%nQ�~�Ǜ��nE�s3Nǭ"�[Bz�mq�~��㍼��	��	���,�H;Y�����<tt�@��
B�[Q<h�Q�)T��9�)�
�v���ɈT��=Mp�6c�w�	\��}�
�z�a�t��Z���F#1��
+d?�b����F��fh�D�"�T�����4�~��=�}#�h%S,")s�`��Kᴜε��FL���|�
�����X�)��a�����Ѷj�2�[[���4�/�$	S��z���T��⯭���uc��l�pa�%4b�xg&��i&Y.	D	7�9
�֒']4[����+������EGT食��B�=�d�3�
�΄e�rS�USw�,�o�Y<㿇����A"���Zۇ�o���#�9�숕)<�sj��>}���f��ǫ���y�7��٢v߅,w��bݼ+LQY��+ş1o���gn�����:�;�M���B���}�[(EI:��|���%C�~Qj��=@����^��&�A.M����8��6dX	����!���-��p�P
+�^-�k�3�����c�1�ak�x�Y8$\Ñb<�\��D��Q(���H�n
+q��K�+�My��P��%��=Mz�KAy���.�w�w���n��(�׹��Py�:YNq�Iqй{���Gf~�w�������p��C�JOtT�I�2��y�LD�j}�yfp9x��Q{�]�������(3��n&N].��y\.J;��B�0嵊�]�3����#�=H#RU�[A?�5�gˇ��؇k��K�Z�K��&*��K�u�!�L3�\�Lo�116���$�a�ΣR�:V���ퟀ*wis�O�%^��-�\����6n���	i��g�����?4eB~��$�44��C�-��ͮ%��!d����i|��/+��=���G�&�=�!R0q��=M�5��+
9���:+Z纓���ԙQ.��\�^>E�kf,9A�U̅��4_�
R#�����&܋M�pV��^�I��(>���n�?��6���Ye�Ĭ�ϋ�(3d���U��g#�ڜ��Vv��?B�	�oZ:�6��u�d͑p
>g�Ϻ��&v�k��5O���4��f������HI������~���
�TW0=1hƂy����O:�JG�������<g��/	�d9�e�����e(u�
�v����op��ߏT�$J��C�2���΍�(���䳔���.E��N��&��hF�nZ�-Μ.
+��3t0� ��篴B��w���Ft�)�]�q+�S��l::����LP���!�+:3�J1��|�N�"-��S�X������SWɤ��/�������$
,(�
+��^X�B�ߟ
+���(f���V�M�B�|�[k��¢{�,�M�N���J)�7q�>̴_�?B�\~�2B�t�jw�}f��Ep���Wc�j���9ǒPV],G92"~�!��Kҧ���!��h;�
�mX�z�������x�]N��Gz=?��T����it��!^���S�ֆ��S���@�*�N���?������]���^�S�m�3(A��#δX�pmn������O��?%��s��ԹE����$���>t���"���1;�	T�$��~k���X|�*l%�#��BAX����
@G���z����y�(W���8��A$�!`��,�4��ޗxł�
���"kZh-�iO<Q
+}��+-��
��M|qQ�
�P	oWU,�q���z��b*8��{�i,%Ĵ0��+�����m���eO�D81�Ci3��=؋V��A$_�׌s��cD4)oxo-��C��U���2�#$^����U�.����h�}vr
lv����\�ᬏ`С����BTyt�d���a���4ZJ�_���[��CIK��a����D�!t���f"���h�fb?���/=��k�i����J�ޢ�(7a�kǮ�w��b�<
�d�YI�?u���f�ޤ�N��ſD��M��1��Zr��@���R�ȁ�wEp?����ɆIf���H�寭��|�z1mJ~��࣑
+G�M&`� ș�Ե��
e� y�fR
+΃a���
�w*Zq^�L���_�␨;,�Q� ���2�f
L�H�

�#����"�1f��>f�¬�g���v�:R�Wp
+�E]�mk�A���!����ŽW���3M��C�m�D��i�jb��m^B��z�[=����0J;�+>���m7�\��їyAȆ����c��Pdd)��%J������C���D��U
+
"��)OFF�3_�eѾ��F�o5�9��2H{�*�Z��<˃�Ps:�;
+ԽY�t
+�&Wx��_�q��R����o��qð�8p8��i�������^�3|�3���������cz��71�^��w{�A("S�k�P2�=9r����@������	ʳZ��u
+�H�@�c���"�Ϳ�
��O���Qpz�KT�5������ζ�L��x�j��Jj	R��'� ��V
��Oj:ڬ+jNvV��u_h���8�
����>9`Sh����;x_1�T��u�S~�b��X��O�E"֜o��꒢Р)��L7W�!VZv����W�y��
����d�f�^�!��nҒ��Q��fy@u��?��TM�|tb� xH�^��ٶ#�]Őu�\ʆ�����QU9��g--ܛ�/zU�0/<;;�]2@d���y�
ni� �'��r����Ĉ��q�P���>�pUIǼ5kd�� G��R���
+����!�hE�}�ttϰ�4��C�䜓'7����~�-��6�>�|鿿��nn���>�FJ㫱�J4Xbu���PD��99ťȆ�2Z�C�}?�^���Q%��5~�؋�;~���#�݁�^'�dZ����]�ܠ�O�i�F�uoP�1�	�s�s=�h[�މ#��H�������igH��H�G��Ct�K�}�j]Y���0�6)8��o�YjK�
I�ڀ��`�"=�����P=?����xfȤ����㙙OvŨ�^��T��C��#���/�,G/��v��Z���vy��H�O)Rv)���'��\*�M��09�M1u��F�ưy�_U[��Q|�4���	,�׻��51�L�'�锡ٗ�,��3_��d_����R��������ݹ�\U�71י�dI�g����i��ҵw,��;J��˔�h�'h�ԿX��v0�xa/���B�Q,f�L�k��J&���(,q�(��=K�;l�NN��^>�9*>:�����{��qE�Ǩ���v9���T���ʾ��!Qf�E	ɔ�h=� �Z�ML�vZr���E�2ėԍ|'��f@����6��D��z��i��D�1�Eȧ�"��㙝ߝyV	�u����"�J!盱������WeM����:*~����R�����݆�T1�L4;|({+�t�n�h%��'��?J]!b�'d���&���Vi�T3pL��{�"�/�{7M��\�rgk�0�D��]��]�h�w{��g�՜VO��]���M���I\�
+Uŭ�|	t���fk�#��Y�%��7���Ed����fw��wy}���!|��9=c��1��aW����#�cQ��Z;���aR"/7@��mDCZ����r��R=s��5c؊H�5l��И�"h�;������s�m*��;b`~��Ȗ�Tx=ގ:���+�-R��|p�į�br����GLj$#���-�|>R�Ϙ��5�*r�PM[;aS,@�83B$|_T���|P��Ǯq^k�f3��l�<�!�gmg��Sz���ڙ�!O~WSje�W��Gey��4	���F�y8��Hx!����AQ��賆���8aV�C8�D��?D�3h!־σٚ�k	�����/TM�.t�!�Ը?r� 'Qyu
���0PwPF�K8[5�NQ��z0��h�2"J]5�����	y#���<�˼nz��`A��x��E2᫩� 3y�U��<օ*��&�㱑�jB8��A�䶲?P��8Mq�F*A��n�y��v�:"�B��pXRI�oئ�7�+�v�7�������A�7��GYB0	�8!���Z �^f����7�zS�*j�p'���꺵xb�/VH[ݤQ��z���]�'M��G =����3�*ʹ0���ϷrJ�kԎx
���s�Щҩ*�e�/k�>0�#�\}�&��+X
���r�!>d�����v���Y���5>���v�Ķ,�gm�3w�i�y����Į�n/��q�6ܜn/�äL�C�J����VD�ZGhXi�ՙy���q˜��O(���}I|)D�T��d���c�4j�UL��Th^�/�����6��P7��	�� �r3�\5�'3�.R�_��ɦG�6CVu����/<�>Ya���K��졻��Z\�{x����<�&S������:Ai�o�#}��(�ӬE�-����-�tf_��MK1�XIݡ�d*���D�����H���,a݄?�ݯ#�:)�57[��f=%^�ڝx�U��������	��K��K�{7J,C!l���uU����A#ti:Z1!Y1�|X5����UўJ���ݤ�I��7�ޛ���G�p�IՄ���L+��t|LG>?yC����� ��J�gS���iZK]`#
A���I�0���1G��d�,��rz�I�ΣtY��lQ�Hp���?�F��l(�0ND���>XVV8�[�ƞd[��!��.3C�f"���h5��ɪ�gL*GX�8�I�f����i<��gu>X��ՑKְo��:������:	"��QRTSA�l��Ƹ	hݣ����%��ME�)�zJ4������X�&\6�9��%A��b�$�?gFw/q_��$,K�j‹�0�����~���R;�
��ȟ�G�^G��K������w��d-<EX�k�XT>`�9Wl��幻y���a׳��4�Z�AV�!!.����~���6׎5�Y��w�M������2u0��������&!G�a��=Qy*;_�W���U7�_���$���.��w�-�o�����
[��5��{�^k~'ٽn���8�W���#2%�5��1�'�A�n��@�祝���c�9�'1v�L-/
��(���*)c�%
+=�G{��)������IDJ�6�7������ y@{r�&m���/E�HP8Mj'�j	ƞi1��N1� ��T�Y߅-�C�	N1�J	~��]"���ɝ�����u�{�i�u�5M����VY!:�
+M
+F_�e@eO23��4FQ����Fi9'Z�d��k7l݃)?�4�2i�S"�({x]��_*g	�&�Z�e��c$���j$Hw�m�x�'�$��άXr���p��G�,g�@*5YƮ>u�#�/��]����<x7p�¹�x����k���n�l��
+s`�x�D��E�lLR����.Ơ5i��ե`�
���I��GN|毎\���?>���.zGef���~N7^_���V3{�.�vM��y
'��8���z���Ao%.fx��.t�x8V�G�FE^�Q��D27�OW�[(e6Y����t�K�o<E���9�q�5b`J�c�~
^�ѿsr�yZ�w#�Kuso���p�y�҆�O�U�]�p|MşW*�}�j�U���٩r \S\r(�zG�x�5���׬�R[n�#쬜�؞�������R6�36���1&�q骇�L���f���~=��^����^�Z ��c�@.��}�F�氢d��\)S�7��l��'�U�K����6
� ~F���f��:qv�
��o��-~�E�(]��m�&�X�a/��
+ҩ����X��
7CL��q�4w���\���l&� .�hC�#8�p��p0����l'Í�LJ�G�Fy��{��W�����a��Ϸě��P���R�_(ɦk#^ַa3�T����wf��3�H�
��s1r�1�Ǝ|{�('�t�\gb�����v��,)t�w+ɨ�o�m��މ�Y�q�����Яd�w"_�@v�O��Km�9n!�H�E��$hm���l0�M�P���Bd#��MFT{c!%D۹1k����+�Yc\x�Xd���=
 endstream
 endobj
-1961 0 obj
+1984 0 obj
 <<
 /Length1 1616
 /Length2 23613
@@ -27260,7 +27522,7 @@ v̕
 U�BO��E+�/�dI���W|ޏ�1�%��slp���9c��h$��|��ƾΑ��9ʬf��^����~Wi-�h�9G:�H� Ca>0'���]&{���;OZ�rJYLW͠s_(��97�����CU�Ǜ\�𵉼�ʠ�/mm�~fSѢ�_|��d�����D�n�F�1�(����
o}�R����݁&865IV���h��
�B���
 endstream
 endobj
-1963 0 obj
+1986 0 obj
 <<
 /Length1 1620
 /Length2 17956
@@ -27362,295 +27624,397 @@ Y
 ]X�%�&��cg�8��}��$녑�Y��
 endstream
 endobj
-1898 0 obj
+1891 0 obj
 <<
 /Type /ObjStm
 /N 100
-/First 990
-/Length 17078     
+/First 984
+/Length 16452     
 >>
 stream
-1891 0 1887 148 1888 298 1893 443 573 502 1894 560 1895 619 1896 678 1897 737 1890 795
-1903 942 1889 1108 1899 1255 1900 1399 1901 1543 1905 1688 1902 1746 1909 1893 1907 2032 1911 2176
-1908 2235 1913 2342 1915 2460 1916 2518 783 2576 1917 2633 831 2691 830 2748 789 2803 790 2860
-805 2917 786 2974 787 3031 1918 3088 782 3146 1919 3203 1912 3261 1921 3355 1923 3473 946 3532
-817 3590 788 3648 785 3706 781 3764 784 3822 1924 3880 1920 3939 1925 4033 1926 4053 1927 4404
-1928 4435 1929 4594 1930 4617 1931 4968 1932 5097 1933 5220 1934 5866 1936 6337 1937 6968 1938 7439
-1940 8014 1942 8239 1944 8487 1946 8717 1948 8963 1950 9287 1952 9789 1954 10021 1956 10362 1958 10588
-1960 10819 1962 11281 1964 11833 1935 12224 1736 12634 1667 12777 1360 12920 814 13061 813 13200 812 13340
-870 13481 915 13621 1154 13761 1027 13906 584 14056 586 14226 585 14396 587 14566 780 14679 871 14792
-927 14905 962 15018 991 15131 1034 15248 1079 15368 1121 15488 1180 15608 1232 15728 1281 15848 1330 15968
-% 1891 0 obj
+1887 0 1893 120 1895 238 561 297 1892 355 1899 449 1896 597 1897 742 1901 889 565 947
+1898 1004 1904 1098 1906 1216 569 1275 1903 1333 1911 1427 1907 1575 1908 1724 1913 1869 573 1927
+1914 1984 1915 2042 1916 2100 1917 2158 1910 2216 1922 2363 1909 2529 1918 2676 1919 2820 1920 2964
+1924 3109 1921 3168 1927 3315 1925 3454 1929 3598 1926 3656 1931 3763 1933 3881 1930 3940 1935 4008
+1937 4126 1938 4184 783 4242 1939 4299 831 4357 830 4414 789 4469 790 4526 805 4583 786 4640
+787 4697 1940 4754 782 4812 1941 4869 1934 4927 1944 5021 1946 5139 946 5198 817 5256 788 5314
+785 5372 781 5430 784 5488 1947 5546 1943 5605 1948 5699 1949 5719 1950 6070 1951 6101 1952 6260
+1953 6283 1954 6638 1955 6767 1956 6890 1957 7536 1959 8007 1960 8638 1961 9109 1963 9684 1965 9909
+1967 10157 1969 10387 1971 10633 1973 10957 1975 11459 1977 11691 1979 12063 1981 12289 1983 12520 1985 12988
+1987 13540 1958 13931 1750 14341 1682 14484 1360 14627 814 14768 813 14907 812 15047 870 15188 915 15328
+% 1887 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F83 813 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1893 0 obj
 <<
 /Type /Page
-/Contents 1892 0 R
-/Resources 1890 0 R
+/Contents 1894 0 R
+/Resources 1892 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1867 0 R
-/Annots [ 1887 0 R 1888 0 R ]
+/Parent 1865 0 R
 >>
-% 1887 0 obj
+% 1895 0 obj
+<<
+/D [1893 0 R /XYZ 149.705 753.953 null]
+>>
+% 561 0 obj
+<<
+/D [1893 0 R /XYZ 150.705 716.092 null]
+>>
+% 1892 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1899 0 obj
+<<
+/Type /Page
+/Contents 1900 0 R
+/Resources 1898 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+/Annots [ 1896 0 R 1897 0 R ]
+>>
+% 1896 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [320.317 573.77 387.374 585.83]
+/A << /S /GoTo /D (precdata) >>
+>>
+% 1897 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [320.317 498.054 387.374 510.114]
+/A << /S /GoTo /D (precdata) >>
+>>
+% 1901 0 obj
+<<
+/D [1899 0 R /XYZ 98.895 753.953 null]
+>>
+% 565 0 obj
+<<
+/D [1899 0 R /XYZ 99.895 716.092 null]
+>>
+% 1898 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1904 0 obj
+<<
+/Type /Page
+/Contents 1905 0 R
+/Resources 1903 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+>>
+% 1906 0 obj
+<<
+/D [1904 0 R /XYZ 149.705 753.953 null]
+>>
+% 569 0 obj
+<<
+/D [1904 0 R /XYZ 150.705 716.092 null]
+>>
+% 1903 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1911 0 obj
+<<
+/Type /Page
+/Contents 1912 0 R
+/Resources 1910 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+/Annots [ 1907 0 R 1908 0 R ]
+>>
+% 1907 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [379.973 275.278 386.249 288.868]
+/Rect [329.163 275.278 335.44 288.868]
 /A << /S /GoTo /D (Hfootnote.5) >>
 >>
-% 1888 0 obj
+% 1908 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 134.696 420.271 146.755]
+/Rect [291.943 134.696 369.462 146.755]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1893 0 obj
+% 1913 0 obj
 <<
-/D [1891 0 R /XYZ 149.705 753.953 null]
+/D [1911 0 R /XYZ 98.895 753.953 null]
 >>
 % 573 0 obj
 <<
-/D [1891 0 R /XYZ 150.705 716.092 null]
+/D [1911 0 R /XYZ 99.895 716.092 null]
 >>
-% 1894 0 obj
+% 1914 0 obj
 <<
-/D [1891 0 R /XYZ 150.705 444.811 null]
+/D [1911 0 R /XYZ 99.895 444.811 null]
 >>
-% 1895 0 obj
+% 1915 0 obj
 <<
-/D [1891 0 R /XYZ 150.705 444.971 null]
+/D [1911 0 R /XYZ 99.895 444.971 null]
 >>
-% 1896 0 obj
+% 1916 0 obj
 <<
-/D [1891 0 R /XYZ 150.705 433.015 null]
+/D [1911 0 R /XYZ 99.895 433.015 null]
 >>
-% 1897 0 obj
+% 1917 0 obj
 <<
-/D [1891 0 R /XYZ 165.051 129.79 null]
+/D [1911 0 R /XYZ 114.242 129.79 null]
 >>
-% 1890 0 obj
+% 1910 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F61 1360 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1903 0 obj
+% 1922 0 obj
 <<
 /Type /Page
-/Contents 1904 0 R
-/Resources 1902 0 R
+/Contents 1923 0 R
+/Resources 1921 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1906 0 R
-/Annots [ 1889 0 R 1899 0 R 1900 0 R 1901 0 R ]
+/Parent 1902 0 R
+/Annots [ 1909 0 R 1918 0 R 1919 0 R 1920 0 R ]
 >>
-% 1889 0 obj
+% 1909 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 654.503 359.001 666.562]
+/Rect [342.753 654.503 409.811 666.562]
 /A << /S /GoTo /D (precdata) >>
 >>
-% 1899 0 obj
+% 1918 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.493 584.479 418.548 596.539]
+/Rect [393.303 584.479 469.357 596.539]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1900 0 obj
+% 1919 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.493 514.456 418.548 526.516]
+/Rect [393.303 514.456 469.357 526.516]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1901 0 obj
+% 1920 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 374.41 359.001 386.47]
+/Rect [342.753 374.41 409.811 386.47]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1905 0 obj
+% 1924 0 obj
 <<
-/D [1903 0 R /XYZ 98.895 753.953 null]
+/D [1922 0 R /XYZ 149.705 753.953 null]
 >>
-% 1902 0 obj
+% 1921 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F61 1360 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1909 0 obj
+% 1927 0 obj
 <<
 /Type /Page
-/Contents 1910 0 R
-/Resources 1908 0 R
+/Contents 1928 0 R
+/Resources 1926 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1906 0 R
-/Annots [ 1907 0 R ]
+/Parent 1902 0 R
+/Annots [ 1925 0 R ]
 >>
-% 1907 0 obj
+% 1925 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [393.303 554.876 469.357 566.936]
+/Rect [342.493 554.876 418.548 566.936]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1911 0 obj
+% 1929 0 obj
 <<
-/D [1909 0 R /XYZ 149.705 753.953 null]
+/D [1927 0 R /XYZ 98.895 753.953 null]
 >>
-% 1908 0 obj
+% 1926 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1913 0 obj
+% 1931 0 obj
 <<
 /Type /Page
-/Contents 1914 0 R
-/Resources 1912 0 R
+/Contents 1932 0 R
+/Resources 1930 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1906 0 R
+/Parent 1902 0 R
 >>
-% 1915 0 obj
+% 1933 0 obj
 <<
-/D [1913 0 R /XYZ 98.895 753.953 null]
+/D [1931 0 R /XYZ 149.705 753.953 null]
 >>
-% 1916 0 obj
+% 1930 0 obj
+<<
+/Font << /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1935 0 obj
+<<
+/Type /Page
+/Contents 1936 0 R
+/Resources 1934 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1942 0 R
+>>
+% 1937 0 obj
+<<
+/D [1935 0 R /XYZ 98.895 753.953 null]
+>>
+% 1938 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 723.717 null]
+/D [1935 0 R /XYZ 99.895 723.717 null]
 >>
 % 783 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 698.622 null]
+/D [1935 0 R /XYZ 99.895 698.622 null]
 >>
-% 1917 0 obj
+% 1939 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 640.564 null]
+/D [1935 0 R /XYZ 99.895 640.564 null]
 >>
 % 831 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 585.057 null]
+/D [1935 0 R /XYZ 99.895 585.057 null]
 >>
 % 830 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 532.2 null]
+/D [1935 0 R /XYZ 99.895 532.2 null]
 >>
 % 789 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 474.043 null]
+/D [1935 0 R /XYZ 99.895 474.043 null]
 >>
 % 790 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 431.766 null]
+/D [1935 0 R /XYZ 99.895 431.766 null]
 >>
 % 805 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 388.215 null]
+/D [1935 0 R /XYZ 99.895 388.215 null]
 >>
 % 786 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 343.387 null]
+/D [1935 0 R /XYZ 99.895 343.387 null]
 >>
 % 787 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 299.836 null]
+/D [1935 0 R /XYZ 99.895 299.836 null]
 >>
-% 1918 0 obj
+% 1940 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 256.284 null]
+/D [1935 0 R /XYZ 99.895 256.284 null]
 >>
 % 782 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 212.732 null]
+/D [1935 0 R /XYZ 99.895 212.732 null]
 >>
-% 1919 0 obj
+% 1941 0 obj
 <<
-/D [1913 0 R /XYZ 99.895 169.848 null]
+/D [1935 0 R /XYZ 99.895 169.848 null]
 >>
-% 1912 0 obj
+% 1934 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1921 0 obj
+% 1944 0 obj
 <<
 /Type /Page
-/Contents 1922 0 R
-/Resources 1920 0 R
+/Contents 1945 0 R
+/Resources 1943 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1906 0 R
+/Parent 1942 0 R
 >>
-% 1923 0 obj
+% 1946 0 obj
 <<
-/D [1921 0 R /XYZ 149.705 753.953 null]
+/D [1944 0 R /XYZ 149.705 753.953 null]
 >>
 % 946 0 obj
 <<
-/D [1921 0 R /XYZ 150.705 716.092 null]
+/D [1944 0 R /XYZ 150.705 716.092 null]
 >>
 % 817 0 obj
 <<
-/D [1921 0 R /XYZ 150.705 687.379 null]
+/D [1944 0 R /XYZ 150.705 687.379 null]
 >>
 % 788 0 obj
 <<
-/D [1921 0 R /XYZ 150.705 632.184 null]
+/D [1944 0 R /XYZ 150.705 632.184 null]
 >>
 % 785 0 obj
 <<
-/D [1921 0 R /XYZ 150.705 590.403 null]
+/D [1944 0 R /XYZ 150.705 590.403 null]
 >>
 % 781 0 obj
 <<
-/D [1921 0 R /XYZ 150.705 545.192 null]
+/D [1944 0 R /XYZ 150.705 545.192 null]
 >>
 % 784 0 obj
 <<
-/D [1921 0 R /XYZ 150.705 512.037 null]
+/D [1944 0 R /XYZ 150.705 512.037 null]
 >>
-% 1924 0 obj
+% 1947 0 obj
 <<
-/D [1921 0 R /XYZ 150.705 480.156 null]
+/D [1944 0 R /XYZ 150.705 480.156 null]
 >>
-% 1920 0 obj
+% 1943 0 obj
 <<
 /Font << /F54 586 0 R /F52 585 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1925 0 obj
+% 1948 0 obj
 [1000]
-% 1926 0 obj
+% 1949 0 obj
 [525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
-% 1927 0 obj
+% 1950 0 obj
 [777.8 500 777.8]
-% 1928 0 obj
+% 1951 0 obj
 [853 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 666 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 747 0 0 0 0 0 0 0 0 0 0 0 0 0 0 881 0 0 0 0 0 0 0 0 0 0 0 0 234 0 881 767]
-% 1929 0 obj
+% 1952 0 obj
 [528 542]
-% 1930 0 obj
-[525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
-% 1931 0 obj
+% 1953 0 obj
+[525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
+% 1954 0 obj
 [531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3]
-% 1932 0 obj
+% 1955 0 obj
 [388.9 388.9 500 777.8 277.8 333.3 277.8 500 500 500 500 500 500 500 500 500 500 500 277.8 277.8 277.8 777.8]
-% 1933 0 obj
+% 1956 0 obj
 [777.8 277.8 777.8 500 777.8 500 777.8 777.8 777.8 777.8 777.8 777.8 777.8 1000 500 500 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 1000 1000 777.8 777.8 1000 1000 500 500 1000 1000 1000 777.8 1000 1000 611.1 611.1 1000 1000 1000 777.8 275 1000 666.7 666.7 888.9 888.9 0 0 555.6 555.6 666.7 500 722.2 722.2 777.8 777.8 611.1 798.5 656.8 526.5 771.4 527.8 718.7 594.9 844.5 544.5 677.8 761.9 689.7 1200.9 820.5 796.1 695.6 816.7 847.5 605.6 544.6 625.8 612.8 987.8 713.3 668.3 724.7 666.7 666.7 666.7 666.7 666.7 611.1 611.1 444.4 444.4 444.4 444.4 500 500 388.9 388.9 277.8 500 500 611.1 500 277.8 833.3]
-% 1934 0 obj
+% 1957 0 obj
 [525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
-% 1936 0 obj
+% 1959 0 obj
 [605 608 167 380 611 291 313 333 0 333 606 0 667 500 333 287 0 0 0 0 0 0 0 0 0 0 0 0 333 208 250 278 371 500 500 840 778 278 333 333 389 606 250 333 250 606 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 444 747 778 611 709 774 611 556 763 832 337 333 726 611 946 831 786 604 786 668 525 613 778 722 1000 667 667 667 333 606 333 606 500 278 500 553 444 611 479 333 556 582 291 234 556 291 883 582 546 601 560 395 424 326 603 565 834 516 556 500 333 606 333 606 0 0 0 278 500 500 1000 500 500 333 1144 525 331 998 0 0 0 0 0 0 500 500 606 500 1000 333 979 424 331 827 0 0 667 0 278 500 500 500 500 606 500]
-% 1937 0 obj
+% 1960 0 obj
 [528 545 167 333 556 278 333 333 0 333 606 0 667 444 333 278 0 0 0 0 0 0 0 0 0 0 0 0 333 333 250 333 500 500 500 889 778 278 333 333 389 606 250 333 250 296 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 500 747 722 611 667 778 611 556 722 778 333 333 667 556 944 778 778 611 778 667 556 611 778 722 944 722 667 667 333 606 333 606 500 278 444 463 407 500 389 278 500 500 278 278 444 278 778 556 444 500 463 389 389 333 556 500 722 500 500 444]
-% 1938 0 obj
+% 1961 0 obj
 [611 611 167 333 611 333 333 333 0 333 606 0 667 500 333 333 0 0 0 0 0 0 0 0 0 0 0 0 333 227 250 278 402 500 500 889 833 278 333 333 444 606 250 333 250 296 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 444 747 778 667 722 833 611 556 833 833 389 389 778 611 1000 833 833 611 833 722 611 667 778 778 1000 667 667 667 333 606 333 606 500 278 500 611 444 611 500 389 556 611 333 333 611 333 889 611 556 611 611 389 444 333 611 556 833 500 556 500 310 606 310 606 0 0 0 333 500 500 1000 500 500 333 1000 611 389 1000 0 0 0 0 0 0 500 500 606 500 1000]
-% 1940 0 obj
+% 1963 0 obj
 <<
 /Type /FontDescriptor
 /FontName /MNPEHI+CMEX10
@@ -27663,9 +28027,9 @@ stream
 /StemV 47
 /XHeight 431
 /CharSet (/radicalbigg)
-/FontFile 1939 0 R
+/FontFile 1962 0 R
 >>
-% 1942 0 obj
+% 1965 0 obj
 <<
 /Type /FontDescriptor
 /FontName /MPVPBL+CMITT10
@@ -27678,9 +28042,9 @@ stream
 /StemV 69
 /XHeight 431
 /CharSet (/D/a/c/d/e/exclam/n/o/period/s/t)
-/FontFile 1941 0 R
+/FontFile 1964 0 R
 >>
-% 1944 0 obj
+% 1967 0 obj
 <<
 /Type /FontDescriptor
 /FontName /SYFPBV+CMMI10
@@ -27693,9 +28057,9 @@ stream
 /StemV 72
 /XHeight 431
 /CharSet (/greater/less)
-/FontFile 1943 0 R
+/FontFile 1966 0 R
 >>
-% 1946 0 obj
+% 1969 0 obj
 <<
 /Type /FontDescriptor
 /FontName /GIGFZE+CMR10
@@ -27708,9 +28072,9 @@ stream
 /StemV 69
 /XHeight 431
 /CharSet (/equal/parenleft/parenright/plus)
-/FontFile 1945 0 R
+/FontFile 1968 0 R
 >>
-% 1948 0 obj
+% 1971 0 obj
 <<
 /Type /FontDescriptor
 /FontName /DMJGRR+CMSY10
@@ -27723,9 +28087,9 @@ stream
 /StemV 40
 /XHeight 431
 /CharSet (/B/H/I/arrowleft/bar/bardbl/braceleft/braceright/element/greaterequal/lessequal/minus/negationslash/radical)
-/FontFile 1947 0 R
+/FontFile 1970 0 R
 >>
-% 1950 0 obj
+% 1973 0 obj
 <<
 /Type /FontDescriptor
 /FontName /QCUYCW+CMTT10
@@ -27738,9 +28102,9 @@ stream
 /StemV 69
 /XHeight 431
 /CharSet (/A/B/C/D/E/F/I/K/L/M/N/O/P/R/S/T/U/W/Y/a/ampersand/asciitilde/asterisk/b/backslash/bracketleft/bracketright/c/colon/comma/d/e/equal/f/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/percent/period/plus/q/quotesingle/r/s/seven/six/slash/t/three/two/u/underscore/v/w/x/y/z/zero)
-/FontFile 1949 0 R
+/FontFile 1972 0 R
 >>
-% 1952 0 obj
+% 1975 0 obj
 <<
 /Type /FontDescriptor
 /FontName /HZGQIC+CMTT8
@@ -27753,12 +28117,12 @@ stream
 /StemV 76
 /XHeight 431
 /CharSet (/b/c/e/i/l/n/p/r/s/t)
-/FontFile 1951 0 R
+/FontFile 1974 0 R
 >>
-% 1954 0 obj
+% 1977 0 obj
 <<
 /Type /FontDescriptor
-/FontName /ZFVUYX+CMTT9
+/FontName /BQXTWV+CMTT9
 /Flags 4
 /FontBBox [-6 -233 542 698]
 /Ascent 611
@@ -27767,10 +28131,10 @@ stream
 /ItalicAngle 0
 /StemV 74
 /XHeight 431
-/CharSet (/D/E/I/K/N/P/T/Y/a/ampersand/b/c/colon/comma/d/e/equal/g/h/i/l/m/n/o/p/parenleft/parenright/period/q/r/s/t/two/u/underscore/v/x/y)
-/FontFile 1953 0 R
+/CharSet (/D/E/I/K/N/P/T/Y/a/ampersand/b/c/colon/comma/d/e/equal/f/g/greater/h/i/k/l/less/m/n/o/p/parenleft/parenright/period/q/r/s/semicolon/t/two/u/underscore/v/w/x/y/z)
+/FontFile 1976 0 R
 >>
-% 1956 0 obj
+% 1979 0 obj
 <<
 /Type /FontDescriptor
 /FontName /IKXQUG+PazoMath
@@ -27783,9 +28147,9 @@ stream
 /StemV 95
 /XHeight 0
 /CharSet (/infinity/summation)
-/FontFile 1955 0 R
+/FontFile 1978 0 R
 >>
-% 1958 0 obj
+% 1981 0 obj
 <<
 /Type /FontDescriptor
 /FontName /DUJUUF+PazoMath-Italic
@@ -27798,12 +28162,12 @@ stream
 /StemV 65
 /XHeight 0
 /CharSet (/alpha/beta)
-/FontFile 1957 0 R
+/FontFile 1980 0 R
 >>
-% 1960 0 obj
+% 1983 0 obj
 <<
 /Type /FontDescriptor
-/FontName /YWROOM+URWPalladioL-Bold
+/FontName /TVMKYN+URWPalladioL-Bold
 /Flags 4
 /FontBBox [-152 -301 1000 935]
 /Ascent 708
@@ -27812,10 +28176,10 @@ stream
 /ItalicAngle 0
 /StemV 123
 /XHeight 471
-/CharSet (/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/Z/a/b/c/colon/comma/d/e/eight/emdash/endash/equal/f/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/quoteright/r/s/seven/six/t/three/two/u/v/w/x/y/z/zero)
-/FontFile 1959 0 R
+/CharSet (/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/Z/a/b/c/colon/comma/d/e/eight/emdash/endash/equal/f/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/quoteright/r/s/seven/six/slash/t/three/two/u/v/w/x/y/z/zero)
+/FontFile 1982 0 R
 >>
-% 1962 0 obj
+% 1985 0 obj
 <<
 /Type /FontDescriptor
 /FontName /TCRNJT+URWPalladioL-Roma
@@ -27828,9 +28192,9 @@ stream
 /StemV 84
 /XHeight 469
 /CharSet (/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/R/S/T/U/V/W/X/a/ampersand/b/bracketleft/bracketright/bullet/c/colon/comma/d/e/eight/emdash/endash/equal/f/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/quotedblleft/quotedblright/quoteright/r/s/section/semicolon/seven/six/slash/t/three/two/u/v/w/x/y/z/zero)
-/FontFile 1961 0 R
+/FontFile 1984 0 R
 >>
-% 1964 0 obj
+% 1987 0 obj
 <<
 /Type /FontDescriptor
 /FontName /RUEFYH+URWPalladioL-Ital
@@ -27843,405 +28207,412 @@ stream
 /StemV 78
 /XHeight 482
 /CharSet (/A/B/C/D/E/F/G/H/I/L/M/N/O/P/Q/R/S/T/U/V/X/a/b/c/colon/d/e/f/fi/five/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/period/q/quoteright/r/s/slash/t/three/two/u/v/w/x/y/z/zero)
-/FontFile 1963 0 R
+/FontFile 1986 0 R
 >>
-% 1935 0 obj
+% 1958 0 obj
 <<
 /Type /Encoding
 /Differences [2/fi/fl 38/ampersand/quoteright/parenleft/parenright 44/comma/hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon 61/equal 65/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X 90/Z/bracketleft 93/bracketright 97/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z 147/quotedblleft/quotedblright/bullet/endash/emdash 167/section]
 >>
-% 1736 0 obj
+% 1750 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /MNPEHI+CMEX10
-/FontDescriptor 1940 0 R
+/FontDescriptor 1963 0 R
 /FirstChar 114
 /LastChar 114
-/Widths 1925 0 R
+/Widths 1948 0 R
 >>
-% 1667 0 obj
+% 1682 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /MPVPBL+CMITT10
-/FontDescriptor 1942 0 R
+/FontDescriptor 1965 0 R
 /FirstChar 33
 /LastChar 116
-/Widths 1926 0 R
+/Widths 1949 0 R
 >>
 % 1360 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /SYFPBV+CMMI10
-/FontDescriptor 1944 0 R
+/FontDescriptor 1967 0 R
 /FirstChar 60
 /LastChar 62
-/Widths 1927 0 R
+/Widths 1950 0 R
 >>
 % 814 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /GIGFZE+CMR10
-/FontDescriptor 1946 0 R
+/FontDescriptor 1969 0 R
 /FirstChar 40
 /LastChar 61
-/Widths 1932 0 R
+/Widths 1955 0 R
 >>
 % 813 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /DMJGRR+CMSY10
-/FontDescriptor 1948 0 R
+/FontDescriptor 1971 0 R
 /FirstChar 0
 /LastChar 112
-/Widths 1933 0 R
+/Widths 1956 0 R
 >>
 % 812 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /QCUYCW+CMTT10
-/FontDescriptor 1950 0 R
+/FontDescriptor 1973 0 R
 /FirstChar 13
 /LastChar 126
-/Widths 1934 0 R
+/Widths 1957 0 R
 >>
 % 870 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /HZGQIC+CMTT8
-/FontDescriptor 1952 0 R
+/FontDescriptor 1975 0 R
 /FirstChar 98
 /LastChar 116
-/Widths 1931 0 R
+/Widths 1954 0 R
 >>
 % 915 0 obj
 <<
 /Type /Font
 /Subtype /Type1
-/BaseFont /ZFVUYX+CMTT9
-/FontDescriptor 1954 0 R
+/BaseFont /BQXTWV+CMTT9
+/FontDescriptor 1977 0 R
 /FirstChar 38
-/LastChar 121
-/Widths 1930 0 R
+/LastChar 122
+/Widths 1953 0 R
+>>
+
+endstream
+endobj
+1988 0 obj
+<<
+/Type /ObjStm
+/N 100
+/First 925
+/Length 11101     
 >>
+stream
+1154 0 1027 145 584 295 586 465 585 635 587 805 780 918 871 1031 927 1144 962 1257
+991 1370 1034 1487 1079 1607 1121 1727 1180 1847 1232 1967 1281 2087 1330 2207 1371 2327 1409 2447
+1456 2567 1500 2687 1537 2807 1574 2927 1612 3047 1653 3167 1683 3287 1717 3407 1754 3527 1789 3647
+1828 3767 1865 3887 1902 4007 1942 4127 1989 4211 1990 4326 1991 4447 1992 4568 1993 4689 1994 4801
+1995 4897 574 4966 570 5026 566 5137 562 5211 558 5299 554 5387 550 5475 546 5563 542 5637
+538 5762 534 5836 530 5924 526 6012 522 6100 518 6188 514 6262 510 6387 506 6461 502 6549
+498 6637 494 6711 490 6836 486 6910 482 6998 478 7086 474 7174 470 7262 466 7350 462 7438
+458 7526 454 7614 450 7702 446 7790 442 7878 438 7966 434 8054 430 8142 426 8230 422 8304
+418 8430 414 8504 410 8592 406 8680 401 8768 397 8856 393 8944 389 9032 385 9120 381 9208
+377 9296 373 9384 369 9472 365 9560 361 9648 357 9736 353 9824 349 9912 345 10000 341 10088
 % 1154 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /IKXQUG+PazoMath
-/FontDescriptor 1956 0 R
+/FontDescriptor 1979 0 R
 /FirstChar 165
 /LastChar 229
-/Widths 1928 0 R
+/Widths 1951 0 R
 >>
 % 1027 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /DUJUUF+PazoMath-Italic
-/FontDescriptor 1958 0 R
+/FontDescriptor 1981 0 R
 /FirstChar 97
 /LastChar 98
-/Widths 1929 0 R
+/Widths 1952 0 R
 >>
 % 584 0 obj
 <<
 /Type /Font
 /Subtype /Type1
-/BaseFont /YWROOM+URWPalladioL-Bold
-/FontDescriptor 1960 0 R
+/BaseFont /TVMKYN+URWPalladioL-Bold
+/FontDescriptor 1983 0 R
 /FirstChar 2
 /LastChar 151
-/Widths 1938 0 R
-/Encoding 1935 0 R
+/Widths 1961 0 R
+/Encoding 1958 0 R
 >>
 % 586 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /TCRNJT+URWPalladioL-Roma
-/FontDescriptor 1962 0 R
+/FontDescriptor 1985 0 R
 /FirstChar 2
 /LastChar 167
-/Widths 1936 0 R
-/Encoding 1935 0 R
+/Widths 1959 0 R
+/Encoding 1958 0 R
 >>
 % 585 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /RUEFYH+URWPalladioL-Ital
-/FontDescriptor 1964 0 R
+/FontDescriptor 1987 0 R
 /FirstChar 2
 /LastChar 122
-/Widths 1937 0 R
-/Encoding 1935 0 R
+/Widths 1960 0 R
+/Encoding 1958 0 R
 >>
 % 587 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1965 0 R
+/Parent 1989 0 R
 /Kids [577 0 R 590 0 R 636 0 R 694 0 R 740 0 R 761 0 R]
 >>
 % 780 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1965 0 R
+/Parent 1989 0 R
 /Kids [778 0 R 797 0 R 809 0 R 822 0 R 835 0 R 840 0 R]
 >>
 % 871 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1965 0 R
+/Parent 1989 0 R
 /Kids [853 0 R 874 0 R 885 0 R 893 0 R 904 0 R 920 0 R]
 >>
 % 927 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1965 0 R
+/Parent 1989 0 R
 /Kids [924 0 R 930 0 R 935 0 R 942 0 R 949 0 R 954 0 R]
 >>
 % 962 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1965 0 R
+/Parent 1989 0 R
 /Kids [959 0 R 964 0 R 968 0 R 972 0 R 976 0 R 982 0 R]
 >>
 % 991 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1965 0 R
+/Parent 1989 0 R
 /Kids [988 0 R 995 0 R 1002 0 R 1008 0 R 1013 0 R 1024 0 R]
 >>
 % 1034 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1966 0 R
+/Parent 1990 0 R
 /Kids [1031 0 R 1041 0 R 1047 0 R 1058 0 R 1063 0 R 1070 0 R]
 >>
 % 1079 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1966 0 R
+/Parent 1990 0 R
 /Kids [1075 0 R 1084 0 R 1092 0 R 1097 0 R 1105 0 R 1110 0 R]
 >>
 % 1121 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1966 0 R
+/Parent 1990 0 R
 /Kids [1117 0 R 1124 0 R 1137 0 R 1144 0 R 1151 0 R 1162 0 R]
 >>
 % 1180 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1966 0 R
+/Parent 1990 0 R
 /Kids [1177 0 R 1184 0 R 1195 0 R 1201 0 R 1212 0 R 1217 0 R]
 >>
 % 1232 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1966 0 R
+/Parent 1990 0 R
 /Kids [1228 0 R 1235 0 R 1244 0 R 1250 0 R 1258 0 R 1265 0 R]
 >>
 % 1281 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1966 0 R
+/Parent 1990 0 R
 /Kids [1278 0 R 1286 0 R 1295 0 R 1303 0 R 1307 0 R 1322 0 R]
 >>
 % 1330 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1967 0 R
+/Parent 1991 0 R
 /Kids [1327 0 R 1334 0 R 1341 0 R 1345 0 R 1351 0 R 1357 0 R]
 >>
-
-endstream
-endobj
-1968 0 obj
-<<
-/Type /ObjStm
-/N 100
-/First 911
-/Length 10340     
->>
-stream
-1371 0 1409 120 1457 240 1500 360 1534 480 1574 600 1615 720 1647 840 1680 960 1714 1080
-1750 1200 1787 1320 1828 1440 1867 1560 1906 1680 1965 1782 1966 1897 1967 2018 1969 2139 1970 2260
-1971 2363 1972 2459 574 2528 570 2588 566 2699 562 2773 558 2861 554 2949 550 3037 546 3125
-542 3199 538 3324 534 3398 530 3486 526 3574 522 3662 518 3750 514 3824 510 3949 506 4023
-502 4111 498 4199 494 4273 490 4398 486 4472 482 4560 478 4648 474 4736 470 4824 466 4912
-462 5000 458 5088 454 5176 450 5264 446 5352 442 5440 438 5528 434 5616 430 5704 426 5792
-422 5866 418 5992 414 6066 410 6154 406 6242 401 6330 397 6418 393 6506 389 6594 385 6682
-381 6770 377 6858 373 6946 369 7034 365 7122 361 7210 357 7298 353 7386 349 7474 345 7562
-341 7650 337 7738 333 7826 329 7914 325 8002 321 8090 317 8178 313 8266 309 8340 305 8466
-301 8540 297 8628 293 8716 289 8790 285 8915 281 8989 277 9077 273 9165 269 9253 265 9341
 % 1371 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1967 0 R
+/Parent 1991 0 R
 /Kids [1363 0 R 1374 0 R 1379 0 R 1388 0 R 1395 0 R 1400 0 R]
 >>
 % 1409 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1967 0 R
-/Kids [1406 0 R 1411 0 R 1419 0 R 1427 0 R 1433 0 R 1442 0 R]
+/Parent 1991 0 R
+/Kids [1406 0 R 1411 0 R 1419 0 R 1424 0 R 1432 0 R 1438 0 R]
 >>
-% 1457 0 obj
+% 1456 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1967 0 R
-/Kids [1454 0 R 1460 0 R 1472 0 R 1478 0 R 1485 0 R 1491 0 R]
+/Parent 1991 0 R
+/Kids [1447 0 R 1461 0 R 1466 0 R 1479 0 R 1485 0 R 1492 0 R]
 >>
 % 1500 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1967 0 R
-/Kids [1495 0 R 1505 0 R 1511 0 R 1515 0 R 1520 0 R 1524 0 R]
+/Parent 1991 0 R
+/Kids [1496 0 R 1504 0 R 1508 0 R 1517 0 R 1525 0 R 1529 0 R]
 >>
-% 1534 0 obj
+% 1537 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1967 0 R
-/Kids [1531 0 R 1537 0 R 1543 0 R 1549 0 R 1555 0 R 1561 0 R]
+/Parent 1991 0 R
+/Kids [1534 0 R 1539 0 R 1546 0 R 1551 0 R 1557 0 R 1563 0 R]
 >>
 % 1574 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1969 0 R
-/Kids [1569 0 R 1577 0 R 1581 0 R 1591 0 R 1595 0 R 1599 0 R]
+/Parent 1992 0 R
+/Kids [1570 0 R 1577 0 R 1584 0 R 1591 0 R 1595 0 R 1605 0 R]
 >>
-% 1615 0 obj
+% 1612 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1969 0 R
-/Kids [1612 0 R 1617 0 R 1623 0 R 1629 0 R 1636 0 R 1640 0 R]
+/Parent 1992 0 R
+/Kids [1609 0 R 1614 0 R 1627 0 R 1631 0 R 1637 0 R 1643 0 R]
 >>
-% 1647 0 obj
+% 1653 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1969 0 R
-/Kids [1644 0 R 1649 0 R 1653 0 R 1657 0 R 1661 0 R 1669 0 R]
+/Parent 1992 0 R
+/Kids [1650 0 R 1655 0 R 1659 0 R 1663 0 R 1667 0 R 1671 0 R]
 >>
-% 1680 0 obj
+% 1683 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1969 0 R
-/Kids [1674 0 R 1682 0 R 1686 0 R 1693 0 R 1697 0 R 1704 0 R]
+/Parent 1992 0 R
+/Kids [1676 0 R 1685 0 R 1689 0 R 1696 0 R 1700 0 R 1707 0 R]
 >>
-% 1714 0 obj
+% 1717 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1969 0 R
-/Kids [1708 0 R 1716 0 R 1720 0 R 1727 0 R 1731 0 R 1741 0 R]
+/Parent 1992 0 R
+/Kids [1711 0 R 1719 0 R 1723 0 R 1730 0 R 1734 0 R 1741 0 R]
 >>
-% 1750 0 obj
+% 1754 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1969 0 R
-/Kids [1746 0 R 1754 0 R 1760 0 R 1764 0 R 1770 0 R 1776 0 R]
+/Parent 1992 0 R
+/Kids [1745 0 R 1756 0 R 1761 0 R 1768 0 R 1774 0 R 1778 0 R]
 >>
-% 1787 0 obj
+% 1789 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1970 0 R
-/Kids [1782 0 R 1790 0 R 1795 0 R 1802 0 R 1809 0 R 1816 0 R]
+/Parent 1993 0 R
+/Kids [1784 0 R 1792 0 R 1798 0 R 1804 0 R 1809 0 R 1816 0 R]
 >>
 % 1828 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1970 0 R
-/Kids [1823 0 R 1831 0 R 1837 0 R 1843 0 R 1852 0 R 1856 0 R]
+/Parent 1993 0 R
+/Kids [1823 0 R 1831 0 R 1838 0 R 1845 0 R 1851 0 R 1855 0 R]
 >>
-% 1867 0 obj
+% 1865 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1970 0 R
-/Kids [1864 0 R 1870 0 R 1874 0 R 1880 0 R 1884 0 R 1891 0 R]
+/Parent 1993 0 R
+/Kids [1861 0 R 1871 0 R 1875 0 R 1883 0 R 1888 0 R 1893 0 R]
 >>
-% 1906 0 obj
+% 1902 0 obj
 <<
 /Type /Pages
-/Count 4
-/Parent 1970 0 R
-/Kids [1903 0 R 1909 0 R 1913 0 R 1921 0 R]
+/Count 6
+/Parent 1993 0 R
+/Kids [1899 0 R 1904 0 R 1911 0 R 1922 0 R 1927 0 R 1931 0 R]
 >>
-% 1965 0 obj
+% 1942 0 obj
+<<
+/Type /Pages
+/Count 2
+/Parent 1993 0 R
+/Kids [1935 0 R 1944 0 R]
+>>
+% 1989 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1971 0 R
+/Parent 1994 0 R
 /Kids [587 0 R 780 0 R 871 0 R 927 0 R 962 0 R 991 0 R]
 >>
-% 1966 0 obj
+% 1990 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1971 0 R
+/Parent 1994 0 R
 /Kids [1034 0 R 1079 0 R 1121 0 R 1180 0 R 1232 0 R 1281 0 R]
 >>
-% 1967 0 obj
+% 1991 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1971 0 R
-/Kids [1330 0 R 1371 0 R 1409 0 R 1457 0 R 1500 0 R 1534 0 R]
+/Parent 1994 0 R
+/Kids [1330 0 R 1371 0 R 1409 0 R 1456 0 R 1500 0 R 1537 0 R]
 >>
-% 1969 0 obj
+% 1992 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1971 0 R
-/Kids [1574 0 R 1615 0 R 1647 0 R 1680 0 R 1714 0 R 1750 0 R]
+/Parent 1994 0 R
+/Kids [1574 0 R 1612 0 R 1653 0 R 1683 0 R 1717 0 R 1754 0 R]
 >>
-% 1970 0 obj
+% 1993 0 obj
 <<
 /Type /Pages
-/Count 22
-/Parent 1971 0 R
-/Kids [1787 0 R 1828 0 R 1867 0 R 1906 0 R]
+/Count 26
+/Parent 1994 0 R
+/Kids [1789 0 R 1828 0 R 1865 0 R 1902 0 R 1942 0 R]
 >>
-% 1971 0 obj
+% 1994 0 obj
 <<
 /Type /Pages
-/Count 166
-/Kids [1965 0 R 1966 0 R 1967 0 R 1969 0 R 1970 0 R]
+/Count 170
+/Kids [1989 0 R 1990 0 R 1991 0 R 1992 0 R 1993 0 R]
 >>
-% 1972 0 obj
+% 1995 0 obj
 <<
 /Type /Outlines
 /First 4 0 R
@@ -28723,6 +29094,27 @@ stream
 /Prev 337 0 R
 /Next 345 0 R
 >>
+
+endstream
+endobj
+1996 0 obj
+<<
+/Type /ObjStm
+/N 100
+/First 875
+/Length 11008     
+>>
+stream
+337 0 333 88 329 176 325 264 321 352 317 440 313 528 309 602 305 728 301 802
+297 890 293 978 289 1052 285 1177 281 1251 277 1339 273 1427 269 1515 265 1603 261 1691
+257 1779 253 1867 249 1955 245 2043 241 2131 237 2219 233 2307 229 2395 225 2483 221 2557
+217 2682 213 2755 209 2842 205 2916 200 3004 196 3092 192 3180 188 3268 184 3342 180 3468
+176 3542 172 3630 168 3718 164 3806 160 3894 156 3982 152 4070 148 4158 144 4246 140 4334
+136 4422 132 4510 128 4598 124 4686 120 4774 116 4862 112 4950 108 5038 104 5112 100 5238
+96 5309 92 5392 88 5474 84 5556 80 5638 76 5720 72 5802 68 5884 64 5966 60 6048
+56 6130 52 6212 48 6294 44 6376 40 6445 36 6554 32 6674 28 6743 24 6799 20 6918
+16 7000 12 7069 8 7186 4 7251 1997 7344 1998 7540 1999 7713 2000 7893 2001 8070 2002 8247
+2003 8427 2004 8605 2005 8785 2006 8963 2007 9134 2008 9299 2009 9465 2010 9629 2011 9793 2012 9963
 % 337 0 obj
 <<
 /Title 338 0 R
@@ -28877,27 +29269,6 @@ stream
 /Prev 261 0 R
 /Next 269 0 R
 >>
-
-endstream
-endobj
-1973 0 obj
-<<
-/Type /ObjStm
-/N 100
-/First 903
-/Length 13013     
->>
-stream
-261 0 257 88 253 176 249 264 245 352 241 440 237 528 233 616 229 704 225 792
-221 866 217 991 213 1064 209 1151 205 1225 200 1313 196 1401 192 1489 188 1577 184 1651
-180 1777 176 1851 172 1939 168 2027 164 2115 160 2203 156 2291 152 2379 148 2467 144 2555
-140 2643 136 2731 132 2819 128 2907 124 2995 120 3083 116 3171 112 3259 108 3347 104 3421
-100 3547 96 3618 92 3701 88 3783 84 3865 80 3947 76 4029 72 4111 68 4193 64 4275
-60 4357 56 4439 52 4521 48 4603 44 4685 40 4754 36 4863 32 4983 28 5052 24 5108
-20 5227 16 5309 12 5378 8 5495 4 5560 1974 5653 1975 5849 1976 6022 1977 6202 1978 6379
-1979 6556 1980 6736 1981 6914 1982 7094 1983 7265 1984 7430 1985 7596 1986 7761 1987 7927 1988 8094
-1989 8263 1990 8435 1991 8605 1992 8777 1993 8947 1994 9119 1995 9289 1996 9461 1997 9631 1998 9803
-1999 9993 2000 10222 2001 10433 2002 10630 2003 10810 2004 11017 2005 11239 2006 11463 2007 11695 2008 11923
 % 261 0 obj
 <<
 /Title 262 0 R
@@ -29421,636 +29792,653 @@ stream
 <<
 /Title 5 0 R
 /A 1 0 R
-/Parent 1972 0 R
+/Parent 1995 0 R
 /First 8 0 R
 /Last 570 0 R
 /Count -11
 >>
-% 1974 0 obj
+% 1997 0 obj
 <<
-/Names [(Doc-Start) 583 0 R (Hfootnote.1) 815 0 R (Hfootnote.2) 816 0 R (Hfootnote.3) 869 0 R (Hfootnote.4) 1846 0 R (Hfootnote.5) 1897 0 R]
+/Names [(Doc-Start) 583 0 R (Hfootnote.1) 815 0 R (Hfootnote.2) 816 0 R (Hfootnote.3) 869 0 R (Hfootnote.4) 1864 0 R (Hfootnote.5) 1917 0 R]
 /Limits [(Doc-Start) (Hfootnote.5)]
 >>
-% 1975 0 obj
+% 1998 0 obj
 <<
-/Names [(Item.1) 843 0 R (Item.10) 857 0 R (Item.100) 1604 0 R (Item.101) 1605 0 R (Item.102) 1606 0 R (Item.103) 1607 0 R]
+/Names [(Item.1) 843 0 R (Item.10) 857 0 R (Item.100) 1598 0 R (Item.101) 1599 0 R (Item.102) 1600 0 R (Item.103) 1617 0 R]
 /Limits [(Item.1) (Item.103)]
 >>
-% 1976 0 obj
+% 1999 0 obj
 <<
-/Names [(Item.104) 1608 0 R (Item.105) 1609 0 R (Item.106) 1610 0 R (Item.107) 1620 0 R (Item.108) 1621 0 R (Item.109) 1626 0 R]
+/Names [(Item.104) 1618 0 R (Item.105) 1619 0 R (Item.106) 1620 0 R (Item.107) 1621 0 R (Item.108) 1622 0 R (Item.109) 1623 0 R]
 /Limits [(Item.104) (Item.109)]
 >>
-% 1977 0 obj
+% 2000 0 obj
 <<
-/Names [(Item.11) 858 0 R (Item.110) 1627 0 R (Item.111) 1632 0 R (Item.112) 1633 0 R (Item.113) 1634 0 R (Item.114) 1664 0 R]
+/Names [(Item.11) 858 0 R (Item.110) 1624 0 R (Item.111) 1625 0 R (Item.112) 1634 0 R (Item.113) 1635 0 R (Item.114) 1640 0 R]
 /Limits [(Item.11) (Item.114)]
 >>
-% 1978 0 obj
+% 2001 0 obj
 <<
-/Names [(Item.115) 1665 0 R (Item.116) 1666 0 R (Item.117) 1677 0 R (Item.118) 1678 0 R (Item.119) 1679 0 R (Item.12) 859 0 R]
+/Names [(Item.115) 1641 0 R (Item.116) 1646 0 R (Item.117) 1647 0 R (Item.118) 1648 0 R (Item.119) 1679 0 R (Item.12) 859 0 R]
 /Limits [(Item.115) (Item.12)]
 >>
-% 1979 0 obj
+% 2002 0 obj
 <<
-/Names [(Item.120) 1689 0 R (Item.121) 1690 0 R (Item.122) 1691 0 R (Item.123) 1700 0 R (Item.124) 1701 0 R (Item.125) 1702 0 R]
+/Names [(Item.120) 1680 0 R (Item.121) 1681 0 R (Item.122) 1692 0 R (Item.123) 1693 0 R (Item.124) 1694 0 R (Item.125) 1703 0 R]
 /Limits [(Item.120) (Item.125)]
 >>
-% 1980 0 obj
+% 2003 0 obj
 <<
-/Names [(Item.126) 1711 0 R (Item.127) 1712 0 R (Item.128) 1713 0 R (Item.129) 1723 0 R (Item.13) 860 0 R (Item.130) 1724 0 R]
+/Names [(Item.126) 1704 0 R (Item.127) 1705 0 R (Item.128) 1714 0 R (Item.129) 1715 0 R (Item.13) 860 0 R (Item.130) 1716 0 R]
 /Limits [(Item.126) (Item.130)]
 >>
-% 1981 0 obj
+% 2004 0 obj
 <<
-/Names [(Item.131) 1725 0 R (Item.132) 1734 0 R (Item.133) 1735 0 R (Item.134) 1737 0 R (Item.135) 1738 0 R (Item.136) 1739 0 R]
+/Names [(Item.131) 1726 0 R (Item.132) 1727 0 R (Item.133) 1728 0 R (Item.134) 1737 0 R (Item.135) 1738 0 R (Item.136) 1739 0 R]
 /Limits [(Item.131) (Item.136)]
 >>
-% 1982 0 obj
-<<
-/Names [(Item.137) 1744 0 R (Item.138) 1749 0 R (Item.14) 861 0 R (Item.15) 862 0 R (Item.16) 863 0 R (Item.17) 864 0 R]
-/Limits [(Item.137) (Item.17)]
->>
-% 1983 0 obj
-<<
-/Names [(Item.18) 865 0 R (Item.19) 866 0 R (Item.2) 844 0 R (Item.20) 867 0 R (Item.21) 868 0 R (Item.22) 877 0 R]
-/Limits [(Item.18) (Item.22)]
->>
-% 1984 0 obj
-<<
-/Names [(Item.23) 878 0 R (Item.24) 879 0 R (Item.25) 880 0 R (Item.26) 881 0 R (Item.27) 882 0 R (Item.28) 896 0 R]
-/Limits [(Item.23) (Item.28)]
->>
-% 1985 0 obj
-<<
-/Names [(Item.29) 897 0 R (Item.3) 845 0 R (Item.30) 898 0 R (Item.31) 899 0 R (Item.32) 900 0 R (Item.33) 907 0 R]
-/Limits [(Item.29) (Item.33)]
->>
-% 1986 0 obj
-<<
-/Names [(Item.34) 908 0 R (Item.35) 909 0 R (Item.36) 910 0 R (Item.37) 911 0 R (Item.38) 912 0 R (Item.39) 913 0 R]
-/Limits [(Item.34) (Item.39)]
->>
-% 1987 0 obj
-<<
-/Names [(Item.4) 846 0 R (Item.40) 914 0 R (Item.41) 957 0 R (Item.42) 1050 0 R (Item.43) 1078 0 R (Item.44) 1100 0 R]
-/Limits [(Item.4) (Item.44)]
->>
-% 1988 0 obj
-<<
-/Names [(Item.45) 1127 0 R (Item.46) 1298 0 R (Item.47) 1299 0 R (Item.48) 1300 0 R (Item.49) 1354 0 R (Item.5) 847 0 R]
-/Limits [(Item.45) (Item.5)]
->>
-% 1989 0 obj
-<<
-/Names [(Item.50) 1361 0 R (Item.51) 1366 0 R (Item.52) 1367 0 R (Item.53) 1368 0 R (Item.54) 1369 0 R (Item.55) 1370 0 R]
-/Limits [(Item.50) (Item.55)]
->>
-% 1990 0 obj
-<<
-/Names [(Item.56) 1382 0 R (Item.57) 1383 0 R (Item.58) 1384 0 R (Item.59) 1391 0 R (Item.6) 848 0 R (Item.60) 1414 0 R]
-/Limits [(Item.56) (Item.60)]
->>
-% 1991 0 obj
-<<
-/Names [(Item.61) 1415 0 R (Item.62) 1422 0 R (Item.63) 1423 0 R (Item.64) 1424 0 R (Item.65) 1436 0 R (Item.66) 1437 0 R]
-/Limits [(Item.61) (Item.66)]
->>
-% 1992 0 obj
-<<
-/Names [(Item.67) 1438 0 R (Item.68) 1439 0 R (Item.69) 1440 0 R (Item.7) 849 0 R (Item.70) 1445 0 R (Item.71) 1446 0 R]
-/Limits [(Item.67) (Item.71)]
->>
-% 1993 0 obj
-<<
-/Names [(Item.72) 1447 0 R (Item.73) 1448 0 R (Item.74) 1449 0 R (Item.75) 1450 0 R (Item.76) 1463 0 R (Item.77) 1464 0 R]
-/Limits [(Item.72) (Item.77)]
->>
-% 1994 0 obj
-<<
-/Names [(Item.78) 1465 0 R (Item.79) 1466 0 R (Item.8) 850 0 R (Item.80) 1467 0 R (Item.81) 1468 0 R (Item.82) 1481 0 R]
-/Limits [(Item.78) (Item.82)]
->>
-% 1995 0 obj
-<<
-/Names [(Item.83) 1498 0 R (Item.84) 1499 0 R (Item.85) 1527 0 R (Item.86) 1528 0 R (Item.87) 1540 0 R (Item.88) 1546 0 R]
-/Limits [(Item.83) (Item.88)]
->>
-% 1996 0 obj
-<<
-/Names [(Item.89) 1552 0 R (Item.9) 856 0 R (Item.90) 1558 0 R (Item.91) 1564 0 R (Item.92) 1565 0 R (Item.93) 1572 0 R]
-/Limits [(Item.89) (Item.93)]
->>
-% 1997 0 obj
-<<
-/Names [(Item.94) 1573 0 R (Item.95) 1584 0 R (Item.96) 1585 0 R (Item.97) 1586 0 R (Item.98) 1602 0 R (Item.99) 1603 0 R]
-/Limits [(Item.94) (Item.99)]
->>
-% 1998 0 obj
-<<
-/Names [(cite.2007c) 830 0 R (cite.2007d) 831 0 R (cite.BLACS) 805 0 R (cite.BLAS1) 788 0 R (cite.BLAS2) 789 0 R (cite.BLAS3) 790 0 R]
-/Limits [(cite.2007c) (cite.BLAS3)]
->>
-% 1999 0 obj
-<<
-/Names [(cite.DesPat:11) 783 0 R (cite.DesignPatterns) 946 0 R (cite.KIVA3PSBLAS) 1919 0 R (cite.METIS) 817 0 R (cite.MPI1) 1924 0 R (cite.PARA04FOREST) 1917 0 R]
-/Limits [(cite.DesPat:11) (cite.PARA04FOREST)]
->>
-% 2000 0 obj
-<<
-/Names [(cite.PSBLAS) 1918 0 R (cite.RouXiaXu:11) 784 0 R (cite.Sparse03) 782 0 R (cite.machiels) 785 0 R (cite.metcalf) 781 0 R (cite.sblas02) 787 0 R]
-/Limits [(cite.PSBLAS) (cite.sblas02)]
->>
-% 2001 0 obj
+% 2005 0 obj
 <<
-/Names [(cite.sblas97) 786 0 R (descdata) 888 0 R (equation.4.1) 1165 0 R (equation.4.2) 1166 0 R (equation.4.3) 1167 0 R (figure.1) 799 0 R]
-/Limits [(cite.sblas97) (figure.1)]
+/Names [(Item.137) 1748 0 R (Item.138) 1749 0 R (Item.139) 1751 0 R (Item.14) 861 0 R (Item.140) 1752 0 R (Item.141) 1753 0 R]
+/Limits [(Item.137) (Item.141)]
 >>
-% 2002 0 obj
+% 2006 0 obj
 <<
-/Names [(figure.2) 825 0 R (figure.3) 1268 0 R (figure.4) 1301 0 R (listing.1) 916 0 R (listing.2) 947 0 R (listing.3) 986 0 R]
-/Limits [(figure.2) (listing.3)]
+/Names [(Item.142) 1759 0 R (Item.143) 1764 0 R (Item.15) 862 0 R (Item.16) 863 0 R (Item.17) 864 0 R (Item.18) 865 0 R]
+/Limits [(Item.142) (Item.18)]
 >>
-% 2003 0 obj
+% 2007 0 obj
 <<
-/Names [(listing.4) 1006 0 R (listing.5) 1757 0 R (listing.6) 1758 0 R (lstlisting.-1) 1128 0 R (lstlisting.-10) 1826 0 R (lstlisting.-11) 1834 0 R]
-/Limits [(listing.4) (lstlisting.-11)]
+/Names [(Item.19) 866 0 R (Item.2) 844 0 R (Item.20) 867 0 R (Item.21) 868 0 R (Item.22) 877 0 R (Item.23) 878 0 R]
+/Limits [(Item.19) (Item.23)]
 >>
-% 2004 0 obj
+% 2008 0 obj
 <<
-/Names [(lstlisting.-12) 1894 0 R (lstlisting.-2) 1767 0 R (lstlisting.-3) 1773 0 R (lstlisting.-4) 1779 0 R (lstlisting.-5) 1785 0 R (lstlisting.-6) 1798 0 R]
-/Limits [(lstlisting.-12) (lstlisting.-6)]
+/Names [(Item.24) 879 0 R (Item.25) 880 0 R (Item.26) 881 0 R (Item.27) 882 0 R (Item.28) 896 0 R (Item.29) 897 0 R]
+/Limits [(Item.24) (Item.29)]
 >>
-% 2005 0 obj
+% 2009 0 obj
 <<
-/Names [(lstlisting.-7) 1805 0 R (lstlisting.-8) 1812 0 R (lstlisting.-9) 1819 0 R (lstnumber.-1.1) 1129 0 R (lstnumber.-1.2) 1130 0 R (lstnumber.-1.3) 1131 0 R]
-/Limits [(lstlisting.-7) (lstnumber.-1.3)]
+/Names [(Item.3) 845 0 R (Item.30) 898 0 R (Item.31) 899 0 R (Item.32) 900 0 R (Item.33) 907 0 R (Item.34) 908 0 R]
+/Limits [(Item.3) (Item.34)]
 >>
-% 2006 0 obj
+% 2010 0 obj
 <<
-/Names [(lstnumber.-1.4) 1132 0 R (lstnumber.-10.1) 1827 0 R (lstnumber.-11.1) 1835 0 R (lstnumber.-12.1) 1895 0 R (lstnumber.-12.2) 1896 0 R (lstnumber.-2.1) 1768 0 R]
-/Limits [(lstnumber.-1.4) (lstnumber.-2.1)]
+/Names [(Item.35) 909 0 R (Item.36) 910 0 R (Item.37) 911 0 R (Item.38) 912 0 R (Item.39) 913 0 R (Item.4) 846 0 R]
+/Limits [(Item.35) (Item.4)]
 >>
-% 2007 0 obj
+% 2011 0 obj
 <<
-/Names [(lstnumber.-3.1) 1774 0 R (lstnumber.-4.1) 1780 0 R (lstnumber.-5.1) 1786 0 R (lstnumber.-6.1) 1799 0 R (lstnumber.-7.1) 1806 0 R (lstnumber.-8.1) 1813 0 R]
-/Limits [(lstnumber.-3.1) (lstnumber.-8.1)]
+/Names [(Item.40) 914 0 R (Item.41) 957 0 R (Item.42) 1050 0 R (Item.43) 1078 0 R (Item.44) 1100 0 R (Item.45) 1127 0 R]
+/Limits [(Item.40) (Item.45)]
 >>
-% 2008 0 obj
+% 2012 0 obj
 <<
-/Names [(lstnumber.-9.1) 1820 0 R (page.1) 582 0 R (page.10) 895 0 R (page.100) 1551 0 R (page.101) 1557 0 R (page.102) 1563 0 R]
-/Limits [(lstnumber.-9.1) (page.102)]
+/Names [(Item.46) 1298 0 R (Item.47) 1299 0 R (Item.48) 1300 0 R (Item.49) 1354 0 R (Item.5) 847 0 R (Item.50) 1361 0 R]
+/Limits [(Item.46) (Item.50)]
 >>
 
 endstream
 endobj
-2086 0 obj
+2112 0 obj
 <<
- /Title (Parallel Sparse BLAS V. 3.7.0) /Subject (Parallel Sparse Basic Linear Algebra Subroutines) /Keywords (Computer Science Linear Algebra Fluid Dynamics Parallel Linux MPI PSBLAS Iterative Solvers Preconditioners) /Creator (pdfLaTeX) /Producer ($Id$) /Author()/Title()/Subject()/Creator(LaTeX with hyperref)/Keywords()
-/CreationDate (D:20220404112440+02'00')
-/ModDate (D:20220404112440+02'00')
+ /Title (Parallel Sparse BLAS V. 3.8.0) /Subject (Parallel Sparse Basic Linear Algebra Subroutines) /Keywords (Computer Science Linear Algebra Fluid Dynamics Parallel Linux MPI PSBLAS Iterative Solvers Preconditioners) /Creator (pdfLaTeX) /Producer ($Id$) /Author()/Title()/Subject()/Creator(LaTeX with hyperref)/Keywords()
+/CreationDate (D:20220524105542+02'00')
+/ModDate (D:20220524105542+02'00')
 /Trapped /False
 /PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.21 (TeX Live 2020) kpathsea version 6.3.2)
 >>
 endobj
-2010 0 obj
+2014 0 obj
 <<
 /Type /ObjStm
-/N 76
-/First 777
-/Length 14107     
+/N 98
+/First 1015
+/Length 18404     
 >>
 stream
-2009 0 2011 180 2012 358 2013 538 2014 715 2015 892 2016 1072 2017 1250 2018 1430 2019 1608
-2020 1788 2021 1961 2022 2126 2023 2295 2024 2464 2025 2633 2026 2805 2027 2975 2028 3147 2029 3317
-2030 3489 2031 3659 2032 3831 2033 4001 2034 4173 2035 4342 2036 4511 2037 4690 2038 4870 2039 5054
-2040 5266 2041 5487 2042 5708 2043 5938 2044 6162 2045 6384 2046 6611 2047 6841 2048 7069 2049 7295
-2050 7519 2051 7749 2052 7973 2053 8195 2054 8417 2055 8668 2056 8928 2057 9185 2058 9455 2059 9722
-2060 9984 2061 10246 2062 10423 2063 10601 2064 10775 2065 10921 2066 11035 2067 11147 2068 11258 2069 11369
-2070 11490 2071 11609 2072 11722 2073 11834 2074 11944 2075 12055 2076 12173 2077 12299 2078 12424 2079 12554
-2080 12675 2081 12789 2082 12909 2083 12998 2084 13082 2085 13117
-% 2009 0 obj
-<<
-/Names [(page.103) 1571 0 R (page.104) 1579 0 R (page.105) 1583 0 R (page.106) 1593 0 R (page.107) 1597 0 R (page.108) 1601 0 R]
-/Limits [(page.103) (page.108)]
->>
-% 2011 0 obj
-<<
-/Names [(page.109) 1614 0 R (page.11) 906 0 R (page.110) 1619 0 R (page.111) 1625 0 R (page.112) 1631 0 R (page.113) 1638 0 R]
-/Limits [(page.109) (page.113)]
->>
-% 2012 0 obj
-<<
-/Names [(page.114) 1642 0 R (page.115) 1646 0 R (page.116) 1651 0 R (page.117) 1655 0 R (page.118) 1659 0 R (page.119) 1663 0 R]
-/Limits [(page.114) (page.119)]
->>
+2013 0 2015 172 2016 342 2017 514 2018 684 2019 856 2020 1026 2021 1198 2022 1367 2023 1544
+2024 1742 2025 1968 2026 2184 2027 2373 2028 2555 2029 2767 2030 2987 2031 3212 2032 3445 2033 3673
+2034 3846 2035 4026 2036 4203 2037 4380 2038 4560 2039 4738 2040 4918 2041 5096 2042 5276 2043 5454
+2044 5634 2045 5812 2046 5980 2047 6146 2048 6316 2049 6488 2050 6658 2051 6830 2052 7000 2053 7172
+2054 7341 2055 7510 2056 7682 2057 7852 2058 8024 2059 8194 2060 8366 2061 8534 2062 8719 2063 8899
+2064 9097 2065 9324 2066 9542 2067 9768 2068 9995 2069 10217 2070 10441 2071 10671 2072 10900 2073 11130
+2074 11352 2075 11579 2076 11806 2077 12028 2078 12250 2079 12485 2080 12749 2081 13005 2082 13269 2083 13539
+2084 13803 2085 14065 2086 14284 2087 14464 2088 14640 2089 14809 2090 14903 2091 15017 2092 15129 2093 15239
+2094 15350 2095 15463 2096 15577 2097 15690 2098 15802 2099 15913 2100 16024 2101 16143 2102 16270 2103 16396
+2104 16527 2105 16651 2106 16724 2107 16838 2108 16958 2109 17057 2110 17141 2111 17176
 % 2013 0 obj
 <<
-/Names [(page.12) 922 0 R (page.120) 1671 0 R (page.121) 1676 0 R (page.122) 1684 0 R (page.123) 1688 0 R (page.124) 1695 0 R]
-/Limits [(page.12) (page.124)]
->>
-% 2014 0 obj
-<<
-/Names [(page.125) 1699 0 R (page.126) 1706 0 R (page.127) 1710 0 R (page.128) 1718 0 R (page.129) 1722 0 R (page.13) 926 0 R]
-/Limits [(page.125) (page.13)]
+/Names [(Item.51) 1366 0 R (Item.52) 1367 0 R (Item.53) 1368 0 R (Item.54) 1369 0 R (Item.55) 1370 0 R (Item.56) 1382 0 R]
+/Limits [(Item.51) (Item.56)]
 >>
 % 2015 0 obj
 <<
-/Names [(page.130) 1729 0 R (page.131) 1733 0 R (page.132) 1743 0 R (page.133) 1748 0 R (page.134) 1756 0 R (page.135) 1762 0 R]
-/Limits [(page.130) (page.135)]
+/Names [(Item.57) 1383 0 R (Item.58) 1384 0 R (Item.59) 1391 0 R (Item.6) 848 0 R (Item.60) 1414 0 R (Item.61) 1415 0 R]
+/Limits [(Item.57) (Item.61)]
 >>
 % 2016 0 obj
 <<
-/Names [(page.136) 1766 0 R (page.137) 1772 0 R (page.138) 1778 0 R (page.139) 1784 0 R (page.14) 932 0 R (page.140) 1792 0 R]
-/Limits [(page.136) (page.140)]
+/Names [(Item.62) 1422 0 R (Item.63) 1427 0 R (Item.64) 1428 0 R (Item.65) 1429 0 R (Item.66) 1441 0 R (Item.67) 1442 0 R]
+/Limits [(Item.62) (Item.67)]
 >>
 % 2017 0 obj
 <<
-/Names [(page.141) 1797 0 R (page.142) 1804 0 R (page.143) 1811 0 R (page.144) 1818 0 R (page.145) 1825 0 R (page.146) 1833 0 R]
-/Limits [(page.141) (page.146)]
+/Names [(Item.68) 1443 0 R (Item.69) 1444 0 R (Item.7) 849 0 R (Item.70) 1445 0 R (Item.71) 1450 0 R (Item.72) 1451 0 R]
+/Limits [(Item.68) (Item.72)]
 >>
 % 2018 0 obj
 <<
-/Names [(page.147) 1839 0 R (page.148) 1845 0 R (page.149) 1854 0 R (page.15) 937 0 R (page.150) 1858 0 R (page.151) 1866 0 R]
-/Limits [(page.147) (page.151)]
+/Names [(Item.73) 1452 0 R (Item.74) 1453 0 R (Item.75) 1454 0 R (Item.76) 1455 0 R (Item.77) 1469 0 R (Item.78) 1470 0 R]
+/Limits [(Item.73) (Item.78)]
 >>
 % 2019 0 obj
 <<
-/Names [(page.152) 1872 0 R (page.153) 1876 0 R (page.154) 1882 0 R (page.155) 1886 0 R (page.156) 1893 0 R (page.157) 1905 0 R]
-/Limits [(page.152) (page.157)]
+/Names [(Item.79) 1471 0 R (Item.8) 850 0 R (Item.80) 1472 0 R (Item.81) 1473 0 R (Item.82) 1474 0 R (Item.83) 1475 0 R]
+/Limits [(Item.79) (Item.83)]
 >>
 % 2020 0 obj
 <<
-/Names [(page.158) 1911 0 R (page.159) 1915 0 R (page.16) 944 0 R (page.160) 1923 0 R (page.17) 951 0 R (page.18) 956 0 R]
-/Limits [(page.158) (page.18)]
+/Names [(Item.84) 1488 0 R (Item.85) 1499 0 R (Item.86) 1511 0 R (Item.87) 1512 0 R (Item.88) 1520 0 R (Item.89) 1521 0 R]
+/Limits [(Item.84) (Item.89)]
 >>
 % 2021 0 obj
 <<
-/Names [(page.19) 961 0 R (page.2) 592 0 R (page.20) 966 0 R (page.21) 970 0 R (page.22) 974 0 R (page.23) 978 0 R]
-/Limits [(page.19) (page.23)]
+/Names [(Item.9) 856 0 R (Item.90) 1542 0 R (Item.91) 1543 0 R (Item.92) 1554 0 R (Item.93) 1560 0 R (Item.94) 1566 0 R]
+/Limits [(Item.9) (Item.94)]
 >>
 % 2022 0 obj
 <<
-/Names [(page.24) 984 0 R (page.25) 990 0 R (page.26) 997 0 R (page.27) 1004 0 R (page.28) 1010 0 R (page.29) 1015 0 R]
-/Limits [(page.24) (page.29)]
+/Names [(Item.95) 1573 0 R (Item.96) 1580 0 R (Item.97) 1581 0 R (Item.98) 1587 0 R (Item.99) 1588 0 R (cite.2007c) 830 0 R]
+/Limits [(Item.95) (cite.2007c)]
 >>
 % 2023 0 obj
 <<
-/Names [(page.3) 811 0 R (page.30) 1026 0 R (page.31) 1033 0 R (page.32) 1043 0 R (page.33) 1049 0 R (page.34) 1060 0 R]
-/Limits [(page.3) (page.34)]
+/Names [(cite.2007d) 831 0 R (cite.BLACS) 805 0 R (cite.BLAS1) 788 0 R (cite.BLAS2) 789 0 R (cite.BLAS3) 790 0 R (cite.DesPat:11) 783 0 R]
+/Limits [(cite.2007d) (cite.DesPat:11)]
 >>
 % 2024 0 obj
 <<
-/Names [(page.35) 1065 0 R (page.36) 1072 0 R (page.37) 1077 0 R (page.38) 1086 0 R (page.39) 1094 0 R (page.4) 824 0 R]
-/Limits [(page.35) (page.4)]
+/Names [(cite.DesignPatterns) 946 0 R (cite.KIVA3PSBLAS) 1941 0 R (cite.METIS) 817 0 R (cite.MPI1) 1947 0 R (cite.PARA04FOREST) 1939 0 R (cite.PSBLAS) 1940 0 R]
+/Limits [(cite.DesignPatterns) (cite.PSBLAS)]
 >>
 % 2025 0 obj
 <<
-/Names [(page.40) 1099 0 R (page.41) 1107 0 R (page.42) 1112 0 R (page.43) 1119 0 R (page.44) 1126 0 R (page.45) 1139 0 R]
-/Limits [(page.40) (page.45)]
+/Names [(cite.RouXiaXu:11) 784 0 R (cite.Sparse03) 782 0 R (cite.machiels) 785 0 R (cite.metcalf) 781 0 R (cite.sblas02) 787 0 R (cite.sblas97) 786 0 R]
+/Limits [(cite.RouXiaXu:11) (cite.sblas97)]
 >>
 % 2026 0 obj
 <<
-/Names [(page.46) 1146 0 R (page.47) 1153 0 R (page.48) 1164 0 R (page.49) 1179 0 R (page.5) 837 0 R (page.50) 1186 0 R]
-/Limits [(page.46) (page.50)]
+/Names [(descdata) 888 0 R (equation.4.1) 1165 0 R (equation.4.2) 1166 0 R (equation.4.3) 1167 0 R (figure.1) 799 0 R (figure.2) 825 0 R]
+/Limits [(descdata) (figure.2)]
 >>
 % 2027 0 obj
 <<
-/Names [(page.51) 1197 0 R (page.52) 1203 0 R (page.53) 1214 0 R (page.54) 1219 0 R (page.55) 1230 0 R (page.56) 1237 0 R]
-/Limits [(page.51) (page.56)]
+/Names [(figure.3) 1268 0 R (figure.4) 1301 0 R (listing.1) 916 0 R (listing.2) 947 0 R (listing.3) 986 0 R (listing.4) 1006 0 R]
+/Limits [(figure.3) (listing.4)]
 >>
 % 2028 0 obj
 <<
-/Names [(page.57) 1246 0 R (page.58) 1252 0 R (page.59) 1260 0 R (page.6) 842 0 R (page.60) 1267 0 R (page.61) 1280 0 R]
-/Limits [(page.57) (page.61)]
+/Names [(listing.5) 1771 0 R (listing.6) 1772 0 R (lstlisting.-1) 1128 0 R (lstlisting.-10) 1841 0 R (lstlisting.-11) 1848 0 R (lstlisting.-12) 1914 0 R]
+/Limits [(listing.5) (lstlisting.-12)]
 >>
 % 2029 0 obj
 <<
-/Names [(page.62) 1288 0 R (page.63) 1297 0 R (page.64) 1305 0 R (page.65) 1309 0 R (page.66) 1324 0 R (page.67) 1329 0 R]
-/Limits [(page.62) (page.67)]
+/Names [(lstlisting.-2) 1781 0 R (lstlisting.-3) 1787 0 R (lstlisting.-4) 1795 0 R (lstlisting.-5) 1801 0 R (lstlisting.-6) 1812 0 R (lstlisting.-7) 1819 0 R]
+/Limits [(lstlisting.-2) (lstlisting.-7)]
 >>
 % 2030 0 obj
 <<
-/Names [(page.68) 1336 0 R (page.69) 1343 0 R (page.7) 855 0 R (page.70) 1347 0 R (page.71) 1353 0 R (page.72) 1359 0 R]
-/Limits [(page.68) (page.72)]
+/Names [(lstlisting.-8) 1826 0 R (lstlisting.-9) 1834 0 R (lstnumber.-1.1) 1129 0 R (lstnumber.-1.2) 1130 0 R (lstnumber.-1.3) 1131 0 R (lstnumber.-1.4) 1132 0 R]
+/Limits [(lstlisting.-8) (lstnumber.-1.4)]
 >>
 % 2031 0 obj
 <<
-/Names [(page.73) 1365 0 R (page.74) 1376 0 R (page.75) 1381 0 R (page.76) 1390 0 R (page.77) 1397 0 R (page.78) 1402 0 R]
-/Limits [(page.73) (page.78)]
+/Names [(lstnumber.-10.1) 1842 0 R (lstnumber.-11.1) 1849 0 R (lstnumber.-12.1) 1915 0 R (lstnumber.-12.2) 1916 0 R (lstnumber.-2.1) 1782 0 R (lstnumber.-3.1) 1788 0 R]
+/Limits [(lstnumber.-10.1) (lstnumber.-3.1)]
 >>
 % 2032 0 obj
 <<
-/Names [(page.79) 1408 0 R (page.8) 876 0 R (page.80) 1413 0 R (page.81) 1421 0 R (page.82) 1429 0 R (page.83) 1435 0 R]
-/Limits [(page.79) (page.83)]
+/Names [(lstnumber.-4.1) 1796 0 R (lstnumber.-5.1) 1802 0 R (lstnumber.-6.1) 1813 0 R (lstnumber.-7.1) 1820 0 R (lstnumber.-8.1) 1827 0 R (lstnumber.-9.1) 1835 0 R]
+/Limits [(lstnumber.-4.1) (lstnumber.-9.1)]
 >>
 % 2033 0 obj
 <<
-/Names [(page.84) 1444 0 R (page.85) 1456 0 R (page.86) 1462 0 R (page.87) 1474 0 R (page.88) 1480 0 R (page.89) 1487 0 R]
-/Limits [(page.84) (page.89)]
+/Names [(page.1) 582 0 R (page.10) 895 0 R (page.100) 1553 0 R (page.101) 1559 0 R (page.102) 1565 0 R (page.103) 1572 0 R]
+/Limits [(page.1) (page.103)]
 >>
 % 2034 0 obj
 <<
-/Names [(page.9) 887 0 R (page.90) 1493 0 R (page.91) 1497 0 R (page.92) 1507 0 R (page.93) 1513 0 R (page.94) 1517 0 R]
-/Limits [(page.9) (page.94)]
+/Names [(page.104) 1579 0 R (page.105) 1586 0 R (page.106) 1593 0 R (page.107) 1597 0 R (page.108) 1607 0 R (page.109) 1611 0 R]
+/Limits [(page.104) (page.109)]
 >>
 % 2035 0 obj
 <<
-/Names [(page.95) 1522 0 R (page.96) 1526 0 R (page.97) 1533 0 R (page.98) 1539 0 R (page.99) 1545 0 R (page.i) 638 0 R]
-/Limits [(page.95) (page.i)]
+/Names [(page.11) 906 0 R (page.110) 1616 0 R (page.111) 1629 0 R (page.112) 1633 0 R (page.113) 1639 0 R (page.114) 1645 0 R]
+/Limits [(page.11) (page.114)]
 >>
 % 2036 0 obj
 <<
-/Names [(page.ii) 696 0 R (page.iii) 742 0 R (page.iv) 763 0 R (precdata) 1005 0 R (section*.1) 639 0 R (section*.2) 1916 0 R]
-/Limits [(page.ii) (section*.2)]
+/Names [(page.115) 1652 0 R (page.116) 1657 0 R (page.117) 1661 0 R (page.118) 1665 0 R (page.119) 1669 0 R (page.12) 922 0 R]
+/Limits [(page.115) (page.12)]
 >>
 % 2037 0 obj
 <<
-/Names [(section.1) 7 0 R (section.10) 541 0 R (section.11) 569 0 R (section.2) 11 0 R (section.3) 35 0 R (section.4) 220 0 R]
-/Limits [(section.1) (section.4)]
+/Names [(page.120) 1673 0 R (page.121) 1678 0 R (page.122) 1687 0 R (page.123) 1691 0 R (page.124) 1698 0 R (page.125) 1702 0 R]
+/Limits [(page.120) (page.125)]
 >>
 % 2038 0 obj
 <<
-/Names [(section.5) 288 0 R (section.6) 308 0 R (section.7) 421 0 R (section.8) 493 0 R (section.9) 513 0 R (spbasedata) 952 0 R]
-/Limits [(section.5) (spbasedata)]
+/Names [(page.126) 1709 0 R (page.127) 1713 0 R (page.128) 1721 0 R (page.129) 1725 0 R (page.13) 926 0 R (page.130) 1732 0 R]
+/Limits [(page.126) (page.130)]
 >>
 % 2039 0 obj
 <<
-/Names [(spdata) 945 0 R (subsection.10.1) 545 0 R (subsection.10.2) 549 0 R (subsection.10.3) 553 0 R (subsection.10.4) 557 0 R (subsection.10.5) 561 0 R]
-/Limits [(spdata) (subsection.10.5)]
+/Names [(page.131) 1736 0 R (page.132) 1743 0 R (page.133) 1747 0 R (page.134) 1758 0 R (page.135) 1763 0 R (page.136) 1770 0 R]
+/Limits [(page.131) (page.136)]
 >>
 % 2040 0 obj
 <<
-/Names [(subsection.10.6) 565 0 R (subsection.11.1) 573 0 R (subsection.2.1) 15 0 R (subsection.2.2) 19 0 R (subsection.2.3) 23 0 R (subsection.2.4) 31 0 R]
-/Limits [(subsection.10.6) (subsection.2.4)]
+/Names [(page.137) 1776 0 R (page.138) 1780 0 R (page.139) 1786 0 R (page.14) 932 0 R (page.140) 1794 0 R (page.141) 1800 0 R]
+/Limits [(page.137) (page.141)]
 >>
 % 2041 0 obj
 <<
-/Names [(subsection.3.1) 39 0 R (subsection.3.2) 103 0 R (subsection.3.3) 183 0 R (subsection.3.4) 212 0 R (subsection.3.5) 216 0 R (subsection.4.1) 224 0 R]
-/Limits [(subsection.3.1) (subsection.4.1)]
+/Names [(page.142) 1806 0 R (page.143) 1811 0 R (page.144) 1818 0 R (page.145) 1825 0 R (page.146) 1833 0 R (page.147) 1840 0 R]
+/Limits [(page.142) (page.147)]
 >>
 % 2042 0 obj
 <<
-/Names [(subsection.4.10) 260 0 R (subsection.4.11) 264 0 R (subsection.4.12) 268 0 R (subsection.4.13) 272 0 R (subsection.4.14) 276 0 R (subsection.4.15) 280 0 R]
-/Limits [(subsection.4.10) (subsection.4.15)]
+/Names [(page.148) 1847 0 R (page.149) 1853 0 R (page.15) 937 0 R (page.150) 1857 0 R (page.151) 1863 0 R (page.152) 1873 0 R]
+/Limits [(page.148) (page.152)]
 >>
 % 2043 0 obj
 <<
-/Names [(subsection.4.16) 284 0 R (subsection.4.2) 228 0 R (subsection.4.3) 232 0 R (subsection.4.4) 236 0 R (subsection.4.5) 240 0 R (subsection.4.6) 244 0 R]
-/Limits [(subsection.4.16) (subsection.4.6)]
+/Names [(page.153) 1877 0 R (page.154) 1885 0 R (page.155) 1890 0 R (page.156) 1895 0 R (page.157) 1901 0 R (page.158) 1906 0 R]
+/Limits [(page.153) (page.158)]
 >>
 % 2044 0 obj
 <<
-/Names [(subsection.4.7) 248 0 R (subsection.4.8) 252 0 R (subsection.4.9) 256 0 R (subsection.5.1) 292 0 R (subsection.5.2) 296 0 R (subsection.5.3) 300 0 R]
-/Limits [(subsection.4.7) (subsection.5.3)]
+/Names [(page.159) 1913 0 R (page.16) 944 0 R (page.160) 1924 0 R (page.161) 1929 0 R (page.162) 1933 0 R (page.163) 1937 0 R]
+/Limits [(page.159) (page.163)]
 >>
 % 2045 0 obj
 <<
-/Names [(subsection.5.4) 304 0 R (subsection.6.1) 312 0 R (subsection.6.10) 348 0 R (subsection.6.11) 352 0 R (subsection.6.12) 356 0 R (subsection.6.13) 360 0 R]
-/Limits [(subsection.5.4) (subsection.6.13)]
+/Names [(page.164) 1946 0 R (page.17) 951 0 R (page.18) 956 0 R (page.19) 961 0 R (page.2) 592 0 R (page.20) 966 0 R]
+/Limits [(page.164) (page.20)]
 >>
 % 2046 0 obj
 <<
-/Names [(subsection.6.14) 364 0 R (subsection.6.15) 368 0 R (subsection.6.16) 372 0 R (subsection.6.17) 376 0 R (subsection.6.18) 380 0 R (subsection.6.19) 384 0 R]
-/Limits [(subsection.6.14) (subsection.6.19)]
+/Names [(page.21) 970 0 R (page.22) 974 0 R (page.23) 978 0 R (page.24) 984 0 R (page.25) 990 0 R (page.26) 997 0 R]
+/Limits [(page.21) (page.26)]
 >>
 % 2047 0 obj
 <<
-/Names [(subsection.6.2) 316 0 R (subsection.6.20) 388 0 R (subsection.6.21) 392 0 R (subsection.6.22) 396 0 R (subsection.6.23) 400 0 R (subsection.6.24) 405 0 R]
-/Limits [(subsection.6.2) (subsection.6.24)]
+/Names [(page.27) 1004 0 R (page.28) 1010 0 R (page.29) 1015 0 R (page.3) 811 0 R (page.30) 1026 0 R (page.31) 1033 0 R]
+/Limits [(page.27) (page.31)]
 >>
 % 2048 0 obj
 <<
-/Names [(subsection.6.25) 409 0 R (subsection.6.26) 413 0 R (subsection.6.27) 417 0 R (subsection.6.3) 320 0 R (subsection.6.4) 324 0 R (subsection.6.5) 328 0 R]
-/Limits [(subsection.6.25) (subsection.6.5)]
+/Names [(page.32) 1043 0 R (page.33) 1049 0 R (page.34) 1060 0 R (page.35) 1065 0 R (page.36) 1072 0 R (page.37) 1077 0 R]
+/Limits [(page.32) (page.37)]
 >>
 % 2049 0 obj
 <<
-/Names [(subsection.6.6) 332 0 R (subsection.6.7) 336 0 R (subsection.6.8) 340 0 R (subsection.6.9) 344 0 R (subsection.7.1) 425 0 R (subsection.7.10) 461 0 R]
-/Limits [(subsection.6.6) (subsection.7.10)]
+/Names [(page.38) 1086 0 R (page.39) 1094 0 R (page.4) 824 0 R (page.40) 1099 0 R (page.41) 1107 0 R (page.42) 1112 0 R]
+/Limits [(page.38) (page.42)]
 >>
 % 2050 0 obj
 <<
-/Names [(subsection.7.11) 465 0 R (subsection.7.12) 469 0 R (subsection.7.13) 473 0 R (subsection.7.14) 477 0 R (subsection.7.15) 481 0 R (subsection.7.16) 485 0 R]
-/Limits [(subsection.7.11) (subsection.7.16)]
+/Names [(page.43) 1119 0 R (page.44) 1126 0 R (page.45) 1139 0 R (page.46) 1146 0 R (page.47) 1153 0 R (page.48) 1164 0 R]
+/Limits [(page.43) (page.48)]
 >>
 % 2051 0 obj
 <<
-/Names [(subsection.7.17) 489 0 R (subsection.7.2) 429 0 R (subsection.7.3) 433 0 R (subsection.7.4) 437 0 R (subsection.7.5) 441 0 R (subsection.7.6) 445 0 R]
-/Limits [(subsection.7.17) (subsection.7.6)]
+/Names [(page.49) 1179 0 R (page.5) 837 0 R (page.50) 1186 0 R (page.51) 1197 0 R (page.52) 1203 0 R (page.53) 1214 0 R]
+/Limits [(page.49) (page.53)]
 >>
 % 2052 0 obj
 <<
-/Names [(subsection.7.7) 449 0 R (subsection.7.8) 453 0 R (subsection.7.9) 457 0 R (subsection.8.1) 497 0 R (subsection.8.2) 501 0 R (subsection.8.3) 505 0 R]
-/Limits [(subsection.7.7) (subsection.8.3)]
+/Names [(page.54) 1219 0 R (page.55) 1230 0 R (page.56) 1237 0 R (page.57) 1246 0 R (page.58) 1252 0 R (page.59) 1260 0 R]
+/Limits [(page.54) (page.59)]
 >>
 % 2053 0 obj
 <<
-/Names [(subsection.8.4) 509 0 R (subsection.9.1) 517 0 R (subsection.9.2) 521 0 R (subsection.9.3) 525 0 R (subsection.9.4) 529 0 R (subsection.9.5) 533 0 R]
-/Limits [(subsection.8.4) (subsection.9.5)]
+/Names [(page.6) 842 0 R (page.60) 1267 0 R (page.61) 1280 0 R (page.62) 1288 0 R (page.63) 1297 0 R (page.64) 1305 0 R]
+/Limits [(page.6) (page.64)]
 >>
 % 2054 0 obj
 <<
-/Names [(subsection.9.6) 537 0 R (subsubsection.2.3.1) 27 0 R (subsubsection.3.1.1) 43 0 R (subsubsection.3.1.10) 79 0 R (subsubsection.3.1.11) 83 0 R (subsubsection.3.1.12) 87 0 R]
-/Limits [(subsection.9.6) (subsubsection.3.1.12)]
+/Names [(page.65) 1309 0 R (page.66) 1324 0 R (page.67) 1329 0 R (page.68) 1336 0 R (page.69) 1343 0 R (page.7) 855 0 R]
+/Limits [(page.65) (page.7)]
 >>
 % 2055 0 obj
 <<
-/Names [(subsubsection.3.1.13) 91 0 R (subsubsection.3.1.14) 95 0 R (subsubsection.3.1.15) 99 0 R (subsubsection.3.1.2) 47 0 R (subsubsection.3.1.3) 51 0 R (subsubsection.3.1.4) 55 0 R]
-/Limits [(subsubsection.3.1.13) (subsubsection.3.1.4)]
+/Names [(page.70) 1347 0 R (page.71) 1353 0 R (page.72) 1359 0 R (page.73) 1365 0 R (page.74) 1376 0 R (page.75) 1381 0 R]
+/Limits [(page.70) (page.75)]
 >>
 % 2056 0 obj
 <<
-/Names [(subsubsection.3.1.5) 59 0 R (subsubsection.3.1.6) 63 0 R (subsubsection.3.1.7) 67 0 R (subsubsection.3.1.8) 71 0 R (subsubsection.3.1.9) 75 0 R (subsubsection.3.2.1) 107 0 R]
-/Limits [(subsubsection.3.1.5) (subsubsection.3.2.1)]
+/Names [(page.76) 1390 0 R (page.77) 1397 0 R (page.78) 1402 0 R (page.79) 1408 0 R (page.8) 876 0 R (page.80) 1413 0 R]
+/Limits [(page.76) (page.80)]
 >>
 % 2057 0 obj
 <<
-/Names [(subsubsection.3.2.10) 143 0 R (subsubsection.3.2.11) 147 0 R (subsubsection.3.2.12) 151 0 R (subsubsection.3.2.13) 155 0 R (subsubsection.3.2.14) 159 0 R (subsubsection.3.2.15) 163 0 R]
-/Limits [(subsubsection.3.2.10) (subsubsection.3.2.15)]
+/Names [(page.81) 1421 0 R (page.82) 1426 0 R (page.83) 1434 0 R (page.84) 1440 0 R (page.85) 1449 0 R (page.86) 1463 0 R]
+/Limits [(page.81) (page.86)]
 >>
 % 2058 0 obj
 <<
-/Names [(subsubsection.3.2.16) 167 0 R (subsubsection.3.2.17) 171 0 R (subsubsection.3.2.18) 175 0 R (subsubsection.3.2.19) 179 0 R (subsubsection.3.2.2) 111 0 R (subsubsection.3.2.3) 115 0 R]
-/Limits [(subsubsection.3.2.16) (subsubsection.3.2.3)]
+/Names [(page.87) 1468 0 R (page.88) 1481 0 R (page.89) 1487 0 R (page.9) 887 0 R (page.90) 1494 0 R (page.91) 1498 0 R]
+/Limits [(page.87) (page.91)]
 >>
 % 2059 0 obj
 <<
-/Names [(subsubsection.3.2.4) 119 0 R (subsubsection.3.2.5) 123 0 R (subsubsection.3.2.6) 127 0 R (subsubsection.3.2.7) 131 0 R (subsubsection.3.2.8) 135 0 R (subsubsection.3.2.9) 139 0 R]
-/Limits [(subsubsection.3.2.4) (subsubsection.3.2.9)]
+/Names [(page.92) 1506 0 R (page.93) 1510 0 R (page.94) 1519 0 R (page.95) 1527 0 R (page.96) 1531 0 R (page.97) 1536 0 R]
+/Limits [(page.92) (page.97)]
 >>
 % 2060 0 obj
 <<
-/Names [(subsubsection.3.3.1) 187 0 R (subsubsection.3.3.2) 191 0 R (subsubsection.3.3.3) 195 0 R (subsubsection.3.3.4) 199 0 R (subsubsection.3.3.5) 204 0 R (subsubsection.3.3.6) 208 0 R]
-/Limits [(subsubsection.3.3.1) (subsubsection.3.3.6)]
+/Names [(page.98) 1541 0 R (page.99) 1548 0 R (page.i) 638 0 R (page.ii) 696 0 R (page.iii) 742 0 R (page.iv) 763 0 R]
+/Limits [(page.98) (page.iv)]
 >>
 % 2061 0 obj
 <<
-/Names [(table.1) 998 0 R (table.10) 1147 0 R (table.11) 1155 0 R (table.12) 1168 0 R (table.13) 1187 0 R (table.14) 1215 0 R]
-/Limits [(table.1) (table.14)]
+/Names [(precdata) 1005 0 R (section*.1) 639 0 R (section*.2) 1938 0 R (section.1) 7 0 R (section.10) 541 0 R (section.11) 569 0 R]
+/Limits [(precdata) (section.11)]
 >>
 % 2062 0 obj
 <<
-/Names [(table.15) 1231 0 R (table.16) 1247 0 R (table.17) 1261 0 R (table.18) 1289 0 R (table.19) 1325 0 R (table.2) 1044 0 R]
-/Limits [(table.15) (table.2)]
+/Names [(section.2) 11 0 R (section.3) 35 0 R (section.4) 220 0 R (section.5) 288 0 R (section.6) 308 0 R (section.7) 421 0 R]
+/Limits [(section.2) (section.7)]
 >>
 % 2063 0 obj
 <<
-/Names [(table.20) 1337 0 R (table.3) 1061 0 R (table.4) 1073 0 R (table.5) 1087 0 R (table.6) 1095 0 R (table.7) 1108 0 R]
-/Limits [(table.20) (table.7)]
+/Names [(section.8) 493 0 R (section.9) 513 0 R (spbasedata) 952 0 R (spdata) 945 0 R (subsection.10.1) 545 0 R (subsection.10.2) 549 0 R]
+/Limits [(section.8) (subsection.10.2)]
 >>
 % 2064 0 obj
 <<
-/Names [(table.8) 1120 0 R (table.9) 1140 0 R (title.0) 3 0 R (vbasedata) 933 0 R (vdata) 985 0 R]
-/Limits [(table.8) (vdata)]
+/Names [(subsection.10.3) 553 0 R (subsection.10.4) 557 0 R (subsection.10.5) 561 0 R (subsection.10.6) 565 0 R (subsection.11.1) 573 0 R (subsection.2.1) 15 0 R]
+/Limits [(subsection.10.3) (subsection.2.1)]
 >>
 % 2065 0 obj
 <<
-/Kids [1974 0 R 1975 0 R 1976 0 R 1977 0 R 1978 0 R 1979 0 R]
-/Limits [(Doc-Start) (Item.125)]
+/Names [(subsection.2.2) 19 0 R (subsection.2.3) 23 0 R (subsection.2.4) 31 0 R (subsection.3.1) 39 0 R (subsection.3.2) 103 0 R (subsection.3.3) 183 0 R]
+/Limits [(subsection.2.2) (subsection.3.3)]
 >>
 % 2066 0 obj
 <<
-/Kids [1980 0 R 1981 0 R 1982 0 R 1983 0 R 1984 0 R 1985 0 R]
-/Limits [(Item.126) (Item.33)]
+/Names [(subsection.3.4) 212 0 R (subsection.3.5) 216 0 R (subsection.4.1) 224 0 R (subsection.4.10) 260 0 R (subsection.4.11) 264 0 R (subsection.4.12) 268 0 R]
+/Limits [(subsection.3.4) (subsection.4.12)]
 >>
 % 2067 0 obj
 <<
-/Kids [1986 0 R 1987 0 R 1988 0 R 1989 0 R 1990 0 R 1991 0 R]
-/Limits [(Item.34) (Item.66)]
+/Names [(subsection.4.13) 272 0 R (subsection.4.14) 276 0 R (subsection.4.15) 280 0 R (subsection.4.16) 284 0 R (subsection.4.2) 228 0 R (subsection.4.3) 232 0 R]
+/Limits [(subsection.4.13) (subsection.4.3)]
 >>
 % 2068 0 obj
 <<
-/Kids [1992 0 R 1993 0 R 1994 0 R 1995 0 R 1996 0 R 1997 0 R]
-/Limits [(Item.67) (Item.99)]
+/Names [(subsection.4.4) 236 0 R (subsection.4.5) 240 0 R (subsection.4.6) 244 0 R (subsection.4.7) 248 0 R (subsection.4.8) 252 0 R (subsection.4.9) 256 0 R]
+/Limits [(subsection.4.4) (subsection.4.9)]
 >>
 % 2069 0 obj
 <<
-/Kids [1998 0 R 1999 0 R 2000 0 R 2001 0 R 2002 0 R 2003 0 R]
-/Limits [(cite.2007c) (lstlisting.-11)]
+/Names [(subsection.5.1) 292 0 R (subsection.5.2) 296 0 R (subsection.5.3) 300 0 R (subsection.5.4) 304 0 R (subsection.6.1) 312 0 R (subsection.6.10) 348 0 R]
+/Limits [(subsection.5.1) (subsection.6.10)]
 >>
 % 2070 0 obj
 <<
-/Kids [2004 0 R 2005 0 R 2006 0 R 2007 0 R 2008 0 R 2009 0 R]
-/Limits [(lstlisting.-12) (page.108)]
+/Names [(subsection.6.11) 352 0 R (subsection.6.12) 356 0 R (subsection.6.13) 360 0 R (subsection.6.14) 364 0 R (subsection.6.15) 368 0 R (subsection.6.16) 372 0 R]
+/Limits [(subsection.6.11) (subsection.6.16)]
 >>
 % 2071 0 obj
 <<
-/Kids [2011 0 R 2012 0 R 2013 0 R 2014 0 R 2015 0 R 2016 0 R]
-/Limits [(page.109) (page.140)]
+/Names [(subsection.6.17) 376 0 R (subsection.6.18) 380 0 R (subsection.6.19) 384 0 R (subsection.6.2) 316 0 R (subsection.6.20) 388 0 R (subsection.6.21) 392 0 R]
+/Limits [(subsection.6.17) (subsection.6.21)]
 >>
 % 2072 0 obj
 <<
-/Kids [2017 0 R 2018 0 R 2019 0 R 2020 0 R 2021 0 R 2022 0 R]
-/Limits [(page.141) (page.29)]
+/Names [(subsection.6.22) 396 0 R (subsection.6.23) 400 0 R (subsection.6.24) 405 0 R (subsection.6.25) 409 0 R (subsection.6.26) 413 0 R (subsection.6.27) 417 0 R]
+/Limits [(subsection.6.22) (subsection.6.27)]
 >>
 % 2073 0 obj
 <<
-/Kids [2023 0 R 2024 0 R 2025 0 R 2026 0 R 2027 0 R 2028 0 R]
-/Limits [(page.3) (page.61)]
+/Names [(subsection.6.3) 320 0 R (subsection.6.4) 324 0 R (subsection.6.5) 328 0 R (subsection.6.6) 332 0 R (subsection.6.7) 336 0 R (subsection.6.8) 340 0 R]
+/Limits [(subsection.6.3) (subsection.6.8)]
 >>
 % 2074 0 obj
 <<
-/Kids [2029 0 R 2030 0 R 2031 0 R 2032 0 R 2033 0 R 2034 0 R]
-/Limits [(page.62) (page.94)]
+/Names [(subsection.6.9) 344 0 R (subsection.7.1) 425 0 R (subsection.7.10) 461 0 R (subsection.7.11) 465 0 R (subsection.7.12) 469 0 R (subsection.7.13) 473 0 R]
+/Limits [(subsection.6.9) (subsection.7.13)]
 >>
 % 2075 0 obj
 <<
-/Kids [2035 0 R 2036 0 R 2037 0 R 2038 0 R 2039 0 R 2040 0 R]
-/Limits [(page.95) (subsection.2.4)]
+/Names [(subsection.7.14) 477 0 R (subsection.7.15) 481 0 R (subsection.7.16) 485 0 R (subsection.7.17) 489 0 R (subsection.7.2) 429 0 R (subsection.7.3) 433 0 R]
+/Limits [(subsection.7.14) (subsection.7.3)]
 >>
 % 2076 0 obj
 <<
-/Kids [2041 0 R 2042 0 R 2043 0 R 2044 0 R 2045 0 R 2046 0 R]
-/Limits [(subsection.3.1) (subsection.6.19)]
+/Names [(subsection.7.4) 437 0 R (subsection.7.5) 441 0 R (subsection.7.6) 445 0 R (subsection.7.7) 449 0 R (subsection.7.8) 453 0 R (subsection.7.9) 457 0 R]
+/Limits [(subsection.7.4) (subsection.7.9)]
 >>
 % 2077 0 obj
 <<
-/Kids [2047 0 R 2048 0 R 2049 0 R 2050 0 R 2051 0 R 2052 0 R]
-/Limits [(subsection.6.2) (subsection.8.3)]
+/Names [(subsection.8.1) 497 0 R (subsection.8.2) 501 0 R (subsection.8.3) 505 0 R (subsection.8.4) 509 0 R (subsection.9.1) 517 0 R (subsection.9.2) 521 0 R]
+/Limits [(subsection.8.1) (subsection.9.2)]
 >>
 % 2078 0 obj
 <<
-/Kids [2053 0 R 2054 0 R 2055 0 R 2056 0 R 2057 0 R 2058 0 R]
-/Limits [(subsection.8.4) (subsubsection.3.2.3)]
+/Names [(subsection.9.3) 525 0 R (subsection.9.4) 529 0 R (subsection.9.5) 533 0 R (subsection.9.6) 537 0 R (subsubsection.2.3.1) 27 0 R (subsubsection.3.1.1) 43 0 R]
+/Limits [(subsection.9.3) (subsubsection.3.1.1)]
 >>
 % 2079 0 obj
 <<
-/Kids [2059 0 R 2060 0 R 2061 0 R 2062 0 R 2063 0 R 2064 0 R]
-/Limits [(subsubsection.3.2.4) (vdata)]
+/Names [(subsubsection.3.1.10) 79 0 R (subsubsection.3.1.11) 83 0 R (subsubsection.3.1.12) 87 0 R (subsubsection.3.1.13) 91 0 R (subsubsection.3.1.14) 95 0 R (subsubsection.3.1.15) 99 0 R]
+/Limits [(subsubsection.3.1.10) (subsubsection.3.1.15)]
 >>
 % 2080 0 obj
 <<
-/Kids [2065 0 R 2066 0 R 2067 0 R 2068 0 R 2069 0 R 2070 0 R]
-/Limits [(Doc-Start) (page.108)]
+/Names [(subsubsection.3.1.2) 47 0 R (subsubsection.3.1.3) 51 0 R (subsubsection.3.1.4) 55 0 R (subsubsection.3.1.5) 59 0 R (subsubsection.3.1.6) 63 0 R (subsubsection.3.1.7) 67 0 R]
+/Limits [(subsubsection.3.1.2) (subsubsection.3.1.7)]
 >>
 % 2081 0 obj
 <<
-/Kids [2071 0 R 2072 0 R 2073 0 R 2074 0 R 2075 0 R 2076 0 R]
-/Limits [(page.109) (subsection.6.19)]
+/Names [(subsubsection.3.1.8) 71 0 R (subsubsection.3.1.9) 75 0 R (subsubsection.3.2.1) 107 0 R (subsubsection.3.2.10) 143 0 R (subsubsection.3.2.11) 147 0 R (subsubsection.3.2.12) 151 0 R]
+/Limits [(subsubsection.3.1.8) (subsubsection.3.2.12)]
 >>
 % 2082 0 obj
 <<
-/Kids [2077 0 R 2078 0 R 2079 0 R]
-/Limits [(subsection.6.2) (vdata)]
+/Names [(subsubsection.3.2.13) 155 0 R (subsubsection.3.2.14) 159 0 R (subsubsection.3.2.15) 163 0 R (subsubsection.3.2.16) 167 0 R (subsubsection.3.2.17) 171 0 R (subsubsection.3.2.18) 175 0 R]
+/Limits [(subsubsection.3.2.13) (subsubsection.3.2.18)]
 >>
 % 2083 0 obj
 <<
-/Kids [2080 0 R 2081 0 R 2082 0 R]
-/Limits [(Doc-Start) (vdata)]
+/Names [(subsubsection.3.2.19) 179 0 R (subsubsection.3.2.2) 111 0 R (subsubsection.3.2.3) 115 0 R (subsubsection.3.2.4) 119 0 R (subsubsection.3.2.5) 123 0 R (subsubsection.3.2.6) 127 0 R]
+/Limits [(subsubsection.3.2.19) (subsubsection.3.2.6)]
 >>
 % 2084 0 obj
 <<
-/Dests 2083 0 R
+/Names [(subsubsection.3.2.7) 131 0 R (subsubsection.3.2.8) 135 0 R (subsubsection.3.2.9) 139 0 R (subsubsection.3.3.1) 187 0 R (subsubsection.3.3.2) 191 0 R (subsubsection.3.3.3) 195 0 R]
+/Limits [(subsubsection.3.2.7) (subsubsection.3.3.3)]
 >>
 % 2085 0 obj
 <<
+/Names [(subsubsection.3.3.4) 199 0 R (subsubsection.3.3.5) 204 0 R (subsubsection.3.3.6) 208 0 R (table.1) 998 0 R (table.10) 1147 0 R (table.11) 1155 0 R]
+/Limits [(subsubsection.3.3.4) (table.11)]
+>>
+% 2086 0 obj
+<<
+/Names [(table.12) 1168 0 R (table.13) 1187 0 R (table.14) 1215 0 R (table.15) 1231 0 R (table.16) 1247 0 R (table.17) 1261 0 R]
+/Limits [(table.12) (table.17)]
+>>
+% 2087 0 obj
+<<
+/Names [(table.18) 1289 0 R (table.19) 1325 0 R (table.2) 1044 0 R (table.20) 1337 0 R (table.3) 1061 0 R (table.4) 1073 0 R]
+/Limits [(table.18) (table.4)]
+>>
+% 2088 0 obj
+<<
+/Names [(table.5) 1087 0 R (table.6) 1095 0 R (table.7) 1108 0 R (table.8) 1120 0 R (table.9) 1140 0 R (title.0) 3 0 R]
+/Limits [(table.5) (title.0)]
+>>
+% 2089 0 obj
+<<
+/Names [(vbasedata) 933 0 R (vdata) 985 0 R]
+/Limits [(vbasedata) (vdata)]
+>>
+% 2090 0 obj
+<<
+/Kids [1997 0 R 1998 0 R 1999 0 R 2000 0 R 2001 0 R 2002 0 R]
+/Limits [(Doc-Start) (Item.125)]
+>>
+% 2091 0 obj
+<<
+/Kids [2003 0 R 2004 0 R 2005 0 R 2006 0 R 2007 0 R 2008 0 R]
+/Limits [(Item.126) (Item.29)]
+>>
+% 2092 0 obj
+<<
+/Kids [2009 0 R 2010 0 R 2011 0 R 2012 0 R 2013 0 R 2015 0 R]
+/Limits [(Item.3) (Item.61)]
+>>
+% 2093 0 obj
+<<
+/Kids [2016 0 R 2017 0 R 2018 0 R 2019 0 R 2020 0 R 2021 0 R]
+/Limits [(Item.62) (Item.94)]
+>>
+% 2094 0 obj
+<<
+/Kids [2022 0 R 2023 0 R 2024 0 R 2025 0 R 2026 0 R 2027 0 R]
+/Limits [(Item.95) (listing.4)]
+>>
+% 2095 0 obj
+<<
+/Kids [2028 0 R 2029 0 R 2030 0 R 2031 0 R 2032 0 R 2033 0 R]
+/Limits [(listing.5) (page.103)]
+>>
+% 2096 0 obj
+<<
+/Kids [2034 0 R 2035 0 R 2036 0 R 2037 0 R 2038 0 R 2039 0 R]
+/Limits [(page.104) (page.136)]
+>>
+% 2097 0 obj
+<<
+/Kids [2040 0 R 2041 0 R 2042 0 R 2043 0 R 2044 0 R 2045 0 R]
+/Limits [(page.137) (page.20)]
+>>
+% 2098 0 obj
+<<
+/Kids [2046 0 R 2047 0 R 2048 0 R 2049 0 R 2050 0 R 2051 0 R]
+/Limits [(page.21) (page.53)]
+>>
+% 2099 0 obj
+<<
+/Kids [2052 0 R 2053 0 R 2054 0 R 2055 0 R 2056 0 R 2057 0 R]
+/Limits [(page.54) (page.86)]
+>>
+% 2100 0 obj
+<<
+/Kids [2058 0 R 2059 0 R 2060 0 R 2061 0 R 2062 0 R 2063 0 R]
+/Limits [(page.87) (subsection.10.2)]
+>>
+% 2101 0 obj
+<<
+/Kids [2064 0 R 2065 0 R 2066 0 R 2067 0 R 2068 0 R 2069 0 R]
+/Limits [(subsection.10.3) (subsection.6.10)]
+>>
+% 2102 0 obj
+<<
+/Kids [2070 0 R 2071 0 R 2072 0 R 2073 0 R 2074 0 R 2075 0 R]
+/Limits [(subsection.6.11) (subsection.7.3)]
+>>
+% 2103 0 obj
+<<
+/Kids [2076 0 R 2077 0 R 2078 0 R 2079 0 R 2080 0 R 2081 0 R]
+/Limits [(subsection.7.4) (subsubsection.3.2.12)]
+>>
+% 2104 0 obj
+<<
+/Kids [2082 0 R 2083 0 R 2084 0 R 2085 0 R 2086 0 R 2087 0 R]
+/Limits [(subsubsection.3.2.13) (table.4)]
+>>
+% 2105 0 obj
+<<
+/Kids [2088 0 R 2089 0 R]
+/Limits [(table.5) (vdata)]
+>>
+% 2106 0 obj
+<<
+/Kids [2090 0 R 2091 0 R 2092 0 R 2093 0 R 2094 0 R 2095 0 R]
+/Limits [(Doc-Start) (page.103)]
+>>
+% 2107 0 obj
+<<
+/Kids [2096 0 R 2097 0 R 2098 0 R 2099 0 R 2100 0 R 2101 0 R]
+/Limits [(page.104) (subsection.6.10)]
+>>
+% 2108 0 obj
+<<
+/Kids [2102 0 R 2103 0 R 2104 0 R 2105 0 R]
+/Limits [(subsection.6.11) (vdata)]
+>>
+% 2109 0 obj
+<<
+/Kids [2106 0 R 2107 0 R 2108 0 R]
+/Limits [(Doc-Start) (vdata)]
+>>
+% 2110 0 obj
+<<
+/Dests 2109 0 R
+>>
+% 2111 0 obj
+<<
 /Type /Catalog
-/Pages 1971 0 R
-/Outlines 1972 0 R
-/Names 2084 0 R
+/Pages 1994 0 R
+/Outlines 1995 0 R
+/Names 2110 0 R
  /URI (http://ce.uniroma2.it/psblas) /PageMode/UseOutlines/PageLabels<</Nums[0<</S/D>>2<</S/r>>6<</S/D>>]>>
 /OpenAction 576 0 R
 >>
 
 endstream
 endobj
-2087 0 obj
+2113 0 obj
 <<
 /Type /XRef
-/Index [0 2088]
-/Size 2088
+/Index [0 2114]
+/Size 2114
 /W [1 3 1]
-/Root 2085 0 R
-/Info 2086 0 R
-/ID [<456F086DBD557EE1AAEFF7C32D9F0361> <456F086DBD557EE1AAEFF7C32D9F0361>]
-/Length 10440     
+/Root 2111 0 R
+/Info 2112 0 R
+/ID [<B52CC34741A4D05A48A441BC08D4DF37> <B52CC34741A4D05A48A441BC08D4DF37>]
+/Length 10570     
 >>
 stream
-�

�[�@
�K�?�U�>�]�==�<	
-=�;=.�:
=5�9=:�8=;�7=[�6=\�5=]�4=^�3=b�2=c�1 ��0!"��/#$��.%&��-'(��,)*��++,�
�*-.��)/0��(12��'34��&56��%78�"�$9:�#�#;<�%�"=>�)�!?@�*� AB�+�CD�/�EF�0�GH�4�IJ�5�KL�9�MN�:�OP�;�QR�?�ST�E�UV�F�WX�G�YZ�H�[\�N�]^�O�_`�P�ab�V�c�
R�[��
��\�
���]���������
-�	�
-��	�����
��.����9����E����M����Y���b���b�
��b���b�c�� b(�b�!�"b<�a�#�$bW�`�%�&��_�'�(��^�)�*��]�+�,��\�-�.�3�[�/�0�Q�Z�1�2�Z�Y�3�4D
�X�5�6D�W�7�8D�V�9�:D&�U�;�<D-�T�=�>D2�S�?�@D8�R�A�BDC�Q�C�DDJ�P�E�F��O�G�H��N�I�J��M�K�L��L�M�N�"�K�O�P�.�J�Q�R�4�I�S�T�8�H�U�V�=�G�W�X�G�F�Y�Z�L�E�[�\�R�D�]�^�X�C�_�`�^�B�a�b�A�c
�
3��@
�

��?
�
��>
�
��=
�
�/�<
�	
�
-3�;
�
�9�:
�

�?�9
�
�F�8
�
�J�7
�
�N�6
�
�R�5
�
�V�4
�
�Z�3
�
���2
�
��
-�1
�
� ��0
�!
�"��/
�#
�$�(�.
�%
�&�2�-
�'
�(�>�,
�)
�*�C�+
�+
�,�J�*
�-
�.�S�)
�/
�0�Y�(
�1
�2�_�'
�3
�4�
�&
�5
�6��%
�7
�8��$
�9
�:��#
�;
�<��"
�=
�>�!�!
�?
�@�(� 
�A
�B�/�
�C
�D�5�
�E
�F�;�
�G
�H�D�
�I
�J�O�
�K
�L�T�
�M
�N�X�
�O
�P�^�
�Q
�R�b�
�S
�Tj�
�U
�V
�W
5�
�X
�\
2}
�Y
�ZjTjVjUjW
FA
�_
�]
��
�^
�a
�b
�c��
��������	�
-���
���������������!�"�#�$�%�&�'�(�)�*�/�-
�`
�i�+�,����� 
��0�1�2�3�4�5�6�7�8�9�:�;�<�=�>�?�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�P�Q�R�S�T�U�V�W�X�Y�Z�[�\�]�a�_�.
Q\�^�b�c��
��������	�
-���
������������������ �!�"�#�%�&�(�*�/�-�`
���,��$�'�)�+
���1�3�5�6�7�8�9�:�;�<�=�?�.
C�>�0�2�4�A�B�C�D�E�F�G�H�I�J�L�@
)�jXj+j"jj,j*jj j)jj�R�S�T
^M�Y�W�M
I|�V�N�O�P�Q
cj�Z�[�`�X
n��\jOjNjM�^�_j(=
=
�8=�a
�==�b�c=
��jj==	==
��=
-===
�l=
=========+=)=
b======= =!="=#=$=%=&='=(jPjY=,=6=*
6�=-=/=0=1=2=3=4=8===7
S=9=<=?=@=A=H=>
sR=B=C=D=E=F=G=J=K=V=I
�D=L=M=N=O=P=Q=R=S=TjQ=U=X=Y=_=W
��=Z�
=`
�}=ajZ
�	�
�����
-
�p������
���j'���
2����&� 
N��!�$�,�'
]��(j[�1�-
nQ�.�6�2
���3�<�7
�]�8�@�=
�!�>�B�C�J�A
���D�I�M�Q�K
܅�Lj\�S�T�W�R
���U��Y�a�_�X
���Z�^�c�
�`
H�b
V���
AM����	�
-�����
B(�
jS����
^h�j]������ �
h	���"�%�!
�]�#�$�'�(�)�*�+�,�0�&
���-�/�3�1
��2�5�6�7�;�4
���8�:�?�<
��=�>j^�A�B�C�G�@
�w�D�F�I�J�K�O�H
��L�N�S�P
�Q�R�U�V�W�[�T
w�X�Z�^�\
;@�]�`�a�bb�_
=��cb
j_
��bb
��bbbbbb	b
-b
bbbb
��bbbbbb
��bbbbb!b
��bjRb b#b$b%b&b/b-b"
�&b'b)b*b+b,b0b1b2b3b4b5b6b8b.
��b7j`b:b@b>b9
fb;b=bAbBbCbDbEbFbHb?
,�bGbJbKbMbI
IQbLbObPbQbRbSbTbUbYbN
[KbVbXb\bZ
xpb[b^b_b`babb���b]
y�bc�
ja
����
Ǥ��	�
-���
��
�������
�h�����&��
���
1�'�*�
�(�)� �!�"�#�$�%
�
R��-�+
���,jb�/�0�1�5�.
���2�4�7
�r�8�9�>�6
�T�:�;�<�=�J�A�?
���@�K�B
���I�C�D�E�F�G�H
�
�M�N�O�S�L
?�P�R�V�T
^��Ujc�X�^�\�W
d��Y�[�_�`�b�]
���aD�c
��D
zDDD
ەDDD
-D
D	
��DjLDDD
�DDDDDD�DDD
&	DDD!D
A�DDDD D#D$D(D"
M�D%D'D*D+D.D)
e.D,D0D3D/
q�D1D5D6D9D4
zD7�
D>D:
�
-D;D<D=D@DADGD?
�DBDDDEDFDMDKDH
��DIDNDODVDL
��DPDQDRDSDTDUD_DW
�`DXDYDZD[D\D]D^DaDb�
D`
�YDc�
.w�
-�
-F�������	��
��
5������
A�������
Q��� �#�
dH�!�(�$
~�%�&�'��*�+�,�/�)
�s�-�1�2�5�0
�F�3�9�6
��7�;�>�:
���<�C�?
ȅ�@�A�B�E�H�D
�b�F��J�N�I
���K�M�P�T�O
��Q�S�V�Z�U
��W�Y�\�`�[


�]�_�b�a
��c

l
-
X8	�
e�

{�
�� 
�z,!
��"#$%&'()*+0-
�r.�61
�Z245<7
�8:;C=
��>@ABGD
TEKH
=IOL
�M�SP
!CQWT
&�U[X
,,Ya\
A�]^_`jK�
b
Uc
 �h��
��������
���	��
���
�����
�8���
�*������
���%� 
 	��!�"�#�$�	�)�&
 ��'�/�*
 2��+�,�-�.�3�0
 E��1�;�4
 \��5�6�7jJ�8�9�:�@�<
 s]�=�?�E�A
 ���B�D�
-�G�H�K�F
 ���I�N�O�P�L
 �I�M�V�Q
 �x�R�T�U�\�W
 ާ�X�Z�[�b�]
 ��^�`�a��c
 �K����
!���
!���
-��	
!
-��
����
!,������
!?������$�
!M�� �"�#�&�+�%
!^,�'�)�*��-�2�,
!n�.�0�1�6�3
!�4�8�9�=�7
!���:�<�?�@�A�B�E�>
!���C�H�F
!�H�G�J�K�L�M�P�I
!���N�
�R�U�Q
!���S�Y�V
!�W�W�[�\�_�Z
!�b�]�c�`
!�4�aj
jjj	j
"fjjjjj
$��jj
jjj
-
"7�j�jjj
"S�jj$j
"eqjjjj!j#j.j%
"lj&j-j/j0j1j2j3j4j5j6j7j8jIj9j:j;
"�hj<
"�Gj=
"��j>
"�Gj?
"��j@
#0jA
#k�jB
#{�jC
#�gjD
#��jE
#πjF
$+�jG
$��jH���
%�����
%G��A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�P�Q�R�S�T�U�V�W�X�Y�Z�[�\�]�^�_�`�a�b�c�
%|��
��������	�
-���
������������������� �!�"�#�$�%�&�'�(�)�*�+�,�-�.�/�0�1�2�3�4�5�6�7�8�9�:�;�<�=�>�?�@�A�B�C�D�E�F�G�H�I�J�K
%z�
%�_
+�

�[�S
�K�R�U�Q�]�P=�O	
+=�N=.�M
=5�L=:�K=;�J=[�I=\�H=]�G=^�F=b�E=c�D ��C!"��B#$��A%&��@'(��?)*��>+,�
�=-.��</0��;12��:34��956��878�"�79:�#�6;<�%�5=>�)�4?@�*�3AB�+�2CD�/�1EF�0�0GH�4�/IJ�5�.KL�9�-MN�:�,OP�;�+QR�?�*ST�E�)UV�F�(WX�G�'YZ�H�&[\�N�%]^�O�$_`�P�#ab�V�"c�
R�[�!�
��\� ���]����������	�
+�������
��.����9����E����M����Y���b���b���b���b��� b(��!�"b<��#�$bW��%�&���'�(��
�)�*���+�,���-�.�3�
+�/�0�Q�	�1�2�Z��3�4D
��5�6D��7�8D��9�:D&��;�<D-��=�>D2��?�@D8�
�A�BDC��C�DDN�c�E�F��b�G�H��a�I�J��`�K�L�"�_�M�N�,�^�O�P�8�]�Q�R�@�\�S�T�D�[�U�V�I�Z�W�X�S�Y�Y�Z�X�X�[�\�^�W�]�^�V�_�`�U�a�b�T�c
�
3��S
�

��R
�
�'�Q
�
�+�P
�
�;�O
�	
�
+?�N
�
�E�M
�

�K�L
�
�R�K
�
�V�J
�
�Z�I
�
�^�H
�
�b�G
�
���F
�
���E
�
���D
�
� � �C
�!
�"�*�B
�#
�$�4�A
�%
�&�>�@
�'
�(�J�?
�)
�*�O�>
�+
�,�V�=
�-
�.�_�<
�/
�0�
�;
�1
�2��:
�3
�4�
�9
�5
�6��8
�7
�8��7
�9
�:��6
�;
�<�&�5
�=
�>�-�4
�?
�@�4�3
�A
�B�;�2
�C
�D�D�1
�E
�F�J�0
�G
�H�S�/
�I
�J�^�.
�K
�L�c�-
�M
�Nc�,
�O
�Pc	�+
�Q
�Rc
�*
�S
�Tc�)
�U
�V
�W
5�
�X
�\
2}
�Y
�Z����
F=
�_
�]
��
�^
�a
�b
�c��
��������	�
+���
���������������!�"�#�$�%�&�'�(�)�*�/�-
�`
�e�+�,����� 
��0�1�2�3�4�5�6�7�8�9�:�;�<�=�>�?�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�P�Q�R�S�T�U�V�W�X�Y�Z�[�\�]�a�_�.
QX�^�b�c��
��������	�
+���
������������������ �!�"�#�%�&�(�*�/�-�`
���,��$�'�)�+
���1�3�5�6�7�8�9�:�;�<�=�?�.
A�>�0�2�4�A�B�C�D�E�F�G�H�I�J�L�@
)��c=c4c*c>c<c1c2c;c.c/�R�S�T
^K�Y�W�M
Iz�V�N�O�P�Q
c
c0�Z�[�`�X
n��\cac`c_�^�_c:=
=
�6=�a
�==�b�c=
��c-c,==	==
��=
+===
�j=
=========+=)=
`======= =!="=#=$=%=&='=(cb�=,=6=*
6�=-=/=0=1=2=3=4=8===7
S=9=<=?=@=A=H=>
sP=B=C=D=E=F=G=J=K=V=I
�B=L=M=N=O=P=Q=R=S=Tcc=U=X=Y=_=W
��=Z�
=`
�{=a�
�	�
�����
+
�n������
���c9���
2����&� 
N��!�$�,�'
]��(�	�1�-
nO�.�6�2
���3�<�7
�[�8�@�=
��>�B�C�J�A
���D�I�M�Q�K
܃�L�
+�S�T�W�R
���U��Y�a�_�X
���Z�^�c�
�`
F�b
V���
AK����	�
+�����
B&�
�
����
^f�������� �
h���"�%�!
�[�#�$�'�(�)�*�+�,�0�&
���-�/�3�1
��2�5�6�7�;�4
���8�:�?�<
��=�>��A�B�C�G�@
�u�D�F�I�J�K�O�H
��L�N�S�P

�Q�R�U�V�W�[�T
u�X�Z�^�\
;>�]�`�a�bb�_
=��cb
�

��bb
��bbbbbb	b
+b
bbbb
��bbbbbb
��bbbbb!b
��b�b b#b$b%b&b/b-b"
�$b'b)b*b+b,b0b1b2b3b4b5b6b8b.
��b7�b:b@b>b9
db;b=bAbBbCbDbEbFbHb?
,�bGbJbKbMbI
IObLbObPbQbRbSbTbUbYbN
[IbVbXb\bZ
xnb[b^b_b`babb���b]
y�bc�
�
����
Ǣ��	�
+���
��
�������
�f�����&��
���
/�'�*�
�(�)� �!�"�#�$�%
�
R��-�+
���,��/�0�1�5�.
���2�4�7
�p�8�9�>�6
�R�:�;�<�=�J�A�?
���@�K�B
���I�C�D�E�F�G�H
�
}�M�N�O�S�L
?�P�R�V�T
^��U��X�^�\�W
d��Y�[�_�`�b�]
���aD�c
��D
�}DDD
ۓDDD
+D
D	
��Dc^DDD
�DDDDDD�DDD
&DDD!D
A�DDDD D#D$D(D"
M�D%D'D*D+D.D)
e,D,D0D3D/
q�D1D5D6D9D4
z}D7�D>D:
�D;D<D=D@DADED?
�DBDDDKDF
��DGDHDIDJDQDODL
�CDMDRDSDZDP
�DTDUDVDWDXDYDcD[
�D\D]D^D_D`DaDb��
����
��
%���
7\��	�
+���
������
C������
O����� �#�
_�!�'�$
wm�%�&��)�*�-�(
{G�+�2�.
�D�/�0�1�4�5�6�;�3
���7�9�:�=�>�A�<
���?�E�B
���C�G�J�F
�e�H��O�K
��L�M�N�Q�T�P
���R�V�Z�U
�l�W�Y�\�`�[

+�]�_�b�a
�c

D�
Os�
+	
ba

p�
~�!
�A #$%("
�G&,)
�*�8-
�V./01234567<9
�:B=
��>@AHC
��DFGOI

hJLMNSP
�Q�WT
'�U[X
5(Y_\
9�]c`
?�a��
j�

 ��	�
�����c]��
�
+
�����
��������
�����
ь�����!�
�7��'�"
�)�#�$�%�&��+�(
 ��)�1�,
 "��-�.�/�0�5�2
 5��3�;�6
 K��7�8�9�:�?�<
 ^��=�G�@
 u��A�B�Cc\�D�E�F��L�H
 �\�I�K�Q�M
 ���N�P�S�T�W�R
 ���U�Z�[�\�X
 �H�Y�b�]
 �w�^�`�a��c
 ������
"#�
+�
!#7���	��
!)j�����
!1�����
!3������"�
!E��� �!�$�)�#
!YV�%�'�(��+�0�*
!gi�,�.�/�2�7�1
!w��3�5�6�9�>�8
!���:�<�=�A�?
!�:�@�E�B
!���C�G�H�L�F
!�e�I�K��N�O�P�Q�T�M
!�:�R�W�U
!��V�Y�Z�[�\�_�X
!�E�]�ac�`
"��b
%Rcc

"5�cccc
+c
":c� cc
"D�cccccc
"G-cccccccccc
"g�cc!c#c 
"�kc"c&c$
"�1c%c6c'
"��c(c)c+c3c5�!c@c7
"��c8c?cAcBcCcDcEcFcGcHcIcJc[cKcLcM
"��cN
"ؕcO
"�cP
#�cQ
#&cR
#L~cS
#��cT
#�cU
#��cV
#�&cW
$�cX
$`�cY
$�ucZ
%P��"�#�$�%�&�'�(
%|��T�U�V�W�X�Y�Z�[�\�]�^�_�`�a�b�c�
%�*�
��������	�
+���
������������������� �!�"�#�$�%�&�'�(�)�*�+�,�-�.�/�0�1�2�3�4�5�6�7�8�9�:�;�<�=�>�?�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�P�Q�R�S�T�U�V�W�X�Y�Z�[�\�]�^�_�`�a
%�
+
%�k
 endstream
 endobj
 startxref
-2471007
+2486891
 %%EOF
diff --git a/docs/src/Makefile b/docs/src/Makefile
index 198d2321..e6ee0c5e 100644
--- a/docs/src/Makefile
+++ b/docs/src/Makefile
@@ -139,7 +139,7 @@ PDF      = $(join $(BASEFILE),.pdf)
 PS       = $(join $(BASEFILE),.ps)
 GXS      = $(join $(BASEFILE),.gxs)
 GLX      = $(join $(BASEFILE),.glx)
-TARGETPDF= ../psblas-3.7.pdf
+TARGETPDF= ../psblas-3.8.pdf
 BASEHTML = $(patsubst %.tex,%,$(HTMLFILE))
 HTML     = $(join $(BASEHTML),.html)
 HTMLDIR  = ../html
diff --git a/docs/src/toolsrout.tex b/docs/src/toolsrout.tex
index 95639b84..d026f585 100644
--- a/docs/src/toolsrout.tex
+++ b/docs/src/toolsrout.tex
@@ -547,7 +547,7 @@ An integer value; 0 means no error has been detected.
 \clearpage\subsection{psb\_spall --- Allocates a sparse matrix}
 
 \begin{verbatim}
-call psb_spall(a, desc_a, info, nnz)
+call psb_spall(a, desc_a, info [, nnz, dupl, bldmode])
 \end{verbatim}
 
 \begin{description}
@@ -564,6 +564,19 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value. 
+\item[dupl] How to handle duplicate coefficients.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
+\verb|psb_dupl_add_|, \verb|psb_dupl_err_|.
+\item[bldmode] Whether to keep track of matrix entries that do not
+  belong to the current process.\\ 
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value \verb|psb_matbld_noremote_|,
+\verb|psb_matbld_remote_|.  Default:  \verb|psb_matbld_noremote_|.
 \end{description}
 
 \begin{description}
@@ -587,7 +600,9 @@ An integer value; 0 means no error has been detected.
 \item Providing a good estimate for the number of nonzeroes $nnz$ in
   the assembled matrix may substantially improve performance in the
   matrix build phase, as it will reduce or eliminate the need for
-  (potentially multiple) data reallocations. 
+  (potentially multiple) data reallocations;
+\item Using \verb|psb_matbld_remote_| is likely to cause  a runtime  overhead at
+  assembly time;
 \end{enumerate}
 
 
@@ -697,8 +712,7 @@ An integer value; 0 means no error has been detected.
 \item The input data can be passed in either COO or CSR formats;
 \item In COO format the coefficients to be inserted are represented by
   the ordered   triples $ia(i),ja(i),val(i)$, for $i=1,\dots,nz$;
-  these triples  should belong to the current process, i.e. $ia(i)$
-  should be one of  the local indices, but are otherwise arbitrary;
+  these triples are arbitrary;
 \item In CSR format the coefficients to be inserted for each input row $i=1,nr$
   are represented by the ordered triples $(i+irw-1),ja(j),val(j)$, for
   $j=irp(i),\dots,irp(i+1)-1$; 
@@ -709,8 +723,11 @@ An integer value; 0 means no error has been detected.
   may be split into   as many calls as desired (even in the CSR format); 
 \item Coefficients from different rows may also be mixed up freely
   in a single call, according to the application needs; 
-\item Any coefficients from matrix rows not owned by the calling
-  process are silently ignored;
+\item Coefficients from matrix rows not owned by the calling
+  process are treated according to the value of \verb|bldmode|
+  specified at allocation time; if 
+  \verb|bldmode| was chosen as \verb|psb_matbld_remote_| the library
+  will keep track of them, otherwise they are   silently ignored;
 \item If the descriptor is in the assembled state, then any entries in
   the sparse matrix that would generate additional communication
   requirements are  ignored; 
@@ -724,7 +741,7 @@ An integer value; 0 means no error has been detected.
 \clearpage\subsection{psb\_spasb --- Sparse matrix assembly routine}
 
 \begin{verbatim}
-call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
+call psb_spasb(a, desc_a, info [, afmt, upd,  mold])
 \end{verbatim}
 
 \begin{description}
@@ -733,7 +750,7 @@ call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
 \item[desc\_a] the communication descriptor.\\
 Scope:{\bf local}.\\
 Type:{\bf required}.\\
-Intent: {\bf in}.\\
+Intent: {\bf in/out}.\\
 Specified as: a structured data of type \descdata.
 \item[afmt] the storage format for the sparse matrix.\\
 Scope: {\bf local}.\\
@@ -745,12 +762,6 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: integer, possible values: \verb|psb_upd_srch_|, \verb|psb_upd_perm_|
-\item[dupl] How to handle duplicate coefficients.\\
-Scope: {\bf global}.\\
-Type: {\bf optional}.\\
-Intent: {\bf in}.\\
-Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
-\verb|psb_dupl_add_|, \verb|psb_dupl_err_|.
 \item[mold] The desired dynamic type for the internal matrix storage.\\
 Scope: {\bf local}.\\
 Type: {\bf optional}.\\
@@ -765,6 +776,13 @@ Scope:{\bf local}\\
 Type:{\bf required}\\
 Intent: {\bf inout}.\\
 Specified as: a structured data of type \spdata.
+\item[desc\_a] the communication descriptor.\\
+Scope:{\bf local}.\\
+Type:{\bf required}.\\
+Intent: {\bf in/out}.\\
+Specified as: a structured data of type \descdata. If the matrix was
+allocated with \verb|bldmode=psb_matbld_remote_|, then the
+descriptor will be reassembled. 
 \item[info] Error code.\\
 Scope: {\bf local} \\
 Type: {\bf required} \\
@@ -787,7 +805,14 @@ An integer value; 0 means no error has been detected.
 \item The output storage format need not be the same on all
   processes; 
 \item On exit from this routine the matrix is in the assembled state,
-  and thus is suitable for the computational routines. 
+  and thus is suitable for the computational routines;
+\item If the \verb|bldmode=psb_matbld_remote_| value was specified
+  at allocation time, contributions defined on the current process but
+  belonging to a remote process will be handled accordingly. This is
+  most likely to occur in finite element applications, with
+  \verb|dupl=psb_dupl_add_|; it is necessary to check for possible
+  updates needed in the descriptor, hence there will be a runtime
+  overhead.  
 \end{enumerate}
 
 
@@ -957,7 +982,7 @@ An integer value; 0 means no error has been detected.
 %\addcontentsline{toc}{subsection}{psb\_geall}
 
 \begin{verbatim}
-call psb_geall(x, desc_a, info, n, lb)
+call psb_geall(x, desc_a, info[, dupl, bldmode, n, lb])
 \end{verbatim}
 
 \begin{description}
@@ -980,6 +1005,19 @@ Type: {\bf optional}\\
 Intent: {\bf in}.\\
 Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a
 rank-1 array. 
+\item[dupl] How to handle duplicate coefficients.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
+\verb|psb_dupl_add_|; \verb|psb_dupl_err_| has no effect.
+\item[bldmode] Whether to keep track of matrix entries that do not
+  belong to the current process.\\ 
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value \verb|psb_matbld_noremote_|,
+\verb|psb_matbld_remote_|.  Default:  \verb|psb_matbld_noremote_|.
 \end{description}
 
 \begin{description}
@@ -997,6 +1035,11 @@ Intent: {\bf out}.\\
 An integer value; 0 means no error has been detected. 
 \end{description}
 
+{\par\noindent\large\bfseries Notes}
+\begin{enumerate}
+\item Using \verb|psb_matbld_remote_| is likely to cause  a runtime  overhead at
+  assembly time;
+\end{enumerate}
 
 %
 %%   psb_ins %%
@@ -1005,7 +1048,7 @@ An integer value; 0 means no error has been detected.
 %\addcontentsline{toc}{subsection}{psb\_geins}
 
 \begin{verbatim}
-call psb_geins(m, irw, val, x, desc_a, info [,dupl,local])
+call psb_geins(m, irw, val, x, desc_a, info [,local])
 \end{verbatim}
 
 \begin{description}
@@ -1034,12 +1077,6 @@ Scope:{\bf local}.\\
 Type:{\bf required}.\\
 Intent: {\bf in}.\\
 Specified as: a structured data of type \descdata.
-\item[dupl] How to handle duplicate coefficients.\\
-Scope: {\bf global}.\\
-Type: {\bf optional}.\\
-Intent: {\bf in}.\\
-Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
-\verb|psb_dupl_add_|.
 \item[local] Whether the entries in the index vector \verb|irw|,
    are already in local  numbering. \\
  Scope:{\bf local}.\\
@@ -1111,7 +1148,22 @@ Type: {\bf required} \\
 Intent: {\bf out}.\\
 An integer value; 0 means no error has been detected. 
 \end{description}
+
+
+{\par\noindent\large\bfseries Notes}
+\begin{enumerate}
+\item On entry to this routine the descriptor must  be in  the
+  assembled state, i.e. \verb|psb_cdasb| must already have been called.
+\item If the \verb|bldmode=psb_matbld_remote_| value was specified
+  at allocation time, contributions defined on the current process but
+  belonging to a remote process will be handled accordingly. This is
+  most likely to occur in finite element applications, with
+  \verb|dupl=psb_dupl_add_|.
+\end{enumerate}
+
+
 %
+
 %%   psb_free %%
 %
 \clearpage\subsection{psb\_gefree --- Frees a dense matrix}
diff --git a/docs/src/userguide.tex b/docs/src/userguide.tex
index c95ddab6..9d4e1814 100644
--- a/docs/src/userguide.tex
+++ b/docs/src/userguide.tex
@@ -36,7 +36,7 @@
 \relax
 \pdfcompresslevel=0             %-- 0 = none, 9 = best
 \pdfinfo{                       %-- Info dictionary of PDF output  /Author (Alfredo Buttari)
-  /Title (Parallel Sparse BLAS V. 3.7.0)
+  /Title (Parallel Sparse BLAS V. 3.8.0)
   /Subject (Parallel Sparse Basic Linear Algebra Subroutines)
   /Keywords (Computer Science Linear Algebra Fluid Dynamics Parallel Linux MPI PSBLAS Iterative Solvers Preconditioners)
   /Creator (pdfLaTeX)
@@ -99,7 +99,7 @@
 
 \begin{document}
 {
-\pdfbookmark{PSBLAS-v3.7.0 User's Guide}{title}
+\pdfbookmark{PSBLAS-v3.8.0 User's Guide}{title}
 \lstset{language=Fortran}
 \newlength{\centeroffset}
 \setlength{\centeroffset}{-0.5\oddsidemargin}
@@ -109,7 +109,7 @@
 \vspace*{\stretch{1}}
 \noindent\hspace*{\centeroffset}\makebox[0pt][l]{\begin{minipage}{\textwidth}
 \flushright
-{\Huge\bfseries PSBLAS 3.7.0.1 User's guide
+{\Huge\bfseries PSBLAS 3.8.0 User's guide
 }
 \noindent\rule[-1ex]{\textwidth}{5pt}\\[2.5ex]
 \hfill\emph{\Large A reference guide for the Parallel Sparse BLAS library}
@@ -130,7 +130,7 @@
 {\bfseries 
 by Salvatore Filippone\\
 and Alfredo Buttari}\\ 
-May 11th, 2021
+May 1st, 2022
 \end{minipage}}
 }
 %\addtolength{\textwidth}{\centeroffset}
diff --git a/docs/src/userhtml.tex b/docs/src/userhtml.tex
index 09141e99..5dc0e6cf 100644
--- a/docs/src/userhtml.tex
+++ b/docs/src/userhtml.tex
@@ -94,9 +94,9 @@
    Alfredo Buttari } \\
 %\\[10ex]
 %\today
-Software version: 3.7.0.1\\
+Software version: 3.8.0\\
 %\today
-May 11th, 2021
+May 1st, 2022
 \cleardoublepage
 \begingroup
   \renewcommand*{\thepage}{toc}
diff --git a/docs/src/util.tex b/docs/src/util.tex
index a321f796..ce6dd62a 100644
--- a/docs/src/util.tex
+++ b/docs/src/util.tex
@@ -206,6 +206,54 @@ Type: {\bf required} \\
 An integer value; 0 means no error has been detected. 
 \end{description}
 
+{\par\noindent\large\bfseries Notes}
+
+If this function is called on a matrix \lstinline|a| on a distributed communicator
+only the local part is written in output. To get a single MatrixMarket file with
+the whole matrix when appropriate, e.g. for debugging purposes, one could \emph{gather} 
+the  whole matrix on a single rank and then write it. Consider the following example
+for a \emph{double} precision matrix\vspace{-0.5em}
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+type(psb_ldspmat_type) :: aglobal
+
+call psb_gather(aglobal,a,desc_a,info)
+if (iam == psb_root_) then
+	call mm_mat_write(aglobal,mtitle,info,filename)
+end if
+call psb_spfree(aglobal, desc_a, info)
+\end{minted}
+\else
+\begin{center}
+\begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+type(psb_ldspmat_type) :: aglobal
+
+call psb_gather(aglobal,a,desc_a,info)
+if (iam == psb_root_) then
+call mm_mat_write(aglobal,mtitle,info,filename)
+end if
+call psb_spfree(aglobal, desc_a, info)
+\end{verbatim}
+\end{minipage}
+\end{center}
+\fi
+To simplify this procedure in \verb|C|, there is a utility function\vspace{-0.5em}
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{c}
+psb_i_t psb_c_<s,d,c,z>global_mat_write(ah,cdh);
+\end{minted}
+\else
+\begin{center}
+\begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim}
+psb_i_t psb_c_<s,d,c,z>global_mat_write(ah,cdh);
+\end{verbatim}
+\end{minipage}
+\end{center}
+\fi 
+that produces exactly this result.
+
 
 \clearpage\subsection{mm\_array\_write ---  Write a dense array from a
   file in the MatrixMarket format}
@@ -243,7 +291,53 @@ Type: {\bf required} \\
 An integer value; 0 means no error has been detected. 
 \end{description}
 
-
+{\par\noindent\large\bfseries Notes}
+
+If this function is called on a vector \lstinline|v| on a distributed communicator
+only the local part is written in output. To get a single MatrixMarket file with
+the whole vector when appropriate, e.g. for debugging purposes, one could \emph{gather} 
+the  whole vector on a single rank and then write it. Consider the following example
+for a \emph{double} precision vector
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+real(psb_dpk_), allocatable :: vglobal(:)
+
+call psb_gather(vglobal,v,desc,info)
+if (iam == psb_root_) then
+call mm_array_write(vglobal,vtitle,info,filename)
+end if
+call deallocate(vglobal, stat=info)
+\end{minted}
+\else
+\begin{center}
+	\begin{minipage}[tl]{0.9\textwidth}
+		\begin{verbatim} 
+		real(psb_dpk_), allocatable :: vglobal(:)
+		
+		call psb_gather(vglobal,v,desc,info)
+		if (iam == psb_root_) then
+		call mm_array_write(vglobal,vtitle,info,filename)
+		end if
+		call deallocate(vglobal, stat=info)
+		\end{verbatim}
+	\end{minipage}
+\end{center}
+\fi
+To simplify this procedure in \verb|C|, there is a utility function
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{c}
+psb_i_t psb_c_<s,d,c,z>global_vec_write(vh,cdh);
+\end{minted}
+\else
+\begin{center}
+	\begin{minipage}[tl]{0.9\textwidth}
+		\begin{verbatim}
+		psb_i_t psb_c_<s,d,c,z>global_vec_write(vh,cdh);
+		\end{verbatim}
+	\end{minipage}
+\end{center}
+\fi 
+that produces exactly this result.
 
 %%% Local Variables: 
 %%% mode: latex
diff --git a/test/pargen/psb_d_pde2d.F90 b/test/pargen/psb_d_pde2d.F90
index 5fa77373..6da97828 100644
--- a/test/pargen/psb_d_pde2d.F90
+++ b/test/pargen/psb_d_pde2d.F90
@@ -401,10 +401,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -522,9 +524,9 @@ contains
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
diff --git a/test/pargen/psb_d_pde3d.F90 b/test/pargen/psb_d_pde3d.F90
index def2ea37..887c08d9 100644
--- a/test/pargen/psb_d_pde3d.F90
+++ b/test/pargen/psb_d_pde3d.F90
@@ -208,7 +208,7 @@ contains
     type(psb_d_coo_sparse_mat)  :: acoo
     type(psb_d_csr_sparse_mat)  :: acsr
     real(psb_dpk_)           :: zt(nb),x,y,z
-    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_
+    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_, mysz
     integer(psb_lpk_) :: m,n,glob_row,nt
     integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner
     ! For 3D partition
@@ -377,6 +377,7 @@ contains
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
 
+
       !
       ! Specify process topology
       !
@@ -429,10 +430,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz, &
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -462,8 +465,9 @@ contains
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
-    do ii=1, nlr,nb
+    do ii=1, nlr, nb
       ib = min(nb,nlr-ii+1)
+      !ib = min(nb,mysz-ii+1)
       icoeff = 1
       do k=1,ib
         i=ii+k-1
@@ -559,19 +563,126 @@ contains
       goto 9999
     end if
 
-    deallocate(val,irow,icol)
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     call psb_cdasb(desc_a,info,mold=imold)
     tcdasb = psb_wtime()-t1
+
+    !
+    !  Add extra rows 
+    !
+    block
+      integer(psb_ipk_) :: ks, i
+      ks = desc_a%get_local_cols()-desc_a%get_local_rows()
+      if (ks > 0) ks = max(1,ks / 10)
+      mysz = nlr+ks
+      call psb_realloc(mysz,myidx,info)
+      do i=nlr+1, mysz
+        myidx(i) = i
+      end do
+      call desc_a%l2gv1(myidx(nlr+1:mysz),info)
+      !write(0,*) iam,' Check on extra nodes ',nlr,mysz,':',myidx(nlr+1:mysz)
+      do ii= nlr+1, mysz, nb
+        ib = min(nb,mysz-ii+1)
+        icoeff = 1
+        do k=1,ib
+          i=ii+k-1
+          ! local matrix pointer
+          glob_row=myidx(i)
+          ! compute gridpoint coordinates
+          call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
+          ! x, y, z coordinates
+          x = (ix-1)*deltah
+          y = (iy-1)*deltah
+          z = (iz-1)*deltah
+          zt(k) = f_(x,y,z)
+          ! internal point: build discretization
+          !
+          !  term depending on   (x-1,y,z)
+          !
+          val(icoeff) = -a1(x,y,z)/sqdeltah-b1(x,y,z)/deltah2
+          if (ix == 1) then
+            zt(k) = g(dzero,y,z)*(-val(icoeff)) + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix-1,iy,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x,y-1,z)
+          val(icoeff)  = -a2(x,y,z)/sqdeltah-b2(x,y,z)/deltah2
+          if (iy == 1) then
+            zt(k) = g(x,dzero,z)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy-1,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x,y,z-1)
+          val(icoeff)=-a3(x,y,z)/sqdeltah-b3(x,y,z)/deltah2
+          if (iz == 1) then
+            zt(k) = g(x,y,dzero)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy,iz-1,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+
+          !  term depending on     (x,y,z)
+          val(icoeff)=(2*done)*(a1(x,y,z)+a2(x,y,z)+a3(x,y,z))/sqdeltah &
+               & + c(x,y,z)
+          call ijk2idx(icol(icoeff),ix,iy,iz,idim,idim,idim)
+          irow(icoeff) = glob_row
+          icoeff       = icoeff+1
+          !  term depending on     (x,y,z+1)
+          val(icoeff)=-a3(x,y,z)/sqdeltah+b3(x,y,z)/deltah2
+          if (iz == idim) then
+            zt(k) = g(x,y,done)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy,iz+1,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x,y+1,z)
+          val(icoeff)=-a2(x,y,z)/sqdeltah+b2(x,y,z)/deltah2
+          if (iy == idim) then
+            zt(k) = g(x,done,z)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy+1,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x+1,y,z)
+          val(icoeff)=-a1(x,y,z)/sqdeltah+b1(x,y,z)/deltah2
+          if (ix==idim) then
+            zt(k) = g(done,y,z)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix+1,iy,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+
+        end do
+        call psb_spins(icoeff-1,irow,icol,val,a,desc_a,info)
+        if(info /= psb_success_) exit
+        call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),bv,desc_a,info)
+        if(info /= psb_success_) exit
+        zt(:)=dzero
+        call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
+        if(info /= psb_success_) exit
+      end do
+
+    end block
+
+
+
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
@@ -608,6 +719,7 @@ contains
       write(psb_out_unit,'("-total       time : ",es12.5)') ttot
 
     end if
+    deallocate(val,irow,icol)
     call psb_erractionrestore(err_act)
     return
 
@@ -615,8 +727,15 @@ contains
 
     return
   end subroutine psb_d_gen_pde3d
-
-
+  function outside(i,j,k,bndx,bndy,bndz,iamx,iamy,iamz) result(res)
+    logical :: res
+    integer(psb_ipk_), intent(in) :: i,j,k,iamx,iamy,iamz
+    integer(psb_ipk_), intent(in) :: bndx(0:),bndy(0:),bndz(0:)
+
+    res = (i<bndx(iamx)).or.(i>=bndx(iamx+1)) &
+         & .or.(j<bndy(iamy)).or.(j>=bndy(iamy+1)) &
+         & .or.(k<bndz(iamz)).or.(k>=bndz(iamz+1))
+  end function outside
 end module psb_d_pde3d_mod
 
 program psb_d_pde3d
diff --git a/test/pargen/psb_s_pde2d.F90 b/test/pargen/psb_s_pde2d.F90
index ad6f0d81..664d5d08 100644
--- a/test/pargen/psb_s_pde2d.F90
+++ b/test/pargen/psb_s_pde2d.F90
@@ -401,10 +401,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -522,9 +524,9 @@ contains
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
diff --git a/test/pargen/psb_s_pde3d.F90 b/test/pargen/psb_s_pde3d.F90
index 619a7f75..d61aba6d 100644
--- a/test/pargen/psb_s_pde3d.F90
+++ b/test/pargen/psb_s_pde3d.F90
@@ -208,7 +208,7 @@ contains
     type(psb_s_coo_sparse_mat)  :: acoo
     type(psb_s_csr_sparse_mat)  :: acsr
     real(psb_spk_)           :: zt(nb),x,y,z
-    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_
+    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_, mysz
     integer(psb_lpk_) :: m,n,glob_row,nt
     integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner
     ! For 3D partition
@@ -377,6 +377,7 @@ contains
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
 
+
       !
       ! Specify process topology
       !
@@ -429,10 +430,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz, &
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -462,8 +465,9 @@ contains
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
-    do ii=1, nlr,nb
+    do ii=1, nlr, nb
       ib = min(nb,nlr-ii+1)
+      !ib = min(nb,mysz-ii+1)
       icoeff = 1
       do k=1,ib
         i=ii+k-1
@@ -559,19 +563,126 @@ contains
       goto 9999
     end if
 
-    deallocate(val,irow,icol)
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     call psb_cdasb(desc_a,info,mold=imold)
     tcdasb = psb_wtime()-t1
+
+    !
+    !  Add extra rows 
+    !
+    block
+      integer(psb_ipk_) :: ks, i
+      ks = desc_a%get_local_cols()-desc_a%get_local_rows()
+      if (ks > 0) ks = max(1,ks / 10)
+      mysz = nlr+ks
+      call psb_realloc(mysz,myidx,info)
+      do i=nlr+1, mysz
+        myidx(i) = i
+      end do
+      call desc_a%l2gv1(myidx(nlr+1:mysz),info)
+      !write(0,*) iam,' Check on extra nodes ',nlr,mysz,':',myidx(nlr+1:mysz)
+      do ii= nlr+1, mysz, nb
+        ib = min(nb,mysz-ii+1)
+        icoeff = 1
+        do k=1,ib
+          i=ii+k-1
+          ! local matrix pointer
+          glob_row=myidx(i)
+          ! compute gridpoint coordinates
+          call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
+          ! x, y, z coordinates
+          x = (ix-1)*deltah
+          y = (iy-1)*deltah
+          z = (iz-1)*deltah
+          zt(k) = f_(x,y,z)
+          ! internal point: build discretization
+          !
+          !  term depending on   (x-1,y,z)
+          !
+          val(icoeff) = -a1(x,y,z)/sqdeltah-b1(x,y,z)/deltah2
+          if (ix == 1) then
+            zt(k) = g(szero,y,z)*(-val(icoeff)) + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix-1,iy,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x,y-1,z)
+          val(icoeff)  = -a2(x,y,z)/sqdeltah-b2(x,y,z)/deltah2
+          if (iy == 1) then
+            zt(k) = g(x,szero,z)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy-1,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x,y,z-1)
+          val(icoeff)=-a3(x,y,z)/sqdeltah-b3(x,y,z)/deltah2
+          if (iz == 1) then
+            zt(k) = g(x,y,szero)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy,iz-1,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+
+          !  term depending on     (x,y,z)
+          val(icoeff)=(2*sone)*(a1(x,y,z)+a2(x,y,z)+a3(x,y,z))/sqdeltah &
+               & + c(x,y,z)
+          call ijk2idx(icol(icoeff),ix,iy,iz,idim,idim,idim)
+          irow(icoeff) = glob_row
+          icoeff       = icoeff+1
+          !  term depending on     (x,y,z+1)
+          val(icoeff)=-a3(x,y,z)/sqdeltah+b3(x,y,z)/deltah2
+          if (iz == idim) then
+            zt(k) = g(x,y,sone)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy,iz+1,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x,y+1,z)
+          val(icoeff)=-a2(x,y,z)/sqdeltah+b2(x,y,z)/deltah2
+          if (iy == idim) then
+            zt(k) = g(x,sone,z)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix,iy+1,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+          !  term depending on     (x+1,y,z)
+          val(icoeff)=-a1(x,y,z)/sqdeltah+b1(x,y,z)/deltah2
+          if (ix==idim) then
+            zt(k) = g(sone,y,z)*(-val(icoeff))   + zt(k)
+          else
+            call ijk2idx(icol(icoeff),ix+1,iy,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+          endif
+
+        end do
+        call psb_spins(icoeff-1,irow,icol,val,a,desc_a,info)
+        if(info /= psb_success_) exit
+        call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),bv,desc_a,info)
+        if(info /= psb_success_) exit
+        zt(:)=szero
+        call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
+        if(info /= psb_success_) exit
+      end do
+
+    end block
+
+
+
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
@@ -608,6 +719,7 @@ contains
       write(psb_out_unit,'("-total       time : ",es12.5)') ttot
 
     end if
+    deallocate(val,irow,icol)
     call psb_erractionrestore(err_act)
     return
 
@@ -615,8 +727,15 @@ contains
 
     return
   end subroutine psb_s_gen_pde3d
-
-
+  function outside(i,j,k,bndx,bndy,bndz,iamx,iamy,iamz) result(res)
+    logical :: res
+    integer(psb_ipk_), intent(in) :: i,j,k,iamx,iamy,iamz
+    integer(psb_ipk_), intent(in) :: bndx(0:),bndy(0:),bndz(0:)
+
+    res = (i<bndx(iamx)).or.(i>=bndx(iamx+1)) &
+         & .or.(j<bndy(iamy)).or.(j>=bndy(iamy+1)) &
+         & .or.(k<bndz(iamz)).or.(k>=bndz(iamz+1))
+  end function outside
 end module psb_s_pde3d_mod
 
 program psb_s_pde3d
diff --git a/test/pargen/runs/ppde.inp b/test/pargen/runs/ppde.inp
index f4b45430..e7e5dca2 100644
--- a/test/pargen/runs/ppde.inp
+++ b/test/pargen/runs/ppde.inp
@@ -2,7 +2,7 @@
 BICGSTAB               Iterative method BICGSTAB CGS  BICG BICGSTABL RGMRES FCG CGR
 BJAC                   Preconditioner NONE  DIAG  BJAC 
 CSR                    Storage format for matrix A:  CSR COO 
-080                    Domain size (acutal system is this**3 (pde3d) or **2 (pde2d) )
+040                    Domain size (acutal system is this**3 (pde3d) or **2 (pde2d) )
 3                      Partition: 1 BLOCK  3 3D
 2                      Stopping criterion 1 2 
 0100                   MAXIT
diff --git a/util/psb_c_mat_dist_impl.f90 b/util/psb_c_mat_dist_impl.f90
index 970dfc47..e358bf25 100644
--- a/util/psb_c_mat_dist_impl.f90
+++ b/util/psb_c_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_cmatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_cmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_lcmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_lcmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
diff --git a/util/psb_d_mat_dist_impl.f90 b/util/psb_d_mat_dist_impl.f90
index c71141f0..3c683254 100644
--- a/util/psb_d_mat_dist_impl.f90
+++ b/util/psb_d_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_dmatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_dmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_ldmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_ldmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
diff --git a/util/psb_s_mat_dist_impl.f90 b/util/psb_s_mat_dist_impl.f90
index 713c3d9c..6c8bd792 100644
--- a/util/psb_s_mat_dist_impl.f90
+++ b/util/psb_s_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_smatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_smatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_lsmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_lsmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
diff --git a/util/psb_z_mat_dist_impl.f90 b/util/psb_z_mat_dist_impl.f90
index 2768b21e..5c83c66c 100644
--- a/util/psb_z_mat_dist_impl.f90
+++ b/util/psb_z_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_zmatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_zmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_lzmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_lzmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_