Add N to get_vect.

psblas-3.5-maint
Salvatore Filippone 6 years ago
parent ae2e575a29
commit e5ed49a018

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

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

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

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

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

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

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

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

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

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

@ -7528,7 +7528,7 @@ endstream
endobj endobj
951 0 obj 951 0 obj
<< <<
/Length 3935 /Length 5078
>> >>
stream stream
0 g 0 G 0 g 0 G
@ -7539,60 +7539,64 @@ BT
0 g 0 G 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 /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 0 g 0 G
-57.286 -37.031 Td [(alpha)]TJ -57.286 -30.343 Td [(alpha)]TJ
0 g 0 G 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 0 0 1 rg 0 0 1 RG
[-333(1)]TJ [-333(1)]TJ
0 g 0 G 0 g 0 G
[(.)]TJ [(.)]TJ
0 g 0 G 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 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 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 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 /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 0 0 1 rg 0 0 1 RG
[-333(1)]TJ [-333(1)]TJ
0 g 0 G 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 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 g 0 G 0 g 0 G
0 -25.076 Td [(v)]TJ 0 -18.387 Td [(v)]TJ
0 g 0 G 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 ET
q 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 []0 d 0 J 0.398 w 0 0 m 3.437 0 l S
Q Q
BT 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
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 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 0 g 0 G
/F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ /F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ
0 g 0 G 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 g 0 G 0 g 0 G
0 -25.076 Td [(v)]TJ 0 -18.387 Td [(v)]TJ
0 g 0 G 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 /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 0 g 0 G
-57.286 -37.736 Td [(On)-383(Return)]TJ -57.286 -30.343 Td [(n)]TJ
0 g 0 G 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 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 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 0 g 0 G
141.968 -29.888 Td [(25)]TJ 141.968 -29.888 Td [(25)]TJ
0 g 0 G 0 g 0 G
@ -8313,7 +8317,7 @@ endobj
/Type /ObjStm /Type /ObjStm
/N 100 /N 100
/First 888 /First 888
/Length 10167 /Length 10180
>> >>
stream stream
115 0 908 56 915 148 917 262 119 319 123 376 127 432 914 489 919 581 921 695 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 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 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 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 949 3995 958 4100 955 4242 956 4388 960 4535 195 4592 199 4649 961 4705 963 4762 204 4819
957 4863 965 4981 967 5095 964 5151 969 5230 971 5344 208 5401 968 5458 980 5537 972 5711 957 4876 965 4994 967 5108 964 5164 969 5243 971 5357 208 5414 968 5471 980 5550 972 5724
973 5856 974 5999 975 6144 976 6289 977 6432 982 6577 212 6633 954 6689 979 6745 986 6876 973 5869 974 6012 975 6157 976 6302 977 6445 982 6590 212 6646 954 6702 979 6758 986 6889
978 7026 983 7172 984 7314 988 7459 985 7516 995 7621 989 7787 990 7929 991 8074 992 8216 978 7039 983 7185 984 7327 988 7472 985 7529 995 7634 989 7800 990 7942 991 8087 992 8229
993 8360 997 8505 216 8561 998 8617 994 8674 1002 8818 1000 8956 1004 9102 1005 9161 1006 9220 993 8373 997 8518 216 8574 998 8630 994 8687 1002 8831 1000 8969 1004 9115 1005 9174 1006 9233
% 115 0 obj % 115 0 obj
<< <<
/D [909 0 R /XYZ 99.895 279.894 null] /D [909 0 R /XYZ 99.895 279.894 null]
@ -8565,7 +8569,7 @@ stream
/Type /Annot /Type /Annot
/Subtype /Link /Subtype /Link
/Border[0 0 0]/H/I/C[1 0 0] /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) >> /A << /S /GoTo /D (table.1) >>
>> >>
% 948 0 obj % 948 0 obj
@ -8573,7 +8577,7 @@ stream
/Type /Annot /Type /Annot
/Subtype /Link /Subtype /Link
/Border[0 0 0]/H/I/C[1 0 0] /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) >> /A << /S /GoTo /D (table.1) >>
>> >>
% 952 0 obj % 952 0 obj
@ -8582,11 +8586,11 @@ stream
>> >>
% 191 0 obj % 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 % 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 ] /ProcSet [ /PDF /Text ]
>> >>
% 958 0 obj % 958 0 obj
@ -28544,8 +28548,8 @@ endobj
2028 0 obj 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() /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') /CreationDate (D:20180904173147+01'00')
/ModDate (D:20180702164032+01'00') /ModDate (D:20180904173147+01'00')
/Trapped /False /Trapped /False
/PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.18 (TeX Live 2017) kpathsea version 6.2.3) /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] /W [1 3 1]
/Root 2027 0 R /Root 2027 0 R
/Info 2028 0 R /Info 2028 0 R
/ID [<7594D57317A5C89F9FDA464D6C941754> <7594D57317A5C89F9FDA464D6C941754>] /ID [<92A2920F2726132CA3CAC852168500EC> <92A2920F2726132CA3CAC852168500EC>]
/Length 10150 /Length 10150
>> >>
stream stream
@ -28724,33 +28728,33 @@ stream
k k k kkkkkkkkkkkkkkkkk"k ”S( k k k kkkkkkkkkkkkkkkkk"k ”S(
kksk#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ÍÍÍÍÍÍÍÍÍÍ Í kksk#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,@ @@ Í Í Í ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ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,@ @@
@ @@@@@@@@@ @@@@ @!@.@/@,@¬@@"@#@$@%@&@'@(@)@*@+@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/M45<3Ç69E):?=+>C@.:AEFGHIJPND/KQRTOLSVWXYZ^U[]E0`ó_abcóóóóÀ_óóóó ó @ @@@@@@@@@ @@@@ @!@.@/@,@¬@@"@#@$@%@&@'@(@)@*@+@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/M45<3>69E):?=/>C@AEFGHIJPND3KQRTOPˆSVWXYZ^U[#[]E0`ó_ysabcóóóóÄãóóóó ó
ó óó±Fó óóóÒ‘óóóóóóÕ?óóó#óðFóóóóó ó!ó"ó%ó&ó'ó+ó$Vó(ó*E1ó-ó.ó/ó3ó,Ió0ó2ó<ó47ró5ó6ó7ó8ó9ó:ó;ó>ó?ó@óDó=óAóCóGóEóFóIóJóKóOóHfvóLóNóXóPóQóRóSóTóUóVóWE2óZó[ó\ó`óYGó]ó_óbóc^óaª–^^f/^^^ ó óóµÊó óóó×óóóóóóÙÃóóó#óôÊóóóóó ó!ó"ó%ó&ó'ó+ó$Úó(ó*E1ó-ó.ó/ó3ó,Íó0ó2ó<ó4ó5ó6ó7ó8ó9ó:ó;ó>ó?ó@óDó=KYóAóCóGóEhMóFóIóJóKóOóHóLóNóXóP„uóQóRóSóTóUóVóWE2óZó[ó\ó`óY–Ëó]ó_óbóc^óa¯^^^^^
^ëÿ^E$^ ^ ^ ^^^^^ Ï^^^^^^^^^^^^^!^¬^ ^#^)^'^":)^$^&E3^*^+^,^-^.^/^1^(^0^3^4^6^2s“^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ÔÔ^aOÔÔÔÔÔ ){ÔÔ˜5ÔÔÔ ¦•ÔÔ ^ðƒ^E$^ ^ ^ ^^^^^ S^^^^^^^^^^^^^!^#0^ ^#^)^'^">­^$^&E3^*^+^,^-^.^/^1^(Ym^0^3^4^6^2x^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^`^V2-^Z^\^]^^^_^b¬›^cÔÔ^aÔÔÔÔÔ -ÿÔÔœ¹ÔÔÔ «ÔÔ
Ô Ô Ô ÔÔ¶µê$ÔÔÔÔÔ¼ÔÔÔÔÔÔ Ô<<3C>ÔE5Ô"Ô*Ô(Ô!B{Ô#Ô%Ô&Ô'Ô+Ô,Ô.Ô)a3Ô-Ô3Ô/Ô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Ô_ {ÔaCCCC UgC Ô Ô Ô ÔÔ»9î¨ÔÔÔÔÔ@ÔÔÔÔÔÔ ÔAÔE5Ô"Ô*Ô(Ô!FÿÔ#Ô%Ô&Ô'Ô+Ô,Ô.Ô)Ô-Ô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Ô_ $ÿÔaCCCCC
E7C _@E7C
C 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 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
<0B>CLCSCO CLCSCO
&nCPCQCRCUCVCWCZCT CPCQCRCUCVCWCZCT
+CXE9C\C]C`C[ CXE9C\C]C`C[
C^ªCa D&C^ªCa
MCb ¨¢ªªª QCb ­&ªªª
„¢ªª ‰&ªª
ª ª
žrªªª ª ªª  ¢öªªª ª ªª 
¡cª ªªª ¥çª ªªª
¸ªªE:ªªª ¼ŒªªE:ªªª
Å ªªªª!ª É<EFBFBD>ªªªª!ª
ØÀªª ª#ª'ª" ÝDªª ª#ª'ª"
奪$ª&ª)ª.ª( ê)ª$ª&ª)ª.ª(
ùbª*ª,ª-ª0ª5ª/ Œª1ª3ª4ª7ª:ª6 ª8E;ª@ª; ª<ª=ª>ª?ªBªCªDªGªA ªEªKªH ªIªWªL ªMªNªOªPªQªRªSªTªUªVª[ªX RªYªaª\ €Jª]ª_ª`E<ªb Fªc ø8 ýæª*ª,ª-ª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 ü¼
 Ð:   á{  ê( ö1 û E= )" ³ (# ¸$&'.) -D*,-4/ A 023:5 V689E>@; <>?GA BDEEFLH ˜(IKQM ­^NPSTWR ƒUX ÛÇYZ[E\]^_`abc   Ô¾   åÿ  î¬ úµ ÿ¤E= ­" 7 (# <$&'.) *,-4/ F$023:5 Z 689E>@; oT<>?GA „*BDEEFLH œ¬IKQM ±âNPSTWR ÇUX àKYZ[E\]^_`abc 
   E? Úc \ +$# 0×!")$ 7t%'(-*+/4. B?023E@6;5 U479:=B< >@AHC Úc Úc Úc —¬QSTYV Úc +$# WEA[\`Z ª]_bcëëëa »ßë­ˆëë þ…ëë ë    E? Úc U479:=B< à \ 5[!")$%'(-* \ +$# \ 0×!")$ \ 7t%'(-* \ +/4. \ B?023E@6;5 \ U479:=B< \>@AHC +$# +$# Úc +$# \ ëë ë
ë ë ëë ë ëëëëëëëEBëëëëëë"ëë ë$ë%ë.ë,ë#7hë&ë(ë)ë*ë+Eë/ë0ë1ë3ë-Xë2ë5ë7ë4ë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äEEXUE E ë ë ëë<07>ë ëëë£ëëë*XëEBëëëë.rëë"ë9Yë ë$ë%ë.ë,ë#ë&ë(ë)ë*ë+Eë/ë0ë1ë3ë-\”ë2ë5ë7ë4x}ë6ëGë8‰øë9ë:ë<ëDëFECëQëH¥›ëIëPëRëSëTëUëVëWëXëYëZë[ë\ë]ë^ë_ë`ëaëbëcEïÿEì¬EEE¹ŠE×AEhE6fEE |>E
ÝsE ý`E ;E E ªEÈUEåöEEe0E³–EÃËEEDEEEFEGEHEIEJ.lTmw 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Ñ ÑÑÑÑÑÑÑÑÑ Ñ á÷E äE #¿E ehE¥.EÌÙEêzE:=Ei´E¸EÈOEEDEEEFEGEHEIEJw 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>Û®Å Ñ Ñ Ñ ÑÑÑÑÑÑÑÑÑÑÑÑÑ¢_³I
endstream endstream
endobj endobj
startxref startxref
1289925 1291081
%%EOF %%EOF

@ -1127,7 +1127,7 @@ Scope: {\bf local}\\
\addcontentsline{toc}{paragraph}{get\_vect } \addcontentsline{toc}{paragraph}{get\_vect }
\begin{verbatim} \begin{verbatim}
extv = v%get_vect() extv = v%get_vect([n])
\end{verbatim} \end{verbatim}
\begin{description} \begin{description}
@ -1138,12 +1138,19 @@ Scope: {\bf local}\\
% Type: {\bf required}\\ % Type: {\bf required}\\
% Intent: {\bf in}.\\ % Intent: {\bf in}.\\
% Specified as: a object of type \spdata. % Specified as: a object of type \spdata.
\item[n] Size to be returned\\
Scope: {\bf local}.\\
Type: {\bf optional}; default: entire vector.\\
\end{description} \end{description}
\begin{description} \begin{description}
\item[\bf On Return] \item[\bf On Return]
\item[Function value] An allocatable array holding a copy of the dense \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} \end{description}
\subsubsection*{clone --- Clone current object} \subsubsection*{clone --- Clone current object}

Loading…
Cancel
Save