Add N to get_vect.

base/modules/serial/psb_c_base_vect_mod.f90

@@ -688,19 +688,24 @@ contains
   !! \brief  Extract a copy of the contents
   !!
   !    
-  function  c_base_get_vect(x) result(res)
+  function  c_base_get_vect(x,n) result(res)
     class(psb_c_base_vect_type), intent(inout) :: x
     complex(psb_spk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
+    ! Local variables
+    integer(psb_ipk_) :: isz
     
     if (.not.allocated(x%v)) return 
     if (.not.x%is_host()) call x%sync()
-    allocate(res(x%get_nrows()),stat=info) 
+    isz = x%get_nrows()
+    if (present(n)) isz = max(0,min(isz,n))
+    allocate(res(isz),stat=info) 
     if (info /= 0) then 
       call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect')
       return
     end if
-    res(:) = x%v(:)
+    res(1:isz) = x%v(1:isz)
   end function c_base_get_vect
     
   !

base/modules/serial/psb_c_vect_mod.F90

@@ -227,13 +227,14 @@ contains
 
   end subroutine c_vect_bld_n
 
-  function  c_vect_get_vect(x) result(res)
+  function  c_vect_get_vect(x,n) result(res)
     class(psb_c_vect_type), intent(inout)  :: x
     complex(psb_spk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
 
     if (allocated(x%v)) then
-      res = x%v%get_vect()
+      res = x%v%get_vect(n)
     end if
   end function c_vect_get_vect
 

base/modules/serial/psb_d_base_vect_mod.f90

@@ -688,19 +688,24 @@ contains
   !! \brief  Extract a copy of the contents
   !!
   !    
-  function  d_base_get_vect(x) result(res)
+  function  d_base_get_vect(x,n) result(res)
     class(psb_d_base_vect_type), intent(inout) :: x
     real(psb_dpk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
+    ! Local variables
+    integer(psb_ipk_) :: isz
     
     if (.not.allocated(x%v)) return 
     if (.not.x%is_host()) call x%sync()
-    allocate(res(x%get_nrows()),stat=info) 
+    isz = x%get_nrows()
+    if (present(n)) isz = max(0,min(isz,n))
+    allocate(res(isz),stat=info) 
     if (info /= 0) then 
       call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect')
       return
     end if
-    res(:) = x%v(:)
+    res(1:isz) = x%v(1:isz)
   end function d_base_get_vect
     
   !

base/modules/serial/psb_d_vect_mod.F90

@@ -227,13 +227,14 @@ contains
 
   end subroutine d_vect_bld_n
 
-  function  d_vect_get_vect(x) result(res)
+  function  d_vect_get_vect(x,n) result(res)
     class(psb_d_vect_type), intent(inout)  :: x
     real(psb_dpk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
 
     if (allocated(x%v)) then
-      res = x%v%get_vect()
+      res = x%v%get_vect(n)
     end if
   end function d_vect_get_vect
 

base/modules/serial/psb_i_base_vect_mod.f90

@@ -657,19 +657,24 @@ contains
   !! \brief  Extract a copy of the contents
   !!
   !    
-  function  i_base_get_vect(x) result(res)
+  function  i_base_get_vect(x,n) result(res)
     class(psb_i_base_vect_type), intent(inout) :: x
     integer(psb_ipk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
+    ! Local variables
+    integer(psb_ipk_) :: isz
     
     if (.not.allocated(x%v)) return 
     if (.not.x%is_host()) call x%sync()
-    allocate(res(x%get_nrows()),stat=info) 
+    isz = x%get_nrows()
+    if (present(n)) isz = max(0,min(isz,n))
+    allocate(res(isz),stat=info) 
     if (info /= 0) then 
       call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect')
       return
     end if
-    res(:) = x%v(:)
+    res(1:isz) = x%v(1:isz)
   end function i_base_get_vect
     
   !

base/modules/serial/psb_i_vect_mod.F90

@@ -200,13 +200,14 @@ contains
 
   end subroutine i_vect_bld_n
 
-  function  i_vect_get_vect(x) result(res)
+  function  i_vect_get_vect(x,n) result(res)
     class(psb_i_vect_type), intent(inout)  :: x
     integer(psb_ipk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
 
     if (allocated(x%v)) then
-      res = x%v%get_vect()
+      res = x%v%get_vect(n)
     end if
   end function i_vect_get_vect
 

base/modules/serial/psb_s_base_vect_mod.f90

@@ -688,19 +688,24 @@ contains
   !! \brief  Extract a copy of the contents
   !!
   !    
-  function  s_base_get_vect(x) result(res)
+  function  s_base_get_vect(x,n) result(res)
     class(psb_s_base_vect_type), intent(inout) :: x
     real(psb_spk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
+    ! Local variables
+    integer(psb_ipk_) :: isz
     
     if (.not.allocated(x%v)) return 
     if (.not.x%is_host()) call x%sync()
-    allocate(res(x%get_nrows()),stat=info) 
+    isz = x%get_nrows()
+    if (present(n)) isz = max(0,min(isz,n))
+    allocate(res(isz),stat=info) 
     if (info /= 0) then 
       call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect')
       return
     end if
-    res(:) = x%v(:)
+    res(1:isz) = x%v(1:isz)
   end function s_base_get_vect
     
   !

base/modules/serial/psb_s_vect_mod.F90

@@ -227,13 +227,14 @@ contains
 
   end subroutine s_vect_bld_n
 
-  function  s_vect_get_vect(x) result(res)
+  function  s_vect_get_vect(x,n) result(res)
     class(psb_s_vect_type), intent(inout)  :: x
     real(psb_spk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
 
     if (allocated(x%v)) then
-      res = x%v%get_vect()
+      res = x%v%get_vect(n)
     end if
   end function s_vect_get_vect
 

base/modules/serial/psb_z_base_vect_mod.f90

@@ -688,19 +688,24 @@ contains
   !! \brief  Extract a copy of the contents
   !!
   !    
-  function  z_base_get_vect(x) result(res)
+  function  z_base_get_vect(x,n) result(res)
     class(psb_z_base_vect_type), intent(inout) :: x
     complex(psb_dpk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
+    ! Local variables
+    integer(psb_ipk_) :: isz
     
     if (.not.allocated(x%v)) return 
     if (.not.x%is_host()) call x%sync()
-    allocate(res(x%get_nrows()),stat=info) 
+    isz = x%get_nrows()
+    if (present(n)) isz = max(0,min(isz,n))
+    allocate(res(isz),stat=info) 
     if (info /= 0) then 
       call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect')
       return
     end if
-    res(:) = x%v(:)
+    res(1:isz) = x%v(1:isz)
   end function z_base_get_vect
     
   !

base/modules/serial/psb_z_vect_mod.F90

@@ -227,13 +227,14 @@ contains
 
   end subroutine z_vect_bld_n
 
-  function  z_vect_get_vect(x) result(res)
+  function  z_vect_get_vect(x,n) result(res)
     class(psb_z_vect_type), intent(inout)  :: x
     complex(psb_dpk_), allocatable                 :: res(:)
     integer(psb_ipk_) :: info
+    integer(psb_ipk_), optional :: n
 
     if (allocated(x%v)) then
-      res = x%v%get_vect()
+      res = x%v%get_vect(n)
     end if
   end function z_vect_get_vect
 

docs/psblas-3.5.pdf

@@ -7528,7 +7528,7 @@ endstream
 endobj
 951 0 obj
 <<
-/Length 3935      
+/Length 5078      
 >>
 stream
 0 g 0 G
@@ -7539,60 +7539,64 @@ BT
 0 g 0 G
 /F8 9.9626 Tf 11.028 0 Td [(the)-333(dense)-334(v)28(ector)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ
 0 g 0 G
- -57.286 -37.031 Td [(alpha)]TJ
+ -57.286 -30.343 Td [(alpha)]TJ
 0 g 0 G
-/F8 9.9626 Tf 32.033 0 Td [(A)-333(scalar)-334(v)56(alue.)]TJ -7.126 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf -29.611 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.547 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(n)28(um)28(b)-28(er)-333(of)-334(the)-333(data)-333(t)28(yp)-28(e)-334(ind)1(ic)-1(ated)-333(in)-333(T)83(able)]TJ
+/F8 9.9626 Tf 32.033 0 Td [(A)-333(scalar)-334(v)56(alue.)]TJ -7.126 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf -29.611 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.547 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(n)28(um)28(b)-28(er)-333(of)-334(the)-333(data)-333(t)28(yp)-28(e)-334(ind)1(ic)-1(ated)-333(in)-333(T)83(able)]TJ
 0 0 1 rg 0 0 1 RG
  [-333(1)]TJ
 0 g 0 G
  [(.)]TJ
 0 g 0 G
-/F27 9.9626 Tf -24.907 -25.076 Td [(\014rst,last)]TJ
+/F27 9.9626 Tf -24.907 -18.387 Td [(\014rst,last)]TJ
 0 g 0 G
-/F8 9.9626 Tf 45.949 0 Td [(Boundaries)-333(for)-334(setting)-333(in)-333(the)-333(v)27(ector.)]TJ -21.042 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(optional)]TJ/F8 9.9626 Tf -29.611 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.547 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(in)28(tegers.)]TJ
+/F8 9.9626 Tf 45.949 0 Td [(Boundaries)-333(for)-334(setting)-333(in)-333(the)-333(v)27(ector.)]TJ -21.042 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(optional)]TJ/F8 9.9626 Tf -29.611 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.547 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(in)28(tegers.)]TJ
 0 g 0 G
-/F27 9.9626 Tf -24.907 -25.076 Td [(v)32(ect)]TJ
+/F27 9.9626 Tf -24.907 -18.387 Td [(v)32(ect)]TJ
 0 g 0 G
 /F8 9.9626 Tf 25.509 0 Td [(An)-333(arra)28(y)]TJ -0.602 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf -29.611 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.547 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(n)28(um)28(b)-28(er)-333(of)-334(the)-333(data)-333(t)28(yp)-28(e)-334(ind)1(ic)-1(ated)-333(in)-333(T)83(able)]TJ
 0 0 1 rg 0 0 1 RG
  [-333(1)]TJ
 0 g 0 G
- [(.)]TJ -24.907 -27.068 Td [(Note)-392(t)1(hat)-392(a)-391(call)-392(to)]TJ/F30 9.9626 Tf 87.3 0 Td [(v%zero\050\051)]TJ/F8 9.9626 Tf 45.742 0 Td [(is)-391(pro)27(vided)-391(as)-391(a)-392(shorthand,)-406(but)-391(is)-391(equiv)55(alen)28(t)-391(to)]TJ -133.042 -11.955 Td [(a)-320(call)-319(to)]TJ/F30 9.9626 Tf 38.336 0 Td [(v%set\050zero\051)]TJ/F8 9.9626 Tf 60.718 0 Td [(with)-320(the)]TJ/F30 9.9626 Tf 39.579 0 Td [(zero)]TJ/F8 9.9626 Tf 24.106 0 Td [(constan)28(t)-320(ha)28(ving)-320(the)-319(appropriate)-320(t)28(yp)-28(e)-320(and)]TJ -162.739 -11.956 Td [(kind.)]TJ
+ [(.)]TJ -24.907 -18.073 Td [(Note)-392(t)1(hat)-392(a)-391(call)-392(to)]TJ/F30 9.9626 Tf 87.3 0 Td [(v%zero\050\051)]TJ/F8 9.9626 Tf 45.742 0 Td [(is)-391(pro)27(vided)-391(as)-391(a)-392(shorthand,)-406(but)-391(is)-391(equiv)55(alen)28(t)-391(to)]TJ -133.042 -11.955 Td [(a)-320(call)-319(to)]TJ/F30 9.9626 Tf 38.336 0 Td [(v%set\050zero\051)]TJ/F8 9.9626 Tf 60.718 0 Td [(with)-320(the)]TJ/F30 9.9626 Tf 39.579 0 Td [(zero)]TJ/F8 9.9626 Tf 24.106 0 Td [(constan)28(t)-320(ha)28(ving)-320(the)-319(appropriate)-320(t)28(yp)-28(e)-320(and)]TJ -162.739 -11.955 Td [(kind.)]TJ
 0 g 0 G
-/F27 9.9626 Tf 0 -27.068 Td [(On)-383(Return)]TJ
+/F27 9.9626 Tf 0 -18.073 Td [(On)-383(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -25.076 Td [(v)]TJ
+ 0 -18.387 Td [(v)]TJ
 0 g 0 G
-/F8 9.9626 Tf 11.028 0 Td [(the)-333(dense)-334(v)28(ector,)-333(with)-334(up)-27(dated)-334(en)28(tries)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ -57.286 -44.683 Td [(get)]TJ
+/F8 9.9626 Tf 11.028 0 Td [(the)-333(dense)-334(v)28(ector,)-333(with)-334(up)-27(dated)-334(en)28(tries)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ -57.286 -37.189 Td [(get)]TJ
 ET
 q
-1 0 0 1 116.018 303.966 cm
+1 0 0 1 116.018 356.206 cm
 []0 d 0 J 0.398 w 0 0 m 3.437 0 l S
 Q
 BT
-/F27 9.9626 Tf 119.455 303.767 Td [(v)32(ect)-383(|)-384(Get)-383(a)-383(cop)32(y)-384(of)-383(the)-383(v)31(ector)-383(con)32(ten)32(ts)]TJ
+/F27 9.9626 Tf 119.455 356.007 Td [(v)32(ect)-383(|)-384(Get)-383(a)-383(cop)32(y)-384(of)-383(the)-383(v)31(ector)-383(con)32(ten)32(ts)]TJ
 0 g 0 G
 0 g 0 G
-/F30 9.9626 Tf -19.56 -20.786 Td [(extv)-525(=)-525(v%get_vect\050\051)]TJ
+/F30 9.9626 Tf -19.56 -18.39 Td [(extv)-525(=)-525(v%get_vect\050[n]\051)]TJ
 0 g 0 G
-/F27 9.9626 Tf 0 -25.781 Td [(T)32(yp)-32(e:)]TJ
+/F27 9.9626 Tf 0 -18.073 Td [(T)32(yp)-32(e:)]TJ
 0 g 0 G
 /F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ
 0 g 0 G
-/F27 9.9626 Tf -33.797 -25.076 Td [(On)-383(En)32(try)]TJ
+/F27 9.9626 Tf -33.797 -18.387 Td [(On)-383(En)32(try)]TJ
 0 g 0 G
 0 g 0 G
- 0 -25.076 Td [(v)]TJ
+ 0 -18.387 Td [(v)]TJ
 0 g 0 G
 /F8 9.9626 Tf 11.028 0 Td [(the)-333(dense)-334(v)28(ector)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ
 0 g 0 G
- -57.286 -37.736 Td [(On)-383(Return)]TJ
+ -57.286 -30.343 Td [(n)]TJ
 0 g 0 G
+/F8 9.9626 Tf 11.347 0 Td [(Size)-333(to)-334(b)-27(e)-334(returned)]TJ 13.56 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.452 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(;)-333(default:)-445(en)28(tire)-333(v)28(ector.)]TJ
 0 g 0 G
- 0 -25.076 Td [(F)96(unction)-384(v)64(alue)]TJ
+/F27 9.9626 Tf -95.095 -30.028 Td [(On)-383(Return)]TJ
 0 g 0 G
-/F8 9.9626 Tf 78.387 0 Td [(An)-353(allo)-28(catable)-354(arra)28(y)-353(holding)-354(a)-353(cop)28(y)-354(of)-353(the)-354(dense)-353(v)28(ector)-354(con-)]TJ -53.48 -11.955 Td [(ten)28(ts.)]TJ
+0 g 0 G
+ 0 -18.388 Td [(F)96(unction)-384(v)64(alue)]TJ
+0 g 0 G
+/F8 9.9626 Tf 78.387 0 Td [(An)-353(allo)-28(catable)-354(arra)28(y)-353(holding)-354(a)-353(cop)28(y)-354(of)-353(the)-354(dense)-353(v)28(ector)-354(con-)]TJ -53.48 -11.955 Td [(ten)28(ts.)-440(If)-319(the)-320(argumen)28(t)]TJ/F11 9.9626 Tf 99.799 0 Td [(n)]TJ/F8 9.9626 Tf 9.161 0 Td [(is)-319(sp)-28(eci\014ed,)-322(the)-320(size)-319(of)-319(the)-320(returned)-319(arra)28(y)-319(e)-1(qu)1(als)]TJ -108.96 -11.955 Td [(the)-401(minim)28(um)-401(b)-28(et)28(w)28(een)]TJ/F11 9.9626 Tf 102.199 0 Td [(n)]TJ/F8 9.9626 Tf 9.974 0 Td [(and)-401(the)-401(in)28(ternal)-401(size)-401(of)-400(the)-401(v)27(ector,)-417(or)-401(0)-401(if)]TJ/F11 9.9626 Tf 189.961 0 Td [(n)]TJ/F8 9.9626 Tf 9.973 0 Td [(is)]TJ -312.107 -11.955 Td [(negativ)28(e;)-389(otherwise,)-380(the)-371(size)-370(of)-371(the)-370(arra)28(y)-371(is)-370(the)-371(same)-371(as)-370(the)-371(in)28(ternal)-370(size)]TJ 0 -11.955 Td [(of)-333(the)-334(v)28(ector.)]TJ
 0 g 0 G
  141.968 -29.888 Td [(25)]TJ
 0 g 0 G
@@ -8313,7 +8317,7 @@ endobj
 /Type /ObjStm
 /N 100
 /First 888
-/Length 10167     
+/Length 10180     
 >>
 stream
 115 0 908 56 915 148 917 262 119 319 123 376 127 432 914 489 919 581 921 695
@@ -8321,11 +8325,11 @@ stream
 147 1500 151 1556 927 1612 932 1704 934 1818 155 1875 159 1932 163 1989 931 2046 938 2138
 935 2280 936 2427 940 2573 167 2629 171 2685 941 2741 937 2798 944 2903 946 3017 942 3074
 175 3131 179 3188 183 3245 187 3302 943 3359 950 3451 947 3593 948 3738 952 3883 191 3939
-949 3995 958 4087 955 4229 956 4375 960 4522 195 4579 199 4636 961 4692 963 4749 204 4806
-957 4863 965 4981 967 5095 964 5151 969 5230 971 5344 208 5401 968 5458 980 5537 972 5711
-973 5856 974 5999 975 6144 976 6289 977 6432 982 6577 212 6633 954 6689 979 6745 986 6876
-978 7026 983 7172 984 7314 988 7459 985 7516 995 7621 989 7787 990 7929 991 8074 992 8216
-993 8360 997 8505 216 8561 998 8617 994 8674 1002 8818 1000 8956 1004 9102 1005 9161 1006 9220
+949 3995 958 4100 955 4242 956 4388 960 4535 195 4592 199 4649 961 4705 963 4762 204 4819
+957 4876 965 4994 967 5108 964 5164 969 5243 971 5357 208 5414 968 5471 980 5550 972 5724
+973 5869 974 6012 975 6157 976 6302 977 6445 982 6590 212 6646 954 6702 979 6758 986 6889
+978 7039 983 7185 984 7327 988 7472 985 7529 995 7634 989 7800 990 7942 991 8087 992 8229
+993 8373 997 8518 216 8574 998 8630 994 8687 1002 8831 1000 8969 1004 9115 1005 9174 1006 9233
 % 115 0 obj
 <<
 /D [909 0 R /XYZ 99.895 279.894 null]
@@ -8565,7 +8569,7 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [382.088 606.388 389.062 617.237]
+/Rect [382.088 613.077 389.062 623.925]
 /A << /S /GoTo /D (table.1) >>
 >>
 % 948 0 obj
@@ -8573,7 +8577,7 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [382.088 460.595 389.062 471.443]
+/Rect [382.088 480.661 389.062 491.509]
 /A << /S /GoTo /D (table.1) >>
 >>
 % 952 0 obj
@@ -8582,11 +8586,11 @@ stream
 >>
 % 191 0 obj
 <<
-/D [950 0 R /XYZ 99.895 315.722 null]
+/D [950 0 R /XYZ 99.895 367.962 null]
 >>
 % 949 0 obj
 <<
-/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R >>
+/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F11 755 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
 % 958 0 obj
@@ -28544,8 +28548,8 @@ endobj
 2028 0 obj
 <<
  /Title (Parallel Sparse BLAS V. 3.5.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 package)/Producer(pdfTeX-1.40.18)/Keywords()
-/CreationDate (D:20180702164032+01'00')
-/ModDate (D:20180702164032+01'00')
+/CreationDate (D:20180904173147+01'00')
+/ModDate (D:20180904173147+01'00')
 /Trapped /False
 /PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.18 (TeX Live 2017) kpathsea version 6.2.3)
 >>
@@ -28710,7 +28714,7 @@ endobj
 /W [1 3 1]
 /Root 2027 0 R
 /Info 2028 0 R
-/ID [<7594D57317A5C89F9FDA464D6C941754> <7594D57317A5C89F9FDA464D6C941754>]
+/ID [<92A2920F2726132CA3CAC852168500EC> <92A2920F2726132CA3CAC852168500EC>]
 /Length 10150     
 >>
 stream
@@ -28724,33 +28728,33 @@ stream
 kkk
kkkkkkkkkkkkkkkkk"k 
”S
(
 kk

sk#k$k%k&k'k(k)k*k+k,k-k.k/k0k1k2k3k4k5k6k7k8k9k:k;k<k=k>k?k@kAkBkCkDkEkFkGkHkIkJkKkLkMkNkOkPkTkRk!
†ÙkQkUkVkWkXkYkZk[k\k]k^k_k`kakbkcÍÍ
ÍÍÍÍÍÍÍÍ	Í
 ÍÍÍ
ÍÍÍÍÍÍÍÍÍÍÍÍÍÍkS
×ÕÍ
:¢ÍÍ

]¨ÍÍ!Í"Í#Í$Í%Í&Í'Í(Í)Í*Í,Í 

^3E%E+ëNëEë;ëOëMëBëCëLë?ë@Í2Í3Í4

•¼Í9Í7Í-

µEÍ6Í.Í/Í0Í1

šrëAÍ:Í;Í@Í8

¦Í<E'E EE#EÍ>E!Í?ëKÍEÍF

ÞÍJÍA

ÈçÍGÍHÍBÍCÍDë>ë=ÍLÍMÍOÍK

ä¯ÍNÍ]Í[ÍP

úAÍQEÍSÍTÍUÍVÍWÍXÍYÍZ@@	Í\
PÍ^Í_Í`ÍaÍbÍc@@
@@@@@@@E(E,
^º@@@
-
mŸ@
@@@@@@@@@
‹@@@@ @!@.@/@,@
¬@@"@#@$@%@&@'@(@)@*@+@8@-
Ç'@0@1@2@3@4@5@:@;@@@9
Ü<>@<@F@A
ðì@BE-@M@G

@H@J@O@P@Q@X@N
ù@R@U@V@WëJ@^@Y
?@Z‘
@_
Oˆ@`@b
‰3‘‘
‚‘‘‘
•+‘	E.‘‘

¦<>‘‘‘
µ‚‘‘‘
È•‘‘‘‘$‘
ÛS‘ ‘#‘'‘,‘%
ù<>‘&‘.‘/‘2‘-
,‘0E/‘M‘4‘5‘<‘3
Ç‘6‘9E)‘:‘?‘=
+‘>‘C‘@
.:‘A‘E‘F‘G‘H‘I‘J‘P‘N‘D
/‘K‘Q‘R‘T‘O
L‘S‘V‘W‘X‘Y‘Z‘^‘U
V¬‘[‘]E0‘`ó‘_
tü‘a‘b‘cóó
óó
À_óóóó	ó
-óóó
±Fóóóó
Ò‘óóóóóó
Õ?óóó#ó
ðFóóóóó ó!ó"ó%ó&ó'ó+ó$
Vó(ó*E1ó-ó.ó/ó3ó,
Ió0ó2ó<ó4
7ró5ó6ó7ó8ó9ó:ó;ó>ó?ó@óDó=
FÕóAóCóGóE
cÉóFóIóJóKóOóH
fvóLóNóXóP
ñóQóRóSóTóUóVóWE2óZó[ó\ó`óY
’Gó]ó_óbóc^óa
ª–^^
f/^^^
-^
ëÿ^E$^	^^
^^^^^

Ï^^^^^^^^^^^^^!^
¬^ ^#^)^'^"
:)^$^&E3^*^+^,^-^.^/^1^(
Té^0^3^4^6^2
s“^5^8^;^7
†^9^=^>^?^N^F^<
ˆÏ^@^B^C^D^E
² ^O^R^G
¥g^P^Q^H^I^J^K^L^M
À{
óê^U^S
!‚^TE"E4^W^X^Y^`^V
-©^Z^\^]^^^_^b
¨^cÔÔ^a
OÔ
ÔÔÔÔ
	){ÔÔ
˜5ÔÔÔ	
¦•ÔÔ
-ÔÔÔ
ÔÔ
¶µ
ê$ÔÔÔÔÔ
¼ÔÔÔÔÔÔ Ô
<<3C>ÔE5Ô"Ô*Ô(Ô!
B{Ô#Ô%Ô&Ô'Ô+Ô,Ô.Ô)
a3Ô-Ô3Ô/
qÅÔ0Ô5Ô8Ô4
‹ŽÔ6Ô7Ô:Ô=Ô9
¥¹Ô;Ô<ÔEÔ>
Í7Ô?Ô@ÔAÔBÔCÔDE6ÔGÔJÔF
×ØÔHÔLÔQÔK
ôÔMÔNÔOÔPÔSÔTÔXÔR
	©ÔUÔWÔZÔ[Ô^ÔY
	qÔ\Ô`ÔcÔ_
	 {ÔaC
CCC
	UgC

-Z¼E7C
-C
	lËCCC	CC
CC
	s;CCCCCCCCC
	†<>CC&C
	 
CCCCC C!C"C#C$C%C(C)C,C'
	¸C*C5C-
	Ò:C.C/C0C1C2C3C4E8C7C8C;C6
	Û?C9C=C>CBC<
	çˆC?CACDCECHCC
	÷\CFCJCKCNCI

-<0B>CLCSCO

-&nCPCQCRCUCVCWCZCT

-+CXE9C\C]C`C[

-?¢C^ªCa

-MCb
¨¢ªªª


-„¢ªª
+
mŸ@
@@@@@@@@@
‹@@@@ @!@.@/@,@
¬@@"@#@$@%@&@'@(@)@*@+@8@-
Ç'@0@1@2@3@4@5@:@;@@@9
Ü<>@<@F@A
ðì@BE-@M@G

@H@J@O@P@Q@X@N
ù@R@U@V@WëJ@^@Y
?@Z‘
@_
Oˆ@`@b
<EFBFBD>ª‘‘
‚‘‘‘
•+‘	E.‘‘

¦<>‘‘‘
µ‚‘‘‘
È•‘‘‘‘$‘
ÛS‘ ‘#‘'‘,‘%
ù<>‘&‘.‘/‘2‘-
,‘0E/‘M‘4‘5‘<‘3
>‘6‘9E)‘:‘?‘=
/‘>‘C‘@
2±‘A‘E‘F‘G‘H‘I‘J‘P‘N‘D
3‹‘K‘Q‘R‘T‘O
Pˆ‘S‘V‘W‘X‘Y‘Z‘^‘U
[#‘[‘]E0‘`ó‘_
ys‘a‘b‘cóó
óó
Äãóóóó	ó
+óóó
µÊóóóó
×óóóóóó
ÙÃóóó#ó
ôÊóóóóó ó!ó"ó%ó&ó'ó+ó$
Úó(ó*E1ó-ó.ó/ó3ó,
Íó0ó2ó<ó4
;öó5ó6ó7ó8ó9ó:ó;ó>ó?ó@óDó=
KYóAóCóGóE
hMóFóIóJóKóOóH
júóLóNóXóP
„uóQóRóSóTóUóVóWE2óZó[ó\ó`óY
–Ëó]ó_óbóc^óa
¯^^
j³^^^
+^
ðƒ^E$^	^^
^^^^^
S^^^^^^^^^^^^^!^
#0^ ^#^)^'^"
>­^$^&E3^*^+^,^-^.^/^1^(
Ym^0^3^4^6^2
x^5^8^;^7
Š‹^9^=^>^?^N^F^<
<06>S^@^B^C^D^E
¶¤^O^R^G
©ë^P^Q^H^I^J^K^L^M
Äÿ
øn^U^S
&^TE"E4^W^X^Y^`^V
2-^Z^\^]^^^_^b
¬›^cÔÔ^a
SŒÔ
ÔÔÔÔ
	-ÿÔÔ
œ¹ÔÔÔ	
«ÔÔ
+ÔÔÔ
ÔÔ
»9
î¨ÔÔÔÔÔ
@ÔÔÔÔÔÔ Ô
AÔE5Ô"Ô*Ô(Ô!
FÿÔ#Ô%Ô&Ô'Ô+Ô,Ô.Ô)
e·Ô-Ô3Ô/
vIÔ0Ô5Ô8Ô4
<08>Ô6Ô7Ô:Ô=Ô9
ª=Ô;Ô<ÔEÔ>
Ñ»Ô?Ô@ÔAÔBÔCÔDE6ÔGÔJÔF
Ü\ÔHÔLÔQÔK
øœÔMÔNÔOÔPÔSÔTÔXÔR
	-ÔUÔWÔZÔ[Ô^ÔY
	õÔ\Ô`ÔcÔ_
	$ÿÔaC
CCC
	YëC

+_@E7C
+C
	qOCCC	CC
CC
	w¿CCCCCCCCC
	‹CC&C
	¤…CCCCC C!C"C#C$C%C(C)C,C'
	¼‰C*C5C-
	Ö¾C.C/C0C1C2C3C4E8C7C8C;C6
	ßÃC9C=C>CBC<
	ìC?CACDCECHCC
	ûàCFCJCKCNCI

+CLCSCO

+*òCPCQCRCUCVCWCZCT

+/ŠCXE9C\C]C`C[

+D&C^ªCa

+Q–Cb
­&ªªª


+‰&ªª
 ª

-žrªªª	ªªª

-¡cª
ªªª

-¸ªªE:ªªª

-Åªªªª!ª

-ØÀªª ª#ª'ª"

-奪$ª&ª)ª.ª(

-ùbª*ª,ª-ª0ª5ª/
Œª1ª3ª4ª7ª:ª6
ª8E;ª@ª;
-ãª<ª=ª>ª?ªBªCªDªGªA
<ŸªEªKªH
L÷ªIªWªL
cªMªNªOªPªQªRªSªTªUªVª[ªX
RªYªaª\
€Jª]ª_ª`E<ªb
–Fªc

ø8
-
Ð:	
á{
ê(
ö1
û E=

)"
³ (#
¸$&'.)
-D*,-4/
A 023:5
V689E>@;
jÐ<>?GA
¦BDEEFLH
˜(IKQM
­^NPSTWR
ƒU‘‘‘X
ÛÇYZ[E\]^_`abc‘‘
‘‘‘‘‘‘‘‘	‘
-‘‘‘
‘E?

Úc‘‘

\‘‘‘‘‘

+$‘‘‘‘#‘

0ב‘!‘"‘)‘$

7t‘%‘'‘(‘-‘*

?è‘+‘/‘4‘.

B?‘0‘2‘3E@‘6‘;‘5

U4‘7‘9‘:‘=‘B‘<

iè‘>‘@‘A‘H‘C

Úc‘‘

Úc‘‘

Úc‘‘

—¬‘Q‘S‘T‘Y‘V

Úc‘‘

+$‘‘‘‘#‘

‘WEA‘[‘\‘`‘Z

ª‘]‘_‘b‘cëë
ë‘a

»ßë
­ˆëë

þ…ëë	ë
-ëëëë
ë
ëëë
ëëë
%ÔëEBëëëë
)îëë"ë
4Õë ë$ë%ë.ë,ë#
7hë&ë(ë)ë*ë+Eë/ë0ë1ë3ë-
Xë2ë5ë7ë4
sùë6ëGë8
…të9ë:ë<ëDëFECëQëH
¡ëIëPëRëSëTëUëVëWëXëYëZë[ë\ë]ë^ë_ë`ëaëbëcE
ë{E

è(E
@hE
<0F>E
µE
Ò½E
äE
1âE
XUE	
wºE
-
ÝsE
ý`E
;E

`äE
 ªE
ÈUE
åöE
5¹E
e0E
³–E
ÃËEEDEEEFEGEHEIEJ
.l
Tmww
wwwwwwwwwwwwwwwwwww w!w"w#w$w%w&w'w(w)w*w+w,w-w.w/w0w1w2w3w4w5w6w7w8w9w:w;w<w=w>w?w@wAwBwCwDwEwFwGwHwIwJwKwLwMwNwOwPwQwRwSwTwUwVwWwXwYwZw[w\w]w^w_w`wawbwcÑ
 Ñ
ÑÑÑÑÑÑÑÑ	Ñ
-ÑÑÑ
ÑÑÑÑÑÑÑÑÑÑÑÑÑ
<EFBFBD>Û
®Å
+¢öªªª	ªªª

+¥çª
ªªª

+¼ŒªªE:ªªª

+É<EFBFBD>ªªªª!ª

+ÝDªª ª#ª'ª"

+ê)ª$ª&ª)ª.ª(

+ýæª*ª,ª-ª0ª5ª/

ª1ª3ª4ª7ª:ª6
“ª8E;ª@ª;
2gª<ª=ª>ª?ªBªCªDªGªA
A#ªEªKªH
Q{ªIªWªL
hFªMªNªOªPªQªRªSªTªUªVª[ªX
ƒÖªYªaª\
„Ϊ]ª_ª`E<ªb
šÊªc

ü¼
+
Ô¾	
åÿ
î¬
úµ
ÿ¤E=
­"
7 (#
<$&'.)
1È*,-4/
F$023:5
Z 689E>@;
oT<>?GA
„*BDEEFLH
œ¬IKQM
±âNPSTWR
ÇU‘‘‘X
àKYZ[E\]^_`abc‘‘
‘‘‘‘‘‘‘‘	‘
+‘‘‘
‘E?

Úc‘‘

U4‘7‘9‘:‘=‘B‘<

 à‘‘‘‘‘

\‘‘‘‘‘

5[‘‘!‘"‘)‘$

;ø‘%‘'‘(‘-‘*

\‘‘‘‘‘

+$‘‘‘‘#‘

\‘‘‘‘‘

0ב‘!‘"‘)‘$

\‘‘‘‘‘

7t‘%‘'‘(‘-‘*

\‘‘‘‘‘

?è‘+‘/‘4‘.

\‘‘‘‘‘

B?‘0‘2‘3E@‘6‘;‘5

\‘‘‘‘‘

U4‘7‘9‘:‘=‘B‘<

\‘‘‘‘‘

iè‘>‘@‘A‘H‘C

+$‘‘‘‘#‘

+$‘‘‘‘#‘

Úc‘‘

+$‘‘‘‘#‘

\‘‘‘‘‘

ëë	ë
+ëëëë
<07>ë
ëëë
£ëëë
*XëEBëëëë
.rëë"ë
9Yë ë$ë%ë.ë,ë#
;ìë&ë(ë)ë*ë+Eë/ë0ë1ë3ë-
\”ë2ë5ë7ë4
x}ë6ëGë8
‰øë9ë:ë<ëDëFECëQëH
¥›ëIëPëRëSëTëUëVëWëXëYëZë[ë\ë]ë^ë_ë`ëaëbëcE
ïÿE

ì¬E
DìE
’E
¹ŠE
×AE
hE
6fE
\ÙE	
|>E
+
á÷E

äE
#¿E

ehE
¥.E
ÌÙE
êzE
:=E
i´E
¸E
ÈOEEDEEEFEGEHEIEJ
2ð
Xñww
wwwwwwwwwwwwwwwwwww w!w"w#w$w%w&w'w(w)w*w+w,w-w.w/w0w1w2w3w4w5w6w7w8w9w:w;w<w=w>w?w@wAwBwCwDwEwFwGwHwIwJwKwLwMwNwOwPwQwRwSwTwUwVwWwXwYwZw[w\w]w^w_w`wawbwcÑ
¤ Ñ
ÑÑÑÑÑÑÑÑ	Ñ
+ÑÑÑ
ÑÑÑÑÑÑÑÑÑÑÑÑÑ
¢_
³I
 endstream
 endobj
 startxref
-1289925
+1291081
 %%EOF

docs/src/datastruct.tex

@@ -1127,7 +1127,7 @@ Scope: {\bf local}\\
 \addcontentsline{toc}{paragraph}{get\_vect }
 
 \begin{verbatim}
-extv = v%get_vect()
+extv = v%get_vect([n])
 \end{verbatim}
 
 \begin{description}
@@ -1138,12 +1138,19 @@ Scope: {\bf local}\\
 % Type: {\bf required}\\
 % Intent: {\bf in}.\\
 % Specified as: a object of type \spdata.
+\item[n] Size to be returned\\
+Scope: {\bf local}.\\
+Type: {\bf optional}; default: entire vector.\\
+
 \end{description}
 
 \begin{description}
 \item[\bf On Return]
 \item[Function value] An allocatable array holding a copy of the dense
-  vector contents.
+  vector contents. If the argument $n$ is specified, the size of the
+  returned array equals the minimum between $n$ and the internal size
+  of the vector, or 0 if $n$ is negative; otherwise, the size of the
+  array is the same as the internal size of the vector.
 \end{description}
 
 \subsubsection*{clone --- Clone current object}